1700414261
1700414262
还有一种称为“无条件分支”的流程，它就仿佛是瓢泼大雨引发的山洪，突然就向着某处流去了，可以认为这是一种特殊的条件分支。
1700414263
1700414264
虽然可能不如山水画那样优美，但还是要给大家展示一段简单的程序。代码清单4.1中列出了用VBScript（Visual Basic Scripting Edition）编写的“石头剪刀布游戏”的代码，VBScript是BASIC语言的一个版本。该程序可以在Windows 98/ME/2000/XP操作系统上运行（用于执行VBScript程序的WSH（Windows Script Host）已作为标准组件被集成在Windows 98/Me/2000/XP操作系统中）玩家和计算机进行五轮石头剪刀布比赛，比完后显示玩家获胜的次数
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