打字猴:1.700414287e+09
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
1700414325 Else
1700414326
1700414327    MsgBox s&”…计算机获胜！”
1700414328
1700414329 End If
1700414330
1700414331 Next
1700414332
1700414333 ‘显示玩家的获胜次数
1700414334
1700414335 MsgBox “玩家获胜次数：”&wins
1700414336
[ 上一页 ]  [ :1.700414287e+09 ]  [ 下一页 ]