如何设置闺将text1.text中的数据改为人民币大写。如4241.35改为肆仟贰佰肆拾壹元叁角伍分

IF text1.text="1" then
text2.text="壹"
end if
以此類推

谢了，这个比较好。m = Text1.Text
If IsNumeric(m) Then
m = Format(m, "#0.00")
m1 = CStr(m)
For n = 1 To Len(m1)
a = Mid(m1, n, 1)
If a = "." Then
m = Val(Left(m1, n - 1))
mm = Val(Right(m1, Len(m1) - n))
End If
Next
For n = 1 To Len(CStr(m))
a = Mid(m1, n, 1)
aa = Mid("零壹贰叁肆伍陆柒捌玖", Val(a) + 1, 1)
bb = Mid("元拾佰仟万拾佰仟亿拾佰仟", Len(CStr(m)) - n + 1, 1)
xx = xx & aa & bb
Next
For n = 1 To 2
a = Mid(CStr(mm), n, 1)
aa = Mid("零壹贰叁肆伍陆柒捌玖", Val(a) + 1, 1)
bb = Mid("角分", n, 1)
xx = xx & aa & bb
Next
MsgBox xx
Else
MsgBox "请输入数值型!"
End If

這樣也可以的