有序序列合并．
将两个不下降有序序列合并为一个不下降有序序列．下面程序模拟该功能，程序界面如图所示，单击“生成序列一”按钮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.