VB代码：（2018年8月温州）16．【加试题】有一组正整数，要求仅对其中的奇数进行升序排序。排序后在列表框List2中也仅显示奇数部分数据，结果如图所示。
实现上述功能的VB代码如下，但加框处有错，请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim t As Integer, i As Integer, j As Integer, m As Integer
Dim tmp As Integer
‘读取一组正整数，存储在数组a中，并显示在列表框List1，代码略
i = 1
Do While i <= n
For j = n To i + 1 Step -1
If a(j) Mod 2 = 1 Then
If a(j) < a(j – 1) Then
tmp = a(j) : a(j) = a(j – 1) : a(j – 1) = tmp
t = t + 1
End If
End If
Next j
If a(j) Mod 2 = 0 Then m = m + 1
i = i + 1
Loop
For i = 1 to m
List2．AddItem Str(a(i))
Next i
List2．AddItem “一共交换了” & t & “次”
End Sub
参考答案：
(1) (2分) a(j)<a(j-1) Or a(j-1) Mod 2=0<a(j-1) p=”p” or=”” mod=”” style=”box-sizing: border-box;”>
(2) (1分) a(i) Mod 2=1
Python参考代码：
a=[5,55,44,100,34,20,16,13,37,8]
print(‘排序前：’,a)
n=len(a)
t=0
m=0
i=0
while i<n:
for j in range(n-1,i+1,-1):
if a[j]%2==1:
if a[j]<a[j-1] p=”p” or=”” style=”box-sizing: border-box;”>
a[j],a[j-1]=a[j-1],a[j]
t+=1
if a[i]%2==1:
m=m+1
i=i+1
print(‘排序后：’)
for i in range(m):
print(str(a[i]))
print(‘一共交换了’,t,’次。’)
Python代码运行结果：
