打字猴:1.700414275e+09
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
1700414303 user=CInt(InputBox(“0:石头、1:剪刀、2:布”))
1700414304
1700414305 ‘用随机数决定计算机的手势
1700414306
1700414307 Computer=CInt(Rnd*2)
1700414308
1700414309 ‘生成提示双方出的手势的字符串
1700414310
1700414311 s=”玩家:”&gesture(user)&”、计算机:”&gesture(computer)
1700414312
1700414313 ‘判定胜负，显示结果
1700414314
1700414315 If user=computer Then
1700414316
1700414317    MsgBox s &”…平局！”
1700414318
1700414319 ElseIf computer=(user+1) Mod 3 Then
1700414320
1700414321    MsgBox s &”…玩家获胜！”
1700414322
1700414323    wins=wins+1
1700414324
[ 上一页 ]  [ :1.700414275e+09 ]  [ 下一页 ]