二個字串各一次取一個合併 -- 改用雙參數迴路

'講解二個字串各一次取一個合併
'改用雙參數迴路，解決不定數值均可適用問題
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r3 = "拾佰仟萬拾佰仟億拾佰仟兆"
        Dim r4 = "壹貳参肆伍陸柒"
        Dim str1 = ""

        Dim i = Len(r4) - 1
        Dim j = 1
        While i >= 1
            str1 = Mid(r4, i, 1) & Mid(r3, j, 1) & str1
            i = i - 1
            j = j + 1
        End While
        str1 = str1 & Microsoft.VisualBasic.Right(r4, 1)

        MsgBox(str1)
    End Sub
End Class