VBScript终极破产版石头剪刀布游戏（VBS语言实现）

前两天拜读失泽久雄先生所著写的《计算机是怎样跑起来的》，当时看书中的代码用VBS语言写的一个石头剪刀布游戏特别好玩，于是手敲了一遍，并做了些改进——石头剪刀布小游戏。结果后来给一个朋友看，发现有bug，于是又在网上查了些资料，做了一些改进，此次带来石头剪刀布3.0破产版。
以下为代码实现，纯属无聊，没有妹子聊天的朋友可以试一试，用Windows自带的笔记本把下面的代码粘过去，文档后缀名改成 .VBS就可以运行了。

终极破产版石头剪刀布

'初始化表示手势的变量
Dim gesture(2),t1,t2
gesture(0) = "石头、"
gesture(1) = "剪刀、"
gesture(2) = "布、"'记录游戏开始时间
t1=timer()'初始化对玩家获胜次数计数的变量
wins = 0'初始化随机数种子
Randomize'显示程序启动信息
MsgBox "破产版石头剪刀布游戏 Version-3.0 by HelloStars"'进行五轮比试
Dim Count:Count = 5
While Count <> 0
Count=5For i = 1 to 5'输入玩家的手势user = InputBox("游戏共进行5次，请输入手势所代表的数字（0：石头、1：剪刀、2：布）"& vbcrlf &"点击取消将退出游戏","石头剪刀布小游戏3.0 by HelloStars","请输入")'退出程序If user ="" ThenWScript.Quit '先判断玩家输入的手势是否超过选择的范围ElseIf not (IsNUmeric(user))  Thenmsgbox"您输入的不是数字，请重新开始" Exit ForElseIf  user>=3 or user <0 Thenmsgbox"您输入的数字超出范围，请重新开始" Exit ForElse '用随机数决定计算机的手势 computer = Cint(Rnd * 2)'生成提示双方出的手势的字符串s = "玩家：" & gesture(user) & "计算机：" & gesture(computer)End IfCount = Count-1  Next
Wend'显示玩家的游戏时间
t2=timer()
runtime=round((t2-t1),2)
MsgBox "你玩了"&runtime&"秒"
'显示玩家的获胜次数
MsgBox "你的获胜次数：" & winsSub Hello()'创建方法  '判定胜负，显示结果If CInt(user) = computer ThenMsgBox s & "---平局！"ElseIf computer = (Cint(user) + 1) Mod 3 ThenMsgBox s & "---oh my god！你赢了！"wins = wins + 1Else MsgBox s & "---计算机获胜！"End If
End Sub

VBScript终极破产版石头剪刀布游戏（VBS语言实现）相关推荐

《计算机是怎样跑起来的》优化使用VBScript语言编写的石头剪刀布游戏
今天在看失泽久雄先生著写的<计算机是怎样跑起来的>时,其中有一段使用VBScript编写的石头剪刀布游戏.由于自己是个小白,从来没听说过这种不是特别热门的脚本语言,一看用windows系统 ...
Java语言-石头剪刀布游戏
文章目录励志一.石头剪刀布游戏 1.1[问题描述] 1.2[基本要求] 1.3[模块划分] 1.4[算法思想] 1.5[题解] 拓展:制作网页版代码: 效果截图励志众里寻他千百度,蓦然回首, ...
一个用 C 语言写的迷你版 2048 游戏，只有 500个字符
Jay Chan 用 C 语言写的一个迷你版 2048 游戏,只有 487 个字符.来围观吧 M[16],X=16,W,k;main(){T(system("stty cbreak" ...
一个用 C 语言写的迷你版 2048 游戏，仅仅有 500个字符
Jay Chan 用 C 语言写的一个迷你版 2048 游戏,仅仅有 487 个字符. 来围观吧 M[16],X=16,W,k;main(){T(system("stty cbreak&qu ...
c语言辗转相除法不同规模的情况,C语言讲义终极勘误版.doc
C语言讲义终极勘误版 C语言讲义 I.基本数据类型整型类型说明符存储范围所占字节(B)int-231 ~ 231-14short (int)-215 ~ 215-12signed (int)-2 ...
C语言版桌球游戏台球游戏源代码，含完整程序设计文档及答辩PPT，含可执行文件
C语言版桌球游戏台球游戏源代码,含完整程序设计文档及答辩PPT,含可执行文件 C语言实现,图形库使用Easy_X,开发环境使用VS2013. init 初始化 show 游戏画面显示 refreshW ...
bnu1209 1--0的神奇游戏 C语言版
北京师范大学珠海分校 Judge Online of ACM ICPC 1209 1-->0的神奇游戏 C语言版 #include <stdio.h> int main(){ int ...
石头剪刀布游戏高级版（Java编写）
石头剪刀布 1.问题描述 [问题描述] 用 JAVA 语言设计如下界面的石头剪刀布游戏.游戏的一方点击界面上石头.剪刀.布按钮,游戏的另一方计算机随机选择,然后给出游戏结果. [基本要求] 按照下面 ...
石头剪刀布php源码,php实现的网页版剪刀石头布游戏示例
本文实例讲述了php实现的网页版剪刀石头布游戏.分享给大家供大家参考,具体如下: /* * Created on 2016-11-25 * */ if (isset($_POST['sub'])) { ...

VBScript终极破产版石头剪刀布游戏（VBS语言实现）

终极破产版石头剪刀布

VBScript终极破产版石头剪刀布游戏（VBS语言实现）相关推荐

最新文章

热门文章