Small Basic中文站-快乐编程

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 319|回复: 1

掷骰子游戏

[复制链接]
发表于 2018-3-10 17:24:18 | 显示全部楼层 |阅读模式
代码如下:
While "TRUE"
  TextWindow.WriteLine("比赛开始,请甲按Enter投掷骰子。")
  TextWindow.Pause()
  a=Math.GetRandomNumber(6)
  TextWindow.WriteLine("甲投掷的骰子点数是:"+a)
  TextWindow.WriteLine("请乙按Enter投掷骰子。")
  TextWindow.Pause()
  b=Math.GetRandomNumber(6)
  TextWindow.WriteLine("乙投掷的骰子点数是:"+b)
  If a<b Then
    TextWindow.WriteLine("甲输了!")
  EndIf
  If b>a Then
    TextWindow.WriteLine("乙输了!")
  EndIf
  If a=b Then
    TextWindow.WriteLine("平局!")
  EndIf
  TextWindow.Pause()
  TextWindow.Clear()
  EndWhile

回复

使用道具 举报

 楼主| 发表于 2018-4-6 14:30:27 | 显示全部楼层
没人吗?            
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|手机版|Small Basic中文站-快乐编程 ( 闽ICP备09051788号 |

GMT+8, 2018-6-19 12:29 , Processed in 0.122943 second(s), 9 queries , File On.

Powered by Discuz! X3.3

快速回复 返回顶部 返回列表