第一种方式是，程序可以将金额小于一兆元（足够的），这一数字计算汉字和数字：功能（一种货币）ATOC字符串。
定义两个字符串，a的值最多是两个十进制数。
昏暗的一为字符串的定义如下。
字符串的昏暗string2定义如下。
昏暗的string3从原来的值的字符串值。
模糊i作为整数循环变量的取值。模糊j作为整数a乘以100个字符串长度。
昏暗的CH1作为字符串的数字阅读。
昏暗的CH2为字符串的数字位汉字阅读。
昏暗的零为整是用来计算非零连续几。

string1 =lingyiersansiwuluqibajiu
STRING2 =1亿千千万万万万万万元角
MsgBox CStr（* 100）
如果仪器（1、CStr（* 100），，> 0）
呃。提高5000，这个功能（ATOC（））只有将两的十进制数的值！
最后如果

J =莱恩（CStr（A * 100））
STRING2 =右（string2，J）以相应的数字string2的价值。

对于i = 1到j
string3 =中（* 100，I，1）删除要转换一个值。
如果string3 <> 0
CH1 =中（一、瓦迩（string3）+ 1, 1）
CH2 =中（string2，I，1）
零=零+ 1，表明该标准不为零。
其他的
如果零0或我J <> = 9或我=我= J - 5或- 1
如果对（ATOC，1）=零然后ATOC =左（ATOC，Len（ATOC）- 1）
CH1 =零
其他的
= 1
最后如果
如果我的J - 10 then'if价值的转换需要扩展，下列表达式的值我改变。
CH2 =亿
我= J 6
如果零< > 0
CH2 =一万
零= 0
最后如果
我= J 2
CH2 =元
然后我= J
CH2 =全
其他的
= CH2
最后如果
零= 0
最后如果

ATOC = ATOC ch1 ch2
下一个我

ATOC =取代（ATOC，零
ATOC =取代（ATOC，零元
ATOC =取代（ATOC，零元
ATOC =取代（ATOC，零
摆脱一般的多余的零

结束功能第二种方式：以下是书面的！<
模糊STR（9）
STR（0）=零
STR（1）
STR（2）=ii
STR（3）= 三
STR（4）=放肆
STR（5）=吴
STR（6）=LU
STR（7）= 七
STR（8）= 八
STR（9）= 九
AA =要求表单（源）
HH = formatnumber（AA，2，1）
替换（HH，）。
替换（aa，）
对于i = 1到莱恩（aa）
s =中（aa，I，1）
mynum = str（）
选择案例（Len（AA）+我）
案例1：K = mynum 子
案例2：K = mynum角
案例3：K = mynum元
案例4：K = mynum 皮卡
案例5：K = mynum 白
案例6：K = mynum 千
案例7：K = mynum万
案例8：K = mynum 皮卡
案例9：K = mynum 白
案例10：K = mynum 千
最后选择
M = MK
下一个
%>



奇妙的春风的数量和大小的变换


<！——
（S = ，）然后
n = m
i = i + 2
对于j =我到莱恩（aa）
s =中（aa，I，1）
mynum = str（）
选择案例（Len（AA）+我）
案例1：P = mynum 子
案例2：P = mynum角
最后选择
M = MP
下一个
-->



>
=
大小= 40 >