易语言 按键精灵 两个，能不能做出随机8-10个数字的，倒到文本或者剪切板，有的话给高分

Question

易语言 按键精灵 两个，能不能做出随机8-10个数字的，倒到文本或者剪切板，有的话给高分

Answer 1

易语言：
.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 随机数, 文本型
.局部变量 文本, 文本型

.计次循环首 (20, )
置随机数种子 ()
随机数 ＝ 多项选择 (取随机数 (1, 10), “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “0”)
文本 ＝ 文本 ＋ 随机数
.计次循环尾 ()
调试输出 (文本)

Answer 2

MessageBox("程序开始")
set fso=CreateObject("Scripting.FileSystemObject")
const forreading=1
const forwriting=2
const forappending=8
Rem start
Dim fso
count=0
pd1=fso.FileExists("d:\随机数.txt")
If pd1=0
set pd1=fso.createtextfile("d:\随机数.txt",false)
pd1.close
End If
Randomize
x = Int((99999999 * Rnd) + 10000000)
MessageBox(x)
set pd12=fso.opentextfile("d:\随机数.txt",forappending)
pd12.writeline(x)
pd12.close
Goto start

Answer 3

置随机数种子()

到剪切板文本(到文本(取随机数(10000000,999999999)))
';

Answer 4

您能说清楚点吗 不太听懂您的意思

Answer 5

至随机数种子（）
取随机数（2，8）