《计算机是怎样跑起来的》优化使用VBScript语言编写的石头剪刀布游戏

今天在看失泽久雄先生著写的《计算机是怎样跑起来的》时&＃xff0c;其中有一段使用Vbscript编写的石头剪刀布游戏。由于自己是个小白&＃xff0c;从来没听说过这种不是特别热门的脚本语言&＃xff0c;一看用windows系统的记事本写的代码&＃xff0c;保存后&＃xff0c;竟然后缀名一改成.VBS就可以在Windows 98版本以上的Windows系统中运行&＃xff0c;像这样

于是颇有兴致的实现了一番&＃xff0c;并在网上学习了一些Vbscript的语法&＃xff0c;对书中的这个小程序做了进一步的优化。
由于是在windows系统自带的笔记本中进行编写&＃xff0c;所以敲代码的时候非常容易出错&＃xff0c;不过好在你可以双击.vbs的文件&＃xff0c;如果语法什么的有错误&＃xff0c;它会替你检查并报错。

书中小程序的源代码

优化Vbscript编写的石头剪刀布游戏代码实现

&＃39;初始化表示手势的变量
Dim gesture(2)
gesture(0) &＃61; "石头"
gesture(1) &＃61; "剪刀"
gesture(2) &＃61; "布"&＃39;初始化对玩家获胜次数计数的变量
wins &＃61; 0&＃39;初始化随机数种子
Randomize&＃39;显示程序启动信息
MsgBox "破产版石头剪刀布游戏 Version-2.0 by HelloStars"&＃39;进行五轮比试
Dim Count:Count &＃61; 5
While Count <> 0
Count&＃61;5For i &＃61; 1 to 5&＃39;输入玩家的手势user &＃61; InputBox("游戏共进行5次&＃xff0c;请输入手势所代表的数字&＃xff08;0&＃xff1a;石头、1&＃xff1a;剪刀、2&＃xff1a;布&＃xff09;")&＃39;先判断玩家输入的手势是否超过选择的范围If not (IsNUmeric(user)) Thenmsgbox"您输入的不是数字&＃xff0c;请重新开始游戏" Exit ForElseif user>&＃61;3 or user <0 Thenmsgbox"您输入的数字超出范围&＃xff0c;请重新开始游戏" Exit ForElse&＃39;用随机数决定计算机的手势 dim max,minmax&＃61;2min&＃61;0computer &＃61; (Int((max-min&＃43;1)*Rnd&＃43;min))&＃39;生成提示双方出的手势的字符串s &＃61; "玩家&＃xff1a;" & gesture(user) & "计算机&＃xff1a;" & gesture(computer)End If&＃39;判定胜负&＃xff0c;显示结果If CInt(user) &＃61; computer ThenMsgBox s & "---平局&＃xff01;"ElseIf computer &＃61; (user &＃43; 1) Mod 3 ThenMsgBox s & "---玩家获胜&＃xff01;"wins &＃61; wins &＃43; 1Else MsgBox s & "---计算机获胜&＃xff01;"End If Count &＃61; Count-1Next
Wend
&＃39;显示玩家的获胜次数
MsgBox "玩家获胜次数&＃xff1a;" & wins

结果如下&＃xff1a;有兴趣的朋友可以自己动手实践一下&＃xff0c;