vb人民币大小写转换?
private sub command1_click() n = int(val(text1.text)) s1 = "拾佰仟" s2 = "零一二三四五六七**" '记不清这几个字是怎么写读者自己改过来 if len(n) > 4 or n<0 then text2.text = "数据输入不合法,请重新输入" else for i = 1 to len(n) k = val(mid(n, i, 1)) if k = 0 then if val(mid(n, i)) = 0 then exit for if val(mid(n, i - 1, 1)) <> 0 then stri = stri & mid(s2, k + 1, 1) end if else stri = stri & mid(s2, k + 1, 1) end if if len(n) <> i and k <> 0 then stri = stri & mid(s1, len(n) - i, 1) end if next i if len(stri) = 0 then stri = mid(s2, 1, 1) text2.text = stri & "元" end ifend sub 20210311