求有范围随机数的源码或生成器

1425113841

这里改成这样

Bking

p632264898

liuruilol 发表于 2020-3-25 18:16

你这个也可以？但是我只能给前面那一位？因为他是第一个发的？

p632264898

1425113841 发表于 2020-3-25 13:02

怎么在编辑框加入换行呢？

1425113841

p632264898 发表于 2020-3-25 19:37
怎么在编辑框加入换行呢？

编辑框1.加入文本(#换行符)

p632264898

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 int, 整数型

编辑框1.内容 ＝ “”
.计次循环首 (到整数 (编辑框2.内容), )  ' 这里设置要几个数字
    ' int ＝ 取随机数 (0, 5)  ' 这里设置数字范围
    .' 如果真 (int ≠ 0)
        .' 如果真 (取随机数 (0, 2) ＝ 2)
            ' int ＝ －int
        .如果真结束

    .如果真结束
    编辑框1.加入文本 (到文本 (randomInt (到整数 (编辑框3.内容), 到整数 (编辑框4.内容))) ＋ “ ”)
.计次循环尾 ()


.子程序 randomInt, 整数型
.参数 least, 整数型
.参数 max, 整数型
.局部变量 int, 整数型

.如果真 (max ＜ least)
    返回 (0)
.如果真结束
置随机数种子 ()
.如果 (least ＜ 0)
    .如果 (取随机数 (0, 2) ＝ 2)  ' 随机转负数
        ' 负数
        int ＝ 取随机数 (1, －least)  ' 负负得正
        int ＝ －int  ' 重新转负
    .否则
        ' 正数
        int ＝ 取随机数 (0, max)
    .如果结束

.否则
    int ＝ 取随机数 (least, max)
.如果结束
返回 (int)
在返回后面加入么，还是哪个位置

p632264898

1425113841 发表于 2020-3-25 19:50
编辑框1.加入文本(#换行符)

我的意思是说，比如随机个数是10个，读完这10个随机数后 换行继续读下面10个随机数

1425113841

p632264898 发表于 2020-3-25 19:52
.版本 2

.程序集 窗口程序集_启动窗口

计次循环尾 ()

之后加入

编辑框1.加入文本(#换行符)

p632264898

1425113841 发表于 2020-3-25 21:55
计次循环尾 ()

之后加入

我试过了，不行输出的只有一行

1425113841

p632264898 发表于 2020-3-25 22:24
我试过了，不行输出的只有一行

把  编辑框1.内容 ＝ “”   去掉