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