Question

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

Answer 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

Answer 2

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

Answer 3

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

Answer 4

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