合并规则如下:
⑴当字符串1的长度大于字符串2的长度时,将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”,字符串2为“123”时,合并后的字符串为“a1b2c3def”
⑵当字符串2的长度大于等于字符串1的长度时,将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”,字符串2为“12345”时,合并后的字符串为“12d3c4b5a”。
程序运行界面如图所示。
Private Sub Commandl_Click ()
Dim sl As String, s2 As String, ans As String
Dim n As Integer, m As Integer, i As Integer
s1=Text1. Text
s2=Text2. Text
m=Len (s1)
n=Len (s2)
If m>n Then
For i=1 To n
ans=ans+Mid (sl, i, 1)+Mid (s2, i, 1)
Next i
ans=ans +Mid (sl, i, m-n)
Else
For i=1 To m
ans= ① +Mid (s1, i, 1)+ans
Nest i
ans=Mid (s2, 1, n-m)+ans
②
Label3. Caption=“合并为”+ans
End Sub
① ②