編寫VB程序，實現如下功能：單擊“排序數組a”按鈕Command1時，對已有數組a的數據進行升序排列，并顯示在文本框Label1中；單擊“顯示數組b”按鈕Command2時，將升序數組b的數據顯示在文本框Label2中；再單擊“合并a和b”按鈕Command3時，對數組a和數組b升序合并到字符串中，將合并后的數據在文本框Label3中顯示．（運行效果如第17題圖所示）．實現上述功能的VB代碼如下，請在橫線處填入合適代碼．

Dim a（1To 6）As Integer
Dim b（1To 6）As Integer
Private Sub Command1_Click（　　）'對數組a中的數據進行排序
Dim i As Integer,j As Integer,k as integer
a（1）=53：a（2）=18：a（3）=62：a（4）=22：a（5）=6：a（6）=25
s=““
For i=1To 5
k=i
For j=i+1To 6
If a（k）＞a（j） Then ①

k=j

k=j

Next j
If i＜＞k Then
t=a（k）：a（k）=a（i）：a（i）=t
End If
Next i
For i=1To 6
s=s+Str（a（i））
Next i
Label1．Caption=s
End Sub
Private Sub Command2_Click （　　）
b（1）=3：b（2）=8：b（3）=15：b（4）=27：b（5）=38：b（6）=49
'此處部分代碼省略
End Sub
Private Sub Command3_Click （　　）
'將數組a和b中的數據逐個比較后添加到新的字符串s中，并將s在label3中顯示
i=1：j=1：s=““
Do While i＜=6 ②

And

And

j＜=6'如果兩數組都還有數據未合并
If ③

a（i）＜b（j）

a（i）＜b（j）

Then
s=s+Str（a（i））：i=i+1
Else
s=s+Str（b（j））：j=j+1
End If
Loop
Do While i＜=6'只有數組a還有數據未合并
s=s+Str（a（i））：i=i+1
Loop
Do While j＜=6'只有數組b還有數據未合并
s=s+Str（b（j））：j=j+1
Loop
Label3．Caption=s
End Sub.