易语言制作双色球随机选号工具的代码

双色球随机选号代码

.版本 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 ＝ 假
.如果结束

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对呐喊教程的支持。如果你想了解更多相关内容请查看下面相关链接

声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：notice#nhooo.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。