Question

我的这个程序在vb中运行时为什么总是显示实时错误“11”：除数为零

Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer
Dim s As String
Me.Cls
Randomize
For i = 1 To 20
a = 100 * Rnd
b = (100 - a) * Rnd
Me.Print a & "+" & b & "="
Me.Print a & "*" & b & "="
If a > b And b > 0 And a Mod b = 0 Then

Me.Print a & "/" & b & "="

End If
If b > a And a > 0 And b Mod a = 0 Then

Me.Print b & "/" & a & "="

End If

If a > b Then
Me.Print a & "-" & b & "="
Else
Me.Print b & "-" & a & "="
End If
Next i
End Sub

Answer 1

If a > b And b > 0 And a Mod b = 0 Then
这个错误就有是：
如果:
a=11
b=0
a/b 就会出现错误 ，不允许。
a = 15
b = 0
b/a 如果这样就有可以了，就是除数不能为0。同样如果a=0，b15。b/a也会出现错误！！！

Answer 2

当b为0的时候 mod 失败
b=(99 - a) * Rnd+1