用VB玩石头剪刀布游戏

这是一个非常简单的游戏。大致流程如下:点击图片，产生一个随机数1-3(也就是电脑产生的)。可以把石头剪刀布分别当作0，1，2，然后用if来判断，最后记录胜负。

代码如下:

请在节目目录中放三张名为“剪刀”、“石头”、“布”的jpg图片。请在属性列表中自行设置。图4是电脑加载的。

Option Explicit“全局变量声明

记录你的选择。

Dim ComputerChoose '记录计算机选择。

0石头1剪刀2布

私子Picture1_Click()'选择了一颗石头。

你选择= 0 '记录石头。

“随机化”随机数生成函数

ComputerChoose = Int(Rnd() * 3)'选择计算机，并记录下载。

“显示”显示计算机的选择(这是一个用户功能)

多哥'判断赢家(这是一个用户功能)

末端接头

'私子Picture2_Click()'基本和上面一样，选剪刀。

使不规则化

YouChoose = 1

ComputerChoose = Int(Rnd() * 3)

显示

多哥

末端接头

'私子Picture3_Click()'基本和上面一样，选石头。

使不规则化

你选择= 2

ComputerChoose = Int(Rnd() * 3)

显示

多哥

末端接头

Sub ToGo()'判断函数

如果您选择=计算机，请选择“然后”

MsgBox“Ping”

Else if(你选择= 0，计算机选择= 1) or(你选择= 1，计算机选择= 2) or(你选择= 2，计算机选择= 0) T在有三种可能的情况下决定不赢。

MsgBox“你赢了”

其他人输了。

MsgBox“计算机获胜”

如果…就会结束

末端接头

' Sub display()'显示选择的计算机。

“出错时继续下一步”如果遇到错误，请继续。

如果计算机选择= 0，那么如果计算机选择石头。

图4。图片= loadpicture (app。小路+“石头。jpg ")'加载一张石图。

MsgBox "石头"'对话框弹出一个石头。

否则，如果计算机选择= 1，则“同上”。

picture 4 . picture = load picture(app . path+" scissors . jpg ")

MsgBox“剪刀”

ElseIf ComputerChoose = 2然后

picture 4 . picture = load picture(app . path+" cloth . jpg ")

MsgBox“布料”

如果…就会结束

末端接头