问题补充说明:要求使用到:(1)文本框、标签、按钮控件(2)SelecyCase语句(3)Right函数从字符串右边取出指定的字符。任务:将小写金额转换为大写的金额。程序运行界面如下:... 要求使用到:(1)文本框、标签、按钮控件(2)Selecy Case 语句(3)Right函数从字符串右边取出指定的字符。任务: 将小写金额转换为大写的金额。程序运行界面如下: 展开
1。将0到9数字的大写存入数组,与数字一一对应。如:Str(0)="零"……小数点另行定义2。用循环依次取上文本框中的数来自字3。fori=360问答0tolen(text1)-1
inta=val(mid(i,1))'不是小数点的
text2=text2&str(inta)
next
以上提供一种思路,未列出小数点的解法,具体你可以参考一下,方法有多种。
标签:大小写,转换,金额
版权声明:文章由 神舟问 整理收集,来源于互联网或者用户投稿,如有侵权,请联系我们,我们会立即处理。如转载请保留本文链接:https://www.shenzhouwen.com/article/254696.html