用VB编写一个人与电脑玩剪刀布锤的游戏

来源：百度知道 编辑：UC知道 时间：2024/06/24 00:15:41
编一个程序，让计算机和人一起玩剪刀，锤，布游戏。如果人输了。就输出“LOSE"; 人赢了，就输出“WIN”；人与计算机平了，就输出“DEUCE".在FORM窗体上建一个Label,capion为开始游戏 在建一个Text 在Text
里输入要出的一种

'在窗体上添加3个按钮，分别代表石头剪子布，加一个Label,添加代码就好了
'1为石头，2为剪刀，3为布

Private Sub Command1_Click()
Randomize
Dim computer As Long
computer = Int(Rnd() * 3) + 1
If computer = 1 Then
Label1.Caption = "DEUCE"
ElseIf computer = 2 Then
Label1.Caption = "WIN"
ElseIf computer = 3 Then
Label1.Caption = "LOSE"
End If

End Sub

Private Sub Command2_Click()
Randomize
Dim computer As Long
computer = Int(Rnd() * 3) + 1
If computer = 1 Then
Label1.Caption = "LOSE"
ElseIf computer = 2 Then
Label1.Caption = "DEUCE"
ElseIf computer = 3 Then
Label1.Caption = "WIN"
End If
End Sub

Private Sub Command3_Click()
Randomize
Dim computer As Long
computer = Int(Rnd() * 3) + 1
If computer = 1 Then
Label1.Caption = "WIN"
ElseIf computer = 2