急急急！！！！！！ vb 遇到除数为0 那错啦

Private Sub Command1_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
If (m - n) / 4 Mod 0 Then
Text3 = "能"
Else: Text3 = "不能"
End If
End Sub

答案：
问题在：
If (m - n) / 4 Mod 0 Then
由于 Mod（求余数）运算符的优先级比 /（除法）低，
因此此行相当于：
If ((m - n) / 4) Mod 0 Then
于是，我们就能看到，
你是使用 (m - n) / 4 作被除数，
用 0 作除数，
于是出事的概率是百分之百。

其他：第四行 "If (m - n) / 4 Mod 0 Then" 怎么可以 mod 0 呢?那不是除以0了吗. 

上一个：在vb中点击一个按钮……
下一个：关于VB的