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

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

终极破产版石头剪刀布

'初始化表示手势的变量
Dim gesture(2),t1,t2
gesture(0) = "石头、"
gesture(1) = "剪刀、"
gesture(2) = "布、"

'记录游戏开始时间
t1=timer()

'初始化对玩家获胜次数计数的变量
wins = 0

'初始化随机数种子