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

172 阅读 0 评论 114 点赞

我是靠谱客的博主怕孤独早晨，最近开发中收集的这篇文章主要介绍易语言制作双色球随机选号工具的代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

双色球随机选号代码

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

运行结果：