因为平时不努力，选修课又选择了数据库
现在期末了，最后的作业却不会做，只好求助达人
题目如下：

交互输入一个数值(金额)，将它转换成大写格式(考虑到万亿元级)

PS：如果可能的话，请将程序上传附件。万分感谢

新建表单，添加两个TEXT控件，一个COMMAND在command1的click代码中输入：
local a b c d e
thisform.text1.value=""
thisform.text2.value=""
a=thisform.text1.value
b=len(a)
for c=1 to b
d=substr(c,1) &&从指定表达式值的指定位置取指定长度的子串;作为函数
e=val(d)
do case
case e=o
thisform.text2.value=allt(thisform.text2.value+"零" ）
case e=1
thisform.text2.value=allt(thisform.text2.value+"壹" ）
case e=2
thisform.text2.value=allt(thisform.text2.value+"贰" ）
.....................
case e=9
thisform.text2.value=allt(thisform.text2.value+"玖" ）
endcase
endfor

[此贴子已经被作者于2006-5-24 1:41:45编辑过]

还有金额单位，应该如何添加……
因为我本专业不是计算机的，又没花时间去学，所以麻烦您了

偷懒是不行的，学这个又不会害了你。

因为今天下午就要交了，所以才……
晚上又有其他考试，实在没办法了

有了上面的你在适当的改一下就可以搞定了
思路与上面的一样