在函数内部定义的变量是局部变量，作用域只是这个函数内部，不会对外部相同变量有任何影响

dim i,msg
i=5
msg=i & "<--函数外部定义" & vbCrLf
function a()
	dim i
	i=1
	msg=msg & i & "<--函数内部定义" & vbCrLf
	i=i+1
	msg=msg & i & "<--函数内部改变" & vbCrLf
end function

a()
	msg=msg & i & "<--函数外部调用后，外部的i还是没有变" & vbCrLf
msgbox msg


'5<--函数外部定义
'1<--函数内部定义
'2<--函数内部改变
'5<--函数外部调用后，外部的i还是没有变


'在函数内部定义的变量是局部变量，作用域只是这个函数内部，不会对外部相同变量有任何影响