菜鸟求解语法问题

rockyoung

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

cjh8713193

IF ...
   ...
ELSE
   ...
END IF

if和end if配对出现，但是如果是有时候只需要一项结果，比如上例中是3的倍数给提示，不是不做提示，没有else，可以不要end if的，如：

Dim s As Integer
s = Text1.Text
If s Mod 3 = 0 Then x = MsgBox("是3的倍数", vbOKOnly, "数值判断")

rockyoung

其实一句代码就行了
x = MsgBox(IIf(Val(Text1.Text) Mod 3, "不是3的倍数", "是3的倍数"), vbOKOnly, "数值判断")

ljeternity

谢谢各位了，我学VC的，现在有个东西要求用VB，我现在用起来很别扭，所以......