用VB写一个小游戏，用电脑猜石头剪刀布(需要代码)

1.创建三个按钮:命令1、命令2和命令3。

2.创建两个标签，标签1，标签2标签2。

3.复制代码并运行它。

Dim a As Long

Dim b As Long

Dim c一样长

Dim e一样长

私有子命令1_Click()

c = 1

呼叫检查(c)

末端接头

私有子命令2_Click()

c = 2

呼叫检查(c)

末端接头

私有子命令3_Click()

c = 3

呼叫检查(c)

末端接头

私有子窗体_Load()

命令1。Caption = "石头"

命令2。Caption = "剪刀"

命令3。Caption = "布"

Label1。标题= " "

a = 0

b = 0

e = 0

调用printt(a，b，e，0)

末端接头

子检查(温度一样长)

Dim d As Long

使不规则化

d = Int(Rnd * 3 + 1)

如果d =温度，则

e = e + 1

调用printt(a，b，e，d)

其他

选择案例d

案例1

如果温度= 2，则

a = a + 1

调用printt(a，b，e，d)

那么ElseIf temp = 3

b = b + 1

调用printt(a，b，e，d)

如果…就会结束

案例2

如果温度= 1，则

b = b + 1

调用printt(a，b，e，d)

那么ElseIf temp = 3

a = a + 1

调用printt(a，b，e，d)

如果…就会结束

案例3

如果温度= 1，则

a = a + 1

调用printt(a，b，e，d)

那么ElseIf temp = 2

b = b + 1

调用printt(a，b，e，d)

如果…就会结束

结束选择

如果…就会结束

末端接头

Sub printt(长为temp1，长为temp2，长为temp3，长为temp4)

标签2。Caption = "计算机获胜" &；temp 1 & amp；“时间，”&；“你赢了”&；temp2 & amp“时间，”&；“画”&；温度& amp“时间。”

选择案例温度4

案例1

Label1。Caption = "石头"

案例2

Label1。Caption = "剪刀"

案例3

Label1。Caption = "布"

案例0

Label1。Caption = "电脑还没出来"

结束选择

末端接头