这段代码哪里错了？谢谢

ljeternity

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 Sub

反正就是不能执行

maker_cn

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

ljeternity

楼上的不好意思，您的那个也是错的。提示说else没有if

fenghui1231

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