Small Basic中文站-快乐编程

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 585|回复: 2

掷骰子游戏

[复制链接]
发表于 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

点评

海!外直播 t.cn/RxmJTrC 禁闻视频 t.cn/RJJZmvY 倒的高官越来越多,一薄一厚难以满足大家胃口,都在翘首以盼下一只“大老虎”,大清只有一个和珅,而今遍地是和珅,个中何故?看这个就知道了..  发表于 2018-7-18 19:31
回复

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-9-20 08:06 , Processed in 0.149036 second(s), 11 queries , File On.

Powered by Discuz! X3.3

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