數字轉換國字

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a = " 1 5 2 6 9 0 "
        Dim f = a
        f = Replace(f, "1", "壹")
        f = Replace(f, "2", "貳")
        f = Replace(f, "3", "參")
        f = Replace(f, "4", "肆")
        f = Replace(f, "5", "伍")
        f = Replace(f, "6", "陸")
        f = Replace(f, "7", "柒")
        f = Replace(f, "8", "捌")
        f = Replace(f, "9", "玖")
        f = Replace(f, "0", "零")
        MsgBox(a & "    轉換成大寫國字：" & f)
    End Sub
End Class