'将**伯数字表示的金额转换为中文大写 function strucasemoney(byval albmoney) dim strdecimal,i,j,strtemp albmoney=trim(albmoney&"") i=instr(albmoney,".") if i=0 then i=len(albmoney)+1 else strdecimal=mid(albmoney,i+1) e...
我自己编的,好辛苦给点悬赏把时输入代码text1.text=numbertocharacter(text2.text)源如下option explicitpublic function numbertocharacter(number as string) as string'完成转换的主函数dim pos_point as long '记数点的位置dim curnum as st...