vbs中定义两个模块:
sub test1(a,b)
msgbox a+b
end sub
sub test2
dim data1(2),data2(2)
dim i
data1(0)=1
data1(1)=20
data2(0)=3
data2(1)=30
for i=0 to 1
select case i
case 0 test1 data1(0),data2(0)
case 1 test1 data1(1),data2(1)
end select
next
end sub
wincc画面中用按钮调用test2,运行后点击按钮就会弹出两次提示窗口,第一次是4,第二次是50