有一組正整數(shù),基于冒泡排序?qū)ζ渲械臄?shù)進(jìn)行升序排序。排序后奇數(shù)在前,偶數(shù)在后。排序示例如下:
排序前 |
78 |
30 |
64 |
39 |
49 |
4 |
8 |
32 |
18 |
32 |
排序后 |
39 |
49 |
83 |
4 |
8 |
18 |
30 |
32 |
64 |
78 |
實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有誤,請(qǐng)改正。
Const n=10
Dim d(1To n) As Integer
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,t As Integer
'讀取一組正整數(shù),存儲(chǔ)在數(shù)組d中,代碼略
i=1
Do While i<=n-1
For j=n To i+1Step-1
If d(j) Mod 2=d(j-1)Mod 2Then
If
Then'(1)
t=d(j):d(j)=d(j-1):d(j-1)=t
End If
(2)
t=d(j):d(j)=d(j-1):d(j-1)=t
End If
Next j
i=i+1
Loop
'依次輸出排序后的數(shù)據(jù),代碼略
End Sub