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
沒有留言:
張貼留言