题型：综合题 题类：常考题 难易度：普通
浙江省杭州市2017-2018学年高三上学期信息技术教学质量检测
合并规则如下：
⑴当字符串1的长度大于字符串2的长度时，将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”，字符串2为“123”时，合并后的字符串为“a1b2c3def”。
⑵当字符串2的长度大于等于字符串1的长度时，将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”，字符串2为“12345”时，合并后的字符串为“12d3c4b5a”。
程序运行界面如图所示。
Private Sub Command1_Click()
Dim s1 As String，s2 As String，arts 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(s1，i，1)+Mid(s2，i，1)
Next i
ans=ans+Mid(s1，i，m-n)
Else
For i=1 To m
ans= ① +Mid(s1，i，1)+ans
Next i
ans=Mid(s2，1，n-m)+aFIS
②
Label3.Caption=”合并为”+ans
End Sub
① ②
试题篮
