有序序列合并．
將兩個不下降有序序列合并為一個不下降有序序列．下面程序模擬該功能，程序界面如圖所示，單擊“生成序列一”按鈕Command1生成10個有序數字，并在List1中顯示，單擊“生成序列二”按鈕Command2生成10個有序數字，并在List2中顯示，單擊“序列合并”按鈕Command3，將兩組數據進行合并，并在List3中顯示．
序列一中的數據存儲在a數組中，序列二中的數據存儲在b數組中，合并后的數據存儲在c數組中．
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim a（1To 10）As Integer
Dim b（1To 10）As Integer
Dim c（1To 20）As Integer
Private Sub Command1_Click

i＜=10And j＜=10

i＜=10And j＜=10

'生成10個不下降有序數字，存儲在a（1）到a（10）中，并在List1中顯示
'代碼略
End Sub
Private Sub Command2_Click

c（t）=a（k）

c（t）=a（k）

'生成10個不下降有序數字，存儲在b（1）到b（10）中，并在List2中顯示
'代碼略
End Sub
Private Sub Command3_Click

c（t）=a（k）

c（t）=a（k）

'將數a組和b數組合并，存儲在c數組中
Dim i As Integer,j As Integer,k As Integer
i=1'變量i表示a數組中第1個未處理的數
j=1'變量j表示b數組中第1個未處理的數
t=0'變量t表示c數組中已加入的數的個數
Do While'第（1）處錯誤
t=t+1
If a（i）＜b（j）Then
c（t）=a（i）
i=i+1
Else
c（t）=b（j）
j=j+1
End If
Loop

If i＜=10Then
For k=i To 10
t=t+1
'第（2）處錯誤
Next k
End If
If j＜=10Then
For k=j To 10
t=t+1
c（t）=b（k）
Next k
End If
List3．Clear
For i=1To 20
List3．AddItem（Str（c（i）））
Next i
End Sub.