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

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