16.有序序列合并.
將兩個(gè)不下降有序序列合并為一個(gè)不下降有序序列.下面程序模擬該功能,程序界面如圖所示,單擊“生成序列一”按鈕Command1生成10個(gè)有序數(shù)字,并在List1中顯示,單擊“生成序列二”按鈕Command2生成10個(gè)有序數(shù)字,并在List2中顯示,單擊“序列合并”按鈕Command3,將兩組數(shù)據(jù)進(jìn)行合并,并在List3中顯示.
序列一中的數(shù)據(jù)存儲(chǔ)在a數(shù)組中,序列二中的數(shù)據(jù)存儲(chǔ)在b數(shù)組中,合并后的數(shù)據(jù)存儲(chǔ)在c數(shù)組中.
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Dim a(1To 10)As Integer
Dim b(1To 10)As Integer
Dim c(1To 20)As Integer
Private Sub Command1_Click
'生成10個(gè)不下降有序數(shù)字,存儲(chǔ)在a(1)到a(10)中,并在List1中顯示
'代碼略
End Sub
Private Sub Command2_Click
'生成10個(gè)不下降有序數(shù)字,存儲(chǔ)在b(1)到b(10)中,并在List2中顯示
'代碼略
End Sub
Private Sub Command3_Click
'將數(shù)a組和b數(shù)組合并,存儲(chǔ)在c數(shù)組中
Dim i As Integer,j As Integer,k As Integer
i=1'變量i表示a數(shù)組中第1個(gè)未處理的數(shù)
j=1'變量j表示b數(shù)組中第1個(gè)未處理的數(shù)
t=0'變量t表示c數(shù)組中已加入的數(shù)的個(gè)數(shù)
Do While
'第(1)處錯(cuò)誤
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)處錯(cuò)誤
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.