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

直到b=7

com=Int(3 * Rnd)+1

You=inputbox("1代表剪刀，2代表石头，3代表布"，"请输入一个数字1-3 ")。

如果你= " "那么

You=inputbox("1代表剪刀，2代表石头，3代表布"，"请重新输入一个数字1-3 ")。

其他

如果你=假，那么

出口do

其他

a ="":c= " "

康姆斯公司

yous(int(you))

如果int(you) = com那么

“msgbox”抽奖！你给的是:“&；c & amp电脑输出是:“&；a

那么elseif int(you) - com = 1或int(you) - com = -2

Msgbox“恭喜你，你赢了！你给的是:“&；c & amp“计算机输出是:“&；a

那么elseif int(you) - com = -1或int(you) - com = 2

Msgbox“可惜你输了！你给的是:“&；c & amp“计算机输出是:“&；a

其他

Msgbox "请输入一个1-3的数字！"

如果…就会结束

如果…就会结束

B=MsgBox("还想再来一次吗？"，4+4096，"系统提示:")

如果…就会结束

环

功能组件(数量)

选择案例编号

Case "1" a = "剪刀"

Case "2" a = "stone "

Case "3" a = "cloth "

结束选择

结束功能

函数yous(数量)

选择案例编号

Case "1" c = "剪刀"

Case "2" c = "stone "

Case "3" c = "cloth "

结束选择

c = c & amp" - "

结束功能

我给你代码，你百度HI我(我怕代码泄露！！！)