如何生成4位随机数字

郁闷龙 · 发表于 2011-10-10 20:35:00

如何生成4位随机数字，要求就是不能是4位全部相同，或者不能1234,5678,8765，这样连续的数字。

yaoming110 · 发表于 2011-10-10 20:35:01

本帖最后由 yaoming110 于 2011-10-10 21:35 编辑

[e].版本 2

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型

置随机数种子 (到整数 (取秒 (取现行时间 ())))
a ＝取随机数 (0, 9)
b ＝取随机数 (0, 9)
c ＝取随机数 (0, 9)
d ＝取随机数 (0, 9)
.如果真 (a ＝ b 且 a ＝ c 且 a ＝ d)
_按钮1_被单击 ()
.如果真结束
.如果真 (a ＋ 1 ＝ b 且 b ＋ 1 ＝ c 且 c ＋ 1 ＝ d)
_按钮1_被单击 ()
.如果真结束
.如果真 (a － 1 ＝ b 且 b － 1 ＝ c 且 c － 1 ＝ d)
_按钮1_被单击 ()
.如果真结束
输出调试文本 (a, b, c, d)
[/e]

已经习惯 · 发表于 2011-10-10 20:35:48

{:3_244:}
取随机数

う网淅乄 · 发表于 2011-10-10 20:37:40

本帖最后由似水往昔浮流年于 2011-10-10 20:38 编辑

编辑框1.内容=到文本（取随机数（0，9））+到文本（取随机数（0，9））+到文本（取随机数（0，9））+到文本（取随机数（0，9））
或
编辑框1.内容=到文本（取随机数（1000，9999））

OnLy， · 发表于 2011-10-10 20:41:28

不能取连号的数还真难

迷离 · 发表于 2011-10-10 20:55:37

本帖最后由 comingrain 于 2011-10-10 21:08 编辑

占个位置，等下传代码！

差不多了.rar (1.32 KB, 下载次数: 34)

一棒过克 · 发表于 2011-10-10 21:13:53

本帖最后由一棒过克于 2011-10-10 21:16 编辑

[e].版本 2

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b
.局部变量 c
.局部变量 d

置随机数种子 ()
a ＝取随机数 (0, 9)
b ＝取随机数 (0, 9)
c ＝取随机数 (0, 9)
d ＝取随机数 (0, 9)
.如果真 (a ≠ b 或 a ≠ c 或 a ≠ d 或 b ≠ c 或 b ≠ d 或 c ≠ d)
.如果真 (b ≠ a ＋ 1 且 c ≠ a ＋ 2 且 d ≠ a＋ 3 或 b ≠ a － 1 且 c ≠ a － 2 且 d ≠ a － 3)
编辑框1.内容＝到文本 (a) ＋到文本 (b) ＋到文本 (c) ＋到文本 (d)
.如果真结束

[/e]

清清淡淡 · 发表于 2011-10-10 21:19:53

本帖最后由 o1519038880 于 2011-10-10 21:21 编辑

{:3_226:}绝对不连号几行代码搞定看着可以给个最佳

chimo · 发表于 2011-10-10 21:36:55

{:3_227:}

取随机数，并且判断

如果a+3=b+2=c+1=d，则条件不成立、重新取值，否则跳过。

这个不是很简单嘛........

恒华科技 · 发表于 2011-10-10 22:10:12

取随机数（1000，9999）

		自动登录	找回密码
密码			注册

[已解决] 如何生成4位随机数字

最佳答案

点评

点评

点评