二個字串一次各取一個

 

Public Class Form1
    Dim i
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s1 = "1234567890"
        Dim s2 = "ABCDEFGHIJKLM"
        For i = 1 To 10
            MsgBox(Mid(s1, i, 1) & Mid(s2, i, 1))
        Next
    End Sub
End Class