易语言帮忙写个数字小程序 120
我想设置在选择框内手动输入N个数字用“,”逗号隔开,然后从这些我输入的数字内随机选择6个。求大神帮忙写一下。...
我想设置在选择框内手动输入N个数字用“,”逗号隔开,然后从这些我输入的数字内随机选择6个。求大神帮忙写一下。
展开
展开全部
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 总数, 整数型
.局部变量 随机数, 整数型
文本数组 = 分割文本 (编辑框1.内容, “,”, )
总数 = 取数组成员数 (文本数组)
编辑框2.内容 = “”
.判断开始 (总数 ≥ 6)
置随机数种子 ()
.计次循环首 (6, x)
随机数 = 取随机数 (1, 总数)
编辑框2.加入文本 (文本数组 [随机数] + “,”)
.计次循环尾 ()
.默认
信息框 (“原数据不足六个”, 0, “错误!”, )
.判断结束
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 总数, 整数型
.局部变量 随机数, 整数型
文本数组 = 分割文本 (编辑框1.内容, “,”, )
总数 = 取数组成员数 (文本数组)
编辑框2.内容 = “”
.判断开始 (总数 ≥ 6)
置随机数种子 ()
.计次循环首 (6, x)
随机数 = 取随机数 (1, 总数)
编辑框2.加入文本 (文本数组 [随机数] + “,”)
.计次循环尾 ()
.默认
信息框 (“原数据不足六个”, 0, “错误!”, )
.判断结束
追问
感谢大神,不好意思再帮个忙。能否随机出来的6个数字不重复。
非常辛苦了。在此感谢了,麻烦了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询