vb小程序设计
来源:百度知道 编辑:UC知道 时间:2024/09/21 15:44:33
一个人机小游戏。
猜拳。
有三个选项,石头,剪子,布
选择后 电脑也随机选择一个比较胜负
可以把人选择的设为值 a
电脑选择的设为 b
代码如何编写?
猜拳。
有三个选项,石头,剪子,布
选择后 电脑也随机选择一个比较胜负
可以把人选择的设为值 a
电脑选择的设为 b
代码如何编写?
先自己画控件,参照图片里面的
不能有错
注意左边框架里面还有一个标签
不要忘记!!
Private Sub Command1_Click()
Randomize
Dim a%, b%, c%, cr%
cr = Int(3 * Rnd + 1)
If cr = 1 Then
Label1.Caption = "石头"
ElseIf cr = 2 Then
Label1.Caption = "剪刀"
ElseIf cr = 3 Then
Label1.Caption = "布"
End If
If cr = 1 And Option1.Value = True Then MsgBox ("平")
If cr = 1 And Option2.Value = True Then MsgBox ("You Lost")
If cr = 1 And Option3.Value = True Then MsgBox ("You Win!")
If cr = 2 And Option1.Value = True Then MsgBo