二個字串各一次取一個合併

 

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r3 = "萬仟百拾"
        Dim r4 = "壹貳参肆伍"
        Dim str1 = ""
        For i = 1 To 4
            str1 = str1 & Mid(r4, i, 1) & Mid(r3, i, 1)
        Next
        str1 = str1 & Microsoft.VisualBasic.Right(r4, 1)
        MsgBox(str1)
    End Sub
End Class