题库 高中信息
题干
（加试题）对数组a中的u个元素进行排序，生成左右交替上升的数据序列，结果如下表所示：
设计一个VB程序，单击“排序”按钮Command1后，在标签中输出排序后的数据序列，运行结果如图所示。
实现上述功能的VB程序如下，加框处代码有错，请改正。
Const n-9 ‘变量u存储待排序数据个数，以9个数为例
Dim a(1 Ton) As Integer ‘数组a存储待排序数据
Private Sub Command1_Click()
For j=i+1 To n-i+1
If a(k) > a(j) Then k = j
Next j
For j=i+1To n ‘②________
If a(j) <a(j +1) Then t =a(j): a(j) =a(j +1): a(j +1)=
Next j
Next i
| a(1) | a(2) | a(3) | …… | a(n-2) | a(n-1) | a(n) |
| 17 | 39 | 48 | …… | 79 | 46 | 34 |
设计一个VB程序，单击“排序”按钮Command1后，在标签中输出排序后的数据序列，运行结果如图所示。
实现上述功能的VB程序如下，加框处代码有错，请改正。
Const n-9 ‘变量u存储待排序数据个数，以9个数为例
Dim a(1 Ton) As Integer ‘数组a存储待排序数据
Private Sub Command1_Click()
Dim i As Integer，j As Integer，t As Integer，k As Integer
‘读取一组正整数，存入数组a中，
‘在标签Label中依次输出排序前数组a从1到n各个元素的值，代码略；
For i = 1 To n\2
k=1 Label'①________For j=i+1 To n-i+1
If a(k) > a(j) Then k = j
Next j
For j=i+1To n ‘②________
If a(j) <a(j +1) Then t =a(j): a(j) =a(j +1): a(j +1)=
Next j
Next i
‘在标签中依次输出排序后数组a从1到n各个元素的值，代码略；
End Sub答案(点此获取答案解析）
＇①改错
