|
#2
lchy1102007-11-14 09:59
|
Dim a, b As Double
a = rand
b = rand
If a > b Then
MsgBox = "A胜"
ElseIf MsgBox = "B胜" Then
MsgBox = "平局"
End If
总是出现这个！
Private Sub Command1_Click()
Dim a, b As Double
a = rand
b = rand
If a > b Then
MsgBox = "A胜"
ElseIf MsgBox = "B胜" Then
MsgBox = "平局"
End If
总是出现这个！
Dim a, b As Double
a = rand
b = rand
If a > b Then
MsgBox = "A胜"
ElseIf MsgBox = "B胜" Then
MsgBox = "平局"
End If
总是出现这个！