易语言把数字格式化4位数，比如数字0我让他显示0000，数字1展示0001，数字10显示0010

很简单  复制下面的代码插入到易语言调用

.版本 2

.子程序 四位数字, 文本型
.参数 数字, 整数型
.局部变量 a, 文本型

.如果真 (取文本长度 (到文本 (数字)) ＝ 1)
    a ＝ “000” ＋ 到文本 (数字)
.如果真结束
.如果真 (取文本长度 (到文本 (数字)) ＝ 2)
    a ＝ “00” ＋ 到文本 (数字)
.如果真结束
.如果真 (取文本长度 (到文本 (数字)) ＝ 3)
    a ＝ “0” ＋ 到文本 (数字)
.如果真结束
.如果真 (取文本长度 (到文本 (数字)) ＝ 4)
    a ＝ 到文本 (数字)
.如果真结束
.如果真 (取文本长度 (到文本 (数字)) ＞ 4)
    a ＝ “超过4位数”
.如果真结束
返回 (a)

.版本 2

.子程序 自动补零, 文本型, , 自动补零(9，4) 返回文本型：（“0009”）

.参数 数字, 整数型

.参数 位数, 整数型, , 位数

' 调试输出 (取重复文本 (位数 － 取文本长度 (到文本 (数字)), “0”) ＋ 到文本 (数字))

返回 (取重复文本 (位数 － 取文本长度 (到文本 (数字)), “0”) ＋ 到文本 (数字))

标签1.标题 ＝ 取文本右边 (“000” ＋ 到文本 (数字), 4)

调试输出 (格式化文本 (“%04d”, 10)) 整数型格式化
调试输出 (格式化文本 (“%04s”, “10”)) 文本型格式化

For i = 0 To 9999 KeyPress 69, 1 Delay 100 //根据实际情况适当延时 PassWord = String(4 - Len(i), "0") & i For j = 1 To 4 Key = Asc(Mid(PassWord, j, 1)) KeyPress Key, 1 Next Delay 100 //根据实际情况适当延时 Next