Question

按键精灵中文数字怎么递增循环

就是输入数字一，下一次循环的话会变成二，下一次会变成三，依次递增

Answer 1

如果是成千上万，那就不好弄，100以下比较容易。

追问

怎么弄？

追答

Dim Num(9),Digital(1)
Num(0) = "" : Num(1) = "一" : Num(2) = "二"
Num(3) = "三" : Num(4) = "四" : Num(5) = "五"
Num(6) = "六" : Num(7) = "七" : Num(8) = "八"
Num(9) = "九" : Digital(0) = "十" : Digital(1) = "百"
For i = 1 To 99
If i > 0 And i = 10 And i < 20 Then
b = i Mod 10
Str = Digital(0) & Num(b)
Else
a = i \ 10
b = i Mod 10
Str = Num(a) & Digital(0) & Num(b)
End If
MessageBox Str
Next

所以从1到99还是比较容易，100以上要考虑“零”，一万以上，要考虑两个“零”，算法就变得复杂。

Answer 2

for i=0 i 1to 100
i=i+1
for next