技術標籤：vb教程

本節課程，利用VB知識來實現人民幣金額小寫自動轉大寫的工具設計。
效果如下圖所示：

實現程式碼

Private Sub Text1_Change()
    Text2 = rmbChange(Text1)
End Sub

Function rmbChange(ByVal rmb As Double) As String
    On Error Resume Next
    Dim Rmbexp As String, Rmbda As String, Expda As String, Lent As Integer, Ntyp As Integer, Icnt As Integer, i As Integer, Trmb As String
    rmb = Format(rmb, "###0.00")
    If rmb > 999999999999.99 Then
        rmbChange = "需轉換的金額整數長度超過了12位！"
        Exit Function
    End If
    Rmbexp = "分角元拾佰仟萬拾佰仟億拾佰仟"
    Rmbda = "零壹貳叄肆伍陸柒捌玖"
    Ntyp = 0
    Trmb = Replace(CStr(Format(rmb, "0.00")), ".", "")
    If Left(Trmb, 1) =