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

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