如何利用VB编一个程序，使电脑和你玩“剪刀石头布”的游戏

2024-10-30 07:12:01

推荐回答（4个）

回答1：

sub guessfigure()
on error goto err
dim a as integer
a=3*rnd()+1
dim b as integer
b=cint(inputbox("Input Figure(1=Stone,2=Scissors,3=Cloth"))
if b>3 or b<0 then exit sub
if (b=1 and a=2) or (b=2 and a=3) or (b=3 and a=1) then
msgbox "You Win"
else
msgbox "You Failed"
end if
exit sub
err:
msgbox "Input Error"
end sub

回答2：

我有现成的VB的，Excel的，留下邮箱给我发个消息发给你

回答3：

思路：设置剪刀为1，石头为2，布为3
每毫秒返回一个随机数值（1-3之间），你可以点1、2、3，计时器停止，然后进行判断。

回答4：

你自己采用选择方式，令他们等于1，2，3，电脑则采用随机数（从1.2.3中产生），比较是否相等就可以了
gz100@163.com