今天小编就为大家分享一篇关于易语言制作双色球随机选号工具的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧
双色球随机选号代码
.版本 2
.程序集 窗口程序集1
.子程序 _随机选号按钮_被单击
.局部变量 z, 逻辑型
.局部变量 随机号
随机号 ＝ 取随机数 (1, 33)
.如果 (随机号 ＜ 10)
红球编辑框1.内容 ＝ “0” ＋ 到文本 (随机号)
.否则
红球编辑框1.内容 ＝ 到文本 (随机号)
z ＝ 假
.如果结束
.循环判断首 ()
随机号 ＝ 取随机数 (1, 33)
.如果 (随机号 ＝ 到数值 (红球编辑框1.内容))
z ＝ 真
.否则
.如果 (随机号 ＜ 10)
红球编辑框2.内容 ＝ “0” ＋ 到文本 (随机号)
.否则
红球编辑框2.内容 ＝ 到文本 (随机号)
z ＝ 假
.如果结束
.如果结束
.循环判断尾 (z)
.循环判断首 ()
随机号 ＝ 取随机数 (1, 33)
.如果 (随机号 ＝ 到数值 (红球编辑框1.内容) 或 随机号 ＝ 到数值 (红球编辑框2.内容) 或 随机号 ＝ 到数值 (红球编辑框4.内容))
z ＝ 真
.否则
.如果 (随机号 ＜ 10)
红球编辑框3.内容 ＝ “0” ＋ 到文本 (随机号)
.否则
红球编辑框3.内容 ＝ 到文本 (随机号)
z ＝ 假
.如果结束
.如果结束
.循环判断尾 (z)
.循环判断首 ()
随机号 ＝ 取随机数 (1, 33)
.如果 (随机号 ＝ 到数值 (红球编辑框1.内容) 或 随机号 ＝ 到数值 (红球编辑框2.内容))
z ＝ 真
.否则
.如果 (随机号 ＜ 10)
红球编辑框4.内容 ＝ “0” ＋ 到文本 (随机号)
.否则
红球编辑框4.内容 ＝ 到文本 (随机号)
z ＝ 假
.如果结束
.如果结束
.循环判断尾 (z)
.循环判断首 ()
随机号 ＝ 取随机数 (1, 33)
.如果 (随机号 ＝ 到数值 (红球编辑框1.内容) 或 随机号 ＝ 到数值 (红球编辑框2.内容) 或 随机号 ＝ 到数值 (红球编辑框4.内容) 或 随机号 ＝ 到数值 (红球编辑框3.内容))
z ＝ 真
.否则
.如果 (随机号 ＜ 10)
红球编辑框5.内容 ＝ “0” ＋ 到文本 (随机号)
.否则
红球编辑框5.内容 ＝ 到文本 (随机号)
z ＝ 假
.如果结束
.如果结束
.循环判断尾 (z)
.循环判断首 ()
随机号 ＝ 取随机数 (1, 33)
.如果 (随机号 ＝ 到数值 (红球编辑框1.内容) 或 随机号 ＝ 到数值 (红球编辑框2.内容) 或 随机号 ＝ 到数值 (红球编辑框4.内容) 或 随机号 ＝ 到数值 (红球编辑框3.内容) 或 随机号 ＝ 到数值 (红球编辑框5.内容))
z ＝ 真
.否则
.如果 (随机号 ＜ 10)
红球编辑框6.内容 ＝ “0” ＋ 到文本 (随机号)
.否则
红球编辑框6.内容 ＝ 到文本 (随机号)
z ＝ 假
.如果结束
.如果结束
.循环判断尾 (z)
随机号 ＝ 取随机数 (1, 16)
.如果 (随机号 ＜ 10)
蓝球编辑框.内容 ＝ “0” ＋ 到文本 (随机号)
.否则
蓝球编辑框.内容 ＝ 到文本 (随机号)
z ＝ 假
.如果结束
运行结果：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对推扬网www.tuiyang.com的支持。如果你想了解更多相关内容请查看下面相关链接 | 
