跟zhangli0纠结半天，俩人的意图互相不理解。
所以我自己做了一个。
按照我说的，画面加一个静态文本，然后在文本属性中增加脚本就可以了：

Function Text_Trigger(Byval Item)

'
'Dim TagName(10)
'TagName(1)=HMIRuntime.Tags("A_1").Name
'TagName(2)=HMIRuntime.Tags("A_2").Name
'TagName(3)=HMIRuntime.Tags("A_3").Name
'TagName(4)=HMIRuntime.Tags("A_4").Name
'TagName(5)=HMIRuntime.Tags("A_5").Name
'TagName(6)=HMIRuntime.Tags("A_6").Name
'TagName(7)=HMIRuntime.Tags("A_7").Name
'TagName(8)=HMIRuntime.Tags("A_8").Name
'TagName(9)=HMIRuntime.Tags("A_9").Name
'TagName(10)=HMIRuntime.Tags("A_10").Name


'变量列表
Dim list
list="0,A_1,A_2,A_3,A_4,A_5,A_6,A_7,A_8,A_9,A_10"

Dim TagName

TagName=Split(list,",")


Dim S
'由当前的秒值得到循环数1-10
S=(Second(Now)/3 Mod UBound(TagName)) +1



Dim text
text=TagName(S) & " : " & HMIRuntime.Tags(TagName(S)).Read
text=text& "--" & Second(Now)

Text_Trigger=text


End Function

然后运行的结果如图：





下部的10个IO域仅仅用于显示和修改变量的值。

有人能看懂前面注释那段脚本的用意么？

我把这段话题也整理为文章，发表在 QQ空间日志，地址：
http://user.qzone.qq.com/178616417/blog/1377761442

里面我的问题有答案。