|
发表于 2006-7-16 22:23:42
|
显示全部楼层
学习易语言,也发个代码,呵呵。
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 判断循环首a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 a, 整数型
.局部变量 s1, 整数型
.局部变量 s2, 整数型
.局部变量 s3, 整数型
.局部变量 s4, 整数型
.局部变量 s5, 整数型
.局部变量 s6, 整数型
.局部变量 s7, 整数型
.局部变量 s8, 整数型
.局部变量 s9, 整数型
.局部变量 s10, 整数型
.局部变量 s11, 整数型
.局部变量 s12, 整数型
.判断循环首 (a ≠ 17 或 b ≠ 16 或 c ≠ 19 或 d ≠ 18)
s1 = 取随机数 (0, 9)
s2 = 取随机数 (0, 9)
s3 = 取随机数 (0, 9)
s4 = 取随机数 (0, 9)
s5 = 取随机数 (0, 9)
s6 = 取随机数 (0, 9)
s7 = 取随机数 (0, 9)
s8 = 取随机数 (0, 9)
s9 = 取随机数 (0, 9)
s10 = 取随机数 (0, 9)
s11 = 取随机数 (0, 9)
s12 = 取随机数 (0, 9)
a = s1 + s2 + s3
b = s4 + s5 + s6
c = s7 + s8 + s9
d = s10 + s11 + s12
.判断循环尾 ()
编辑框1.内容 = 到文本 (s1) + 到文本 (s2) + 到文本 (s3) + 到文本 (s4) + 到文本 (s5) + 到文本 (s6) + 到文本 (s7) + 到文本 (s8) + 到文本 (s9) + 到文本 (s10) + 到文本 (s11) + 到文本 (s12)
[ 本帖最后由 lhl8730 于 2006-7-16 22:37 编辑 ] |
-
-
注册码.rar
2.87 KB, 下载次数: 2, 下载积分: 飘云币 -2 枚
|