请教：易语言阿拉伯数字转汉字 转中文 “零”, “一”, “二”, “三”, ........到九万九千..

请教：易语言阿拉伯数字转汉字 转中文 “零”, “一”, “二”, “三”, ........到九万九千..

如果 （编辑框1.内容 = “1”）
编辑框2.内容 = “一”。
。
。

如果 （编辑框1.内容 = “99999”）
编辑框2.内容 = “九万九千九百九十九”

0 1 2 3 4 5.......999999

1 瓦嘿德 （不是这个音，但敲不出那个中文字） 2 依特宁 3 达拉塔 4 然后，，忘了。。

.版本 2 .支持库 commobj .支持库 spec .程序集 窗口程序集1 .程序集变量 文本, 快速文本对象 .程序集变量 内容, 文本型 .子程序 __启动窗口_创建完毕 .子程序 数字转汉字, 文本型 .参数 数字, 文本型 .参数 插入数字, 文本型, 可空 .局部变量 s, 文本型, , "0" .局部变量 i, 整数型 .局部变量 a, 整数型 .如果真 (数字 ＝ “”) .如果真结束 文本.清除文本 () s ＝ { “十”, “百”, “千”, “万”, “十”, “百”, “千”, “亿”, “十”, “百”, “千”, “万” } 文本.添加 (数字, “”) a ＝ 取文本长度 (数字) .计次循环首 (取文本长度 (数字) － 1, i) 文本.插入 (a, s [i]) a ＝ a － 1 .计次循环尾 () 文本.替换子文本 (“1”, “壹”, , , 假) 文本.替换子文本 (“2”, “贰”, , , 假) 文本.替换子文本 (“3”, “叁”, , , 假) 文本.替换子文本 (“4”, “肆”, , , 假) 文本.替换子文本 (“5”, “伍”, , , 假) 文本.替换子文本 (“6”, “陆”, , , 假) 文本.替换子文本 (“7”, “柒”, , , 假) 文本.替换子文本 (“8”, “捌”, , , 假) 文本.替换子文本 (“9”, “玖”, , , 假) 文本.替换子文本 (“0”, “零”, , , 假) 内容 ＝ 文本.取文本 (, ) 调试输出 (内容) 返回 (内容) .子程序 _按钮1_被单击 .局部变量 文本, 快速文本对象 .局部变量 内容, 文本型 编辑框1.内容 ＝ 数字转汉字 (编辑框1.内容, ) 这个应该好用.试试..