vb中if语句的条件是怎么的？这样怎么不行

Question

Private Sub Command3_Click() Dim n As Integer n = 0 End Sub ———————————— Private Sub Command4_Click() Dim n As Integer n = 1 End Sub ———————————— Private Sub Command1_Click() If n = 0 Then *********** ElseIf n = 1 Then ****************** End If End Sub 大家帮忙看一下，为什么在按过Command4之后不是执行Command1_Click()中第二条语句呢？

Answer 1

这不是
if
的问题，是因为
n
的作用范围，在sub
function
if
for
while
do等结构内定义的变量都只有在其范围内有效，超过范围就自动消除了，因此，在
Command1_Click()内的变量
n
不是你在其它两个
sub
中定义的
n
，如果你想要这三个
Sub
使用的是同一个
n
，那么你必须把
n
定义在三个
Sub
之外，比如：
Dim
n
As
Integer
'定义在Sub之外，最好用private或public
代替
dim
Private
Sub
Command3_Click()
n
=
0
End
Sub
————————————
Private
Sub
Command4_Click()
n
=
1
End
Sub
————————————
Private
Sub
Command1_Click()
If
n
=
0
Then
***********
ElseIf
n
=
1
Then
******************
End
If
End
Sub