这段代码哪里错了？谢谢

[angelwing559]

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

反正就是不能执行

[angelwing559]

请快来看

[Estfania]

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

[angelwing559]

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

[砸死牛顿的苹果]

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
这样就可以了