數字轉國字

 

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r1 = ("0123456789")
        Dim r2 = ("零壹貳參肆伍陸柒捌玖")
        Dim d = "123456"
        Dim s = d
        For i = 1 To 10
            s = Replace(s, Mid(r1, i, 1), Mid(r2, i, 1))
        Next i
        MsgBox(d & " 轉國字為：" & s)
    End Sub
End Class