菜鸟求解语法问题

ljeternity

就是对于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到底和谁结合使用，如果不要它的话，怎么改呢？谢谢了！！！

vialin

end if 是和if 配合的。有一个if必然要有一个end if。
比如：
if 条件 then
     执行1
else
     执行2
end if

冰火之颠

最基本的语法阿.........汗一个

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

yangmier

不要end if 也行啊,看你嫌累不
if a>b then 语句1:语句2: 语句3：语句……

ljeternity

总而言之就是一个IF对应一个END IF对吧？
谢谢请总结一下

wsj537

是的
如果没有后面end if
你就调试不过去了

ark消逝

if  后面 一定要有个 end if  
中间可以存 else  也可以存在 新的if 语句 , 但是对应的if 语句也必须要有end if

if ... then
...if ...then
   ...
   else
   ...if ... then
      ...
      end if
    end if
end if

这样规范的代码写法 就很容易看出哪个if  对应哪个END IF 了

rockyoung

很简单 IF  End if 语句一定要配对出现,一行中写完的除外如

1)(一行):
If ... then ...

2)(需要配对)
if ....then
...
end if

3)嵌套
if ....then
if ....then
end if
end if

rockyoung

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

★●配对出现

didiao_cn1

Private Sub Command1_Click()
Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then
     x = MsgBox("是3的倍数", vbOKOnly, "数值判断")
ElseIf s Mod 3 <> 0 Then
     x = MsgBox("不是3的倍数", vbOKOnly, "数值判断")
End If
End Sub