'将**伯数字表示的金额转换为中文大写 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) end if '转换小数点以前 strucasemoney=" j=1 for i=i-1 to 1 step-... 20210311
private sub command1_click() n = int(val(text1.text)) s1 = "拾佰仟" s2 = "零一二三四五六七**" '记不清这几个字是怎么写读者自己改过来 if len(n) > 4 or n<0 then text2.text = "数据输入不合法,请重新输...