我现在完成了。
1、我是为了测试所以建立了11个变量，data是整数，自加，大于10后归零
2、data1~data10为10个模拟量
3、全局脚本data自加，脚本周期是2秒，io域显示最好也设置成2s，一共用了11个io域一个显示data1~data10更新周期为2s，其余的10个分别给data1~data10赋值。
全局脚本：
Option Explicit
Function action
Dim mytag
mytag=HMIRuntime.Tags("data").Read
If mytag>10 Then
mytag=0
Else mytag=mytag+1
End If
hmiruntime.Tags("data").Write mytag
End Function
io域显示脚本
Function OutputValue_Trigger(Byval Item)
Dim tag(10)
Dim group1
Set group1=HMIRuntime.Tags.CreateTagSet
group1.add"data"'整数判断应该显示哪个数值
group1.add"data_1"
group1.add"data_2"
group1.add"data_3"
group1.add"data_4"
group1.add"data_5"
group1.add"data_6"
group1.add"data_7"
group1.add"data_8"
group1.add"data_9"
group1.add"data_10"
group1.read
tag(0)=group1("data").value
tag(1)=group1("data_1").value
tag(2)=group1("data_2").value
tag(3)=group1("data_3").value
tag(4)=group1("data_4").value
tag(5)=group1("data_5").value
tag(6)=group1("data_6").value
tag(7)=group1("data_7").value
tag(8)=group1("data_8").value
tag(9)=group1("data_9").value
tag(10)=group1("data_10").value
Select Case tag(0)
Case 1 OutputValue_Trigger=tag(1)
Case 2 OutputValue_Trigger=tag(2)
Case 3 OutputValue_Trigger=tag(3)
Case 4 OutputValue_Trigger=tag(4)
Case 5 OutputValue_Trigger=tag(5)
Case 6 OutputValue_Trigger=tag(6)
Case 7 OutputValue_Trigger=tag(7)
Case 8 OutputValue_Trigger=tag(8)
Case 9 OutputValue_Trigger=tag(9)
Case 11 OutputValue_Trigger=tag(10)
End select
End Function