功能已经完善 调试上过百遍 敢为仁兄为何 叫我菜鸡
howmuch=inputbox("请输入你要和电脑玩几次？"&chr(10)&chr(10)&"游戏由本人开发的垃圾VBScript游戏","电脑询问")
if howmuch <> "" then
if isnumeric(howmuch) then
msgbox howmuch &"次已设置成功"
for i=0 to howmuch-1
randomize
what=int(rnd()*3-1+1)+1
woola=""
if what=1 then
woola="石头"
elseif what=2 then
woola="剪刀"
elseif what=3 then
woola="布"
else
woola="0"
end if
what2=0
inx=inputbox("欢迎光临石头剪刀布游戏！"&chr(10)&"游戏规则:"&chr(10)&"你可以输入，石头，剪刀，布来进行游戏"&chr(10)&chr(10)&"准备好了吗？现在可以愉快的开始游戏了！！！","石头剪刀布游戏")
if inx="" then
msgbox "输入不能为空"
else
select case inx
case "石头"
what2=1
if inx<>woola then
if woola="剪刀" then
msgbox "你出:"&inx&" 电脑出"&woola&"! 恭喜你，战胜了电脑"
else
msgbox "你出:"&inx&" 电脑出"&woola&"! 电脑已经将你打败！"
end if
else
msgbox "你出:"&inx&" 电脑出"&woola&"! 电脑表示想重来！"
end if
case "剪刀"
what2=2
if inx<>woola then
if woola="布" then
msgbox "你出:"&inx&" 电脑出"&woola&"! 恭喜你，战胜了电脑"
else
msgbox "你出:"&inx&" 电脑出"&woola&"! 电脑已经将你打败！"
end if
else
msgbox "你出:"&inx&" 电脑出"&woola&"! 电脑表示想重来！"
end if
case "布"
what2=3
if inx<>woola then
if woola="石头" then
msgbox "你出:"&inx&" 电脑出"&woola&"! 恭喜你，战胜了电脑"
else
msgbox "你出:"&inx&" 电脑出"&woola&"! 电脑已经将你打败！"
end if
else
msgbox "你出:"&inx&" 电脑出"&woola&"! 电脑表示想重来！"
end if
case else
msgbox "输入不正确",16,"错误"
end select
end if
next
else
msgbox "类型必须是数字"
end if
else
msgbox "数值不能为空"
end if
