Question

VB作业 求助啊设计一个电脑与电脑玩剪刀石头布的游戏 有知道的大神请发邮箱至 q1-xswzbj@163.com 谢谢

1. 基本要求
(1) 电脑随机出双方的石头、剪刀、布
(2) 用户选择哪一方胜利，判断胜利的过程有时间限制，一般为0.1秒之内
(3) 判断对了加分，判断不对不加分
(4) 判断10次之后计算总分，总分超多一定分数为胜利

2. 界面设计
(1) 启动界面(Form1)、菜单
(2) 游戏成功、游戏失败、游戏记录的界面
3. 自行添加各种有趣、实用的功能

Answer 1

1234567891011121314151617181920212223242526272829303132333435363738394041核心部分代码如下：剩下的自己编即可。都挺简单的，我仅提供一个简单的思路，但并不一定是最后的。你可以尝试用下别的方法。Private Sub Command1_Click()'0表示剪刀，1表示石头，2表示布RandomizeLabel1.Caption = word(Rnd * 2)Label2.Caption = word(Rnd * 2)Dim result As Stringresult = ""'分成六种情况If Label1.Caption = "石头" And Label2.Caption = "剪刀" Then  result = "甲赢"End IfIf Label1.Caption = "剪刀" And Label2.Caption = "石头" Then   result = "乙赢"End IfIf Label1.Caption = "布" And Label2.Caption = "石头" Then  result = "甲赢"End IfIf Label1.Caption = "石头" And Label2.Caption = "布" Then  result = "乙赢"End IfIf Label1.Caption = "剪刀" And Label2.Caption = "布" Then   result = "甲赢"End IfIf Label1.Caption = "布" And Label2.Caption = "剪刀" Then   result = "乙赢"End IfIf result = "" Then result = "平手"Label3.Caption = result '显示结果End SubFunction word(n As Integer) As StringSelect Case nCase 0:word = "剪刀"Case 1:word = "石头"Case 2:word = "布"End SelectEnd Function

界面如下：

向左转|向右转

向左转|向右转