题目

【加试题】小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。 实现上述功能的VB程序如下，但加框处代码有错，请改正。 Const n = 10 Dim a(1 To n) As Integer Private Sub Command1_Click()   Dim i As Integer, j As Integer, t As Integer, bottom As Integer   '获取排序前数据依次存储在数组a 中，并在文本框Text1 中显示。代码略   bottom = n : i = 1   Do While i <= bottom - 1     For j = bottom To i + 1 Step -1         If  Then     ‘⑴             t = a(j): a(j) = a(j - 1): a(j - 1) = t         ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理                  ‘⑵             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）<a（j-1）【2】a（j）=a（buttom）

查看本题答案和解析