50分菜鸟求解语法问题
就是对于VB的条件语句中，end if到底是怎么用的？它到底是在什么情况下结合什么用呢？
有时候错误弹出说else 没有if是怎么回事？
就比如下面的一个程序：
Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then
x = MsgBox( "是3的倍数 ", vbOKOnly, "数值判断 ")
Else
If s Mod 3 <> 0 Then
x = MsgBox( "不是3的倍数 ", vbOKOnly, "数值判断 ")
End If
End If
End Sub
这个end if到底和谁结合使用，如果不要它的话，怎么改呢？谢谢了！！！
[解决办法]
end if 是和if 配合的。有一个if必然要有一个end if。
比如：
if 条件 then
执行1
else
执行2
end if
[解决办法]
if 后面 一定要有个 end if
中间可以存 else 也可以存在 新的if 语句 , 但是对应的if 语句也必须要有end if
if ... then
...if ...then
...
else
...if ... then
...
end if
end if
end if
这样规范的代码写法 就很容易看出哪个if 对应哪个END IF 了
[解决办法]
很简单 IF End if 语句一定要配对出现,一行中写完的除外如
1)(一行):
If ... then ...
2)(需要配对)
if ....then
...
end if
3)嵌套
if ....then
if ....then
end if
end if
[解决办法]
Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
★If s Mod 3 = 0 Then
x = MsgBox( "是3的倍数 ", vbOKOnly, "数值判断 ")
Else
●If s Mod 3 <> 0 Then
x = MsgBox( "不是3的倍数 ", vbOKOnly, "数值判断 ")
●End If
★End If
End Sub
★●配对出现
