Private Sub Command1_Click()
Dim a As Integer, b As Integer
Randomize
a = Int(Rnd * 10 + 1)
b = InputBox("dd")
If b > a Then
MsgBox "1-" & b
ElseIf a > b Then
MsgBox b & "-10"
Else
Print "right"
End If
Print a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024