一个编程.VB高手来.急

来源：百度知道 编辑：UC知道 时间：2024/06/28 00:08:11
弄一个猜苹果..弄10个按键.里面有5个苹果随机分布.要你猜哪个里面有苹果..类似打奖的..要3个按钮.石头.剪刀.布.一个listbox记录你和电脑每次猜拳的输赢情况.就是你出了什么.电脑出了什么.然后谁赢谁输...赢了的话能获得一次机会猜一次苹果.输的话电脑猜.每次猜的结果写在当次石头剪刀布结果的后面（如：你出剪刀.电脑出布.你赢啦..你猜中了一个苹果..目前为止.你已经猜中两个苹果.继续加油）.看到最后10个格子按完谁猜得得苹果多.谁胜利...就这样一个程序.
我们教过for循环语句..do while 语句..排序.随机数(randomize)这些..编的时候vb语言最大可能的不要超纲..

好的话追加分

command1(1) - command1(3) 数组控件 剪刀石头布
command4(1) – command4(10) 数组控件 猜苹果
command2 重新开始
label1 讯息提示
label2 我方显示
label3 电脑显示
list1 胜负纪录
程序并没有太复杂的绕圈圈 都是平铺直叙
让你可以比较容易了解 其实是可以改成更单纯些

Dim cw, yw, ccc(10), cap, yap As Integer
Dim cq, yq As String
Private Sub Command1_Click(Index As Integer)
For i = 1 To 10
Command4(i).Enabled = False
Next i

Randomize
Label1.Caption = ""
aaa = Index
Label2.Caption = Command1(Index).Caption
bbb = Int(Rnd * 3 + 1)
Label3.Caption = Command1(bbb).Caption

If aaa = bbb Then
Label1.Caption = "不分胜负 重来一次"
Exit Sub
End If

If aaa = 1 And bbb = 2 Or aaa = 2 And bbb = 3 Or aaa = 3 And bbb = 1 Then
cq = "你出" & Label2.Caption & " 电脑出" & Label3.Caption & " 电脑赢"
List1.AddItem cq
cw = cw + 1
For i = 1 To 10
If ccc(i) <> 2 Then Command4(i).Enabled =