vb 11.10 "ROLL "元素

vb 11.10 "ROLL "元素

Private Sub Command1_Click()
Dim a, b As Double
a = Rnd
b = Rnd
If a > b Then
MsgBox "小弟帅的掉渣"
ElseIf a < b Then
MsgBox "小张帅的一塌糊涂"
Else
MsgBox "他们都不帅"
End If

End Sub