生成指定号段号码

和平佳人

比如我设置生成10000-100000中间的数字，自动保存到文本，听说挺简单的，想了半天也不知道咋回事。

Microseors

  

变量名	类 型	静态	数组	备 注
a	长整数型
b	长整数型
i	整数型
索引	整数型

超级列表框.表项 ＝ {  }
tttc ＝ 假
按钮5.禁止 ＝ 真
a ＝ 到长整数 (编辑框4.内容)
b ＝ 到长整数 (编辑框3.内容)
计次循环首 (a － b, i)
索引 ＝ 超级列表框.插入表项 (, 到文本 (超级列表框.取表项数 () ＋ 1), , , , )
超级列表框.置标题 (索引, 1, 到文本 (到长整数 (b ＋ i)))
插入文本行 (文件_, 到文本 (到长整数 (b ＋ i)))
如果真 (tttc)
跳出循环 ()

计次循环尾 ()
按钮5.禁止 ＝ 假

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 a, 长整数型<br /> .局部变量 b, 长整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 超级列表框.表项 ＝ {  }<br /> tttc ＝ 假<br /> 按钮5.禁止 ＝ 真<br /> a ＝ 到长整数 (编辑框4.内容)<br /> b ＝ 到长整数 (编辑框3.内容)<br /> .计次循环首 (a － b, i)<br />     索引 ＝ 超级列表框.插入表项 (, 到文本 (超级列表框.取表项数 () ＋ 1), , , , )<br />     超级列表框.置标题 (索引, 1, 到文本 (到长整数 (b ＋ i)))<br />     插入文本行 (文件_, 到文本 (到长整数 (b ＋ i)))<br />     .如果真 (tttc)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 按钮5.禁止 ＝ 假

silenter

用判断循环吧，循环最大10万，起始值是1万，

大兔崽子

.版本 2
.支持库 EThread

.子程序 _按钮1_被单击

启动线程 (&随机生成, 100, )

.子程序 随机生成, 文本型
.参数 组数, 整数型
.局部变量 a
.局部变量 b, 文本型
.局部变量 文本, 文本型

.计次循环首 (组数, )
    a ＝ 取随机数 (1, 9)
    b ＝ 到文本 (a)
    .计次循环首 (4, )
        a ＝ 取随机数 (0, 9)
        b ＝ b ＋ 到文本 (a)
    .计次循环尾 ()
    文本 ＝ 文本 ＋ b ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\随机.txt”, 到字节集 (文本))





随机生成（100）   这样就能随机生成100个号码 然后保存到当前目录的随机.txt文本里面

呵呵仙

你是随机的？还是10001~99999

易正易则

1. .版本 2
   
2. .支持库 EThread
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. 
   
6. 启动线程 (&子程序1, , )
   
7. 
   
8. .子程序 子程序1
   
9. 
   
10. 置随机数种子 ()
    
11. .计次循环首 (1000, )
    
12.     编辑框1.加入文本 (到文本 (取随机数 (10000, 100000)) ＋ #换行符)
    
13. .计次循环尾 ()
    

复制代码

易正易则

上个例子给你吧
新建 易程序.zip (1.09 KB, 下载次数: 11)

2016-6-21 14:23 上传

点击文件名下载附件