Question

vb 数字转大写 不是金额转换,比如:123转成一百二十三,而不是壹佰贰拾叁

rt

Answer 1

假设最大的是5位自然数：
Private Sub Command1_Click()
Dim L As Integer
Dim I As Integer
Dim DX As String
Dim XX As String
Dim Result As String
Dim YN As Boolean

YN = False
DX = "万千百十 "
XX = InputBox("请输入1个不超过5位的自然数")
L = Len(XX)
Result = ""
For I = 1 To L
Select Case Mid(XX, L - I + 1, 1)
Case 1
Result = "一" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 2
Result = "二" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 3
Result = "三" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 4
Result = "四" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 5
Result = "五" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 6
Result = "六" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 7
Result = "七" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 8
Result = "八" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 9
Result = "九" & Mid(DX, 5 - I + 1, 1) & Result
YN = False
Case 0
If Not YN Then
Result = "零" & Result
YN = True
End If
End Select
Next I
Print Result