VB_Python代码对照算法百题（014）
VB代码： （2017年11月浙江）16．小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1Click()
Dim i As Integer, j As Integer, t As Integer
Dim bottom As Integer
‘获取排序前数据依次存储在数组a中，并在文本框Text1中显示。代码略
bottom = n
i = 1
Do While i <= bottom – 1
For j = bottom To i + 1 Step -1
If a(j) < a(i) Then
t = a(j): a(j) = a(j – 1): a(j – 1) = t
ElseIf a(j) = a(j – 1) Then ‘ 相邻两个数据相等，进行剔除处理 a(bottom）＝a(j)
bottom = bottom – 1
End If
Next j
i = i + 1
Loop
Text2.Text = ” “
For i = 1 To bottom
Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
参考答案：
（1）<a(j-1)或 style=”box-sizing: border-box;”>a(j)<a(j-1) 或 a(j-1) > a(j)
（2）a(j)=a(bottom) 或 t=a(j):a(j)=a(bottom):a(bottom)=t
<a(j-1)或 style=”box-sizing: border-box;”>解析：
<a(j-1)或 style=”box-sizing: border-box;”> 冒泡排序去重复数据处理，处理后仅有序输出不重复部分，相邻两数据进行比较，可结合交换语句“t = a(j): a(j) = a(j – 1): a(j – 1) = t” 确定比较的是a(j)和a(j – 1)，再观察程序执行界面，输出的数据为升序，可确定当a(j) < a(j – 1)时进行向前交换。 结合语句“ElseIf a(j) = a(j – 1) Then”及注释语句“相邻两个数据相等，进行剔除处理”，可确定是对相邻重复数据进行处理，方法是如果元素a(j-1)与a(j)元素值相同，将最末端元素前移，覆盖a(j)，然后执行“bottom = bottom – 1”，此时数组元素个数减1，数组底端下标：bottom-1，底端数据已经前移，无需再参与排序，则可确定答案为a(j) = a(bottom)。
首先通过题干描述，分析清楚算法思想，即该算法要做什么，如何实现！并划出解题的主要关键词，例如此题中主要关键词为“显示剔除重复数据后的升序排序结果”，注意程序中的注释语句所提供信息。
<a(j-1)或 style=”box-sizing: border-box;”> 此题中进行剔除处理时“a(j) = a(j – 1)”，在进行覆盖剔除处理时不能将“a(j － 1) = a(bottom)”，因为在继续比较时，比较的数据应该是a(j)或a(j – 1)中原来数据，且a(j – 1)将作为下次比较中新的“a(j)”继续比较。
<a(j-1)或 style=”box-sizing: border-box;”>Python代码：
<a(j-1)或 style=”box-sizing: border-box;”>a=[17,12,17,10,16,15,10,17,9,16]
<a(j-1)或 style=”box-sizing: border-box;”>print(‘排序前数据：’,a)
<a(j-1)或 style=”box-sizing: border-box;”>a.sort()
<a(j-1)或 style=”box-sizing: border-box;”>b=a[:]
<a(j-1)或 style=”box-sizing: border-box;”>for i in range(9):
<a(j-1)或 style=”box-sizing: border-box;”> if a[i]==a[i+1]:
<a(j-1)或 style=”box-sizing: border-box;”> b.remove(a[i+1])
<a(j-1)或 style=”box-sizing: border-box;”>print(‘排序后数据：’,b)
<a(j-1)或 style=”box-sizing: border-box;”>
Python代码运行结果：
<a(j-1)或 style=”box-sizing: border-box;”>