Private Sub Command1_Click()
Randomize
Dim i As Integer
i = Int(3 * Rnd + 1)
If i = 1 Then
MsgBox ("电脑出的是布，你输了")
Else
If i = 2 Then
MsgBox ("电脑出的是石头，平手")
Else
MsgBox ("电脑出的是剪刀，你赢了")
End If
End If
End Sub
Private Sub Command2_Click()
Randomize
Dim i As Integer
i = Int(3 * Rnd + 1)
If i = 1 Then
MsgBox ("电脑出的是布，你赢了")
Else
If i = 2 Then
MsgBox ("电脑出的是石头，你输了")
Else
MsgBox ("电脑出的是剪刀，平手")
End If
End If
End Sub
Private Sub Command3_Click()
Randomize
Dim i As Integer
i = Int(3 * Rnd + 1)
If i = 1 Then
MsgBox ("电脑出的是布，平手")
Else
If i = 2 Then
MsgBox ("电脑出的是石头，你赢了")
Else
MsgBox ("电脑出的是剪刀，你输了")
End If
End If
End Sub

Randomize
Dim i As Integer
i = Int(3 * Rnd + 1)
这一段代码是我最难理解的地方，小雷是定义了一个随机函数，使得整数的数值是采取随机的结果，而这段函数代码对于专业人员虽然简单，但我自己读VB时很难独立设计，哇咔
厉害呢，以后也许能设计更加复杂的程序，加油小雷

因为当时一下没找到英文的小于号大于号没复制进去所以用了这个奇怪的算式

以后再试试看

Option Explicit
Private Sub Command1_Click()
Randomize
Dim i As Single
i = Sin(Rnd)
If i < 0.33 Then
MsgBox ("电脑出的是布，你输了")
Else
If i < 0.66 Then
MsgBox ("电脑出的是石头，平手")
Else
MsgBox ("电脑出的是剪刀，你赢了")
End If
End If
End Sub
Private Sub Command2_Click()
Randomize
Dim i As Single
i = Sin(Rnd)
If i < 0.33 Then
MsgBox ("电脑出的是布，你赢了")
Else
If i < 0.66 Then
MsgBox ("电脑出的是石头，你输了")
Else
MsgBox ("电脑出的是剪刀，平手")
End If
End If
End Sub
Private Sub Command3_Click()
Randomize
Dim i As Single
i = Sin(Rnd)
If i < 0.33 Then
MsgBox ("电脑出的是布，平手")
Else
If i < 0.66 Then
MsgBox ("电脑出的是石头，你赢了")
Else
MsgBox ("电脑出的是剪刀，你输了")
End If
End If
End Sub