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