1700414265
1700414266
请用记事本等文本编辑器编写这个程序，并存储到扩展名为.vbs的文件中。只要双击保存后的文件，程序就可以执行了
1700414267
1700414268
图4.3 代码清单4.1执行后的结果
1700414269
1700414270
1700414271
1700414272
1700414273
代码清单4.1 用VBScript编写的“石头剪刀布游戏”
1700414274
1700414275
‘初始化表示手势的变量
1700414276
1700414277
Dim gesture(2)
1700414278
1700414279
gesture(0)=”石头”
1700414280
1700414281
gesture(1)=”剪刀”
1700414282
1700414283
gesture(2)=”布”
1700414284
1700414285
‘初始化对玩家获胜次数计数的变量
1700414286
1700414287
wins0=0
1700414288
1700414289
‘初始化随机数种子
1700414290
1700414291
Randomize
1700414292
1700414293
‘显示程序启动信息
1700414294
1700414295
MsgBox “石头剪刀布游戏ver.1.00 by H.Yazawa”
1700414296
1700414297
‘进行五轮比试
1700414298
1700414299
For i=1 To 5
1700414300
1700414301
‘输入玩家手势
1700414302
1700414304
1700414305
‘用随机数决定计算机的手势
1700414306
1700414307
Computer=CInt(Rnd*2)
1700414308
1700414309
‘生成提示双方出的手势的字符串
1700414310
1700414312
1700414313
‘判定胜负，显示结果
1700414314