vbs所有参数都是按引用传递的，在循环里特别要注意

for i=0 to 3
dim a
c a,i
msgbox(a)
next

function c(a,i)
if i=2 then
a=3
end if
end function

 

你虽然在for里面dim了，但a的值还是会保存的，

你有两种方法，第一是声明值类型参数

for i=0 to 3
dim a
c a,i
msgbox(a)
next

function c(byval a,i)
if i=2 then
a=3
end if
end function

 

第二是赋值

for i=0 to 3
dim a
a=0
c a,i
msgbox(a)
next

function c(byval a,i)
if i=2 then
a=3
end if
end function