1. 【答案】
(1)48,36,24,3,97,77
(2)48,36,24,3,97,77,8
2.【答案】
① Exit For ② a(i) ③ x
参考代码:
Private Sub Command2_Click()Dim x As Integerx = Val(Text3.Text) '插入数据For i = n To 1 Step -1If a(i) <= x Then Exit Fora(i + 1) = a(i)Next ia(i + 1) = xn = n + 1End Sub
3.【答案】① Exit For ② a(j) ③ x
【解析】插入排序算法最重要的操作就是向左侧已排序区间插入待排序元素。外层循环用来控制待排序元素位置,内层循环用来扫描已排序区间,为待排序元素腾出插入位置。
4.【答案】① a(0) < a(j) ② a(j) ③ a(0)
【解析】设置数组下标下界为0,既解决了数组下标越界问题(无需判断j >= 1,j=0时循环自然结束),又可以使用a(0)作为辅助空间存储a(i)的值一举两得。
5.【答案】程序运行,当j=0时会出现数组下标越界错误。解决数组下标越界问题有两种方法:1.扩大数组下标下界;2.提前跳出循环。
方法一:扩大数组下标下界。把数组a的定义语句改成Dim a(0 To n) As Integer
方法二:提前跳出循环。当j=0时,跳出循环。参考代码如下:
Const n = 4Dim a(1 To n) As IntegerPrivate Sub Command4_Click()Dim x As IntegerFor i = 2 To nx = a(i): j = i - 1Do While x < a(j) '无需判断j >= 1,j=0时循环结束a(j + 1) = a(j)j = j – 1If j = 0 Then Exit DoLoopa(j + 1) = xNext iEnd Sub
6. 【答案】(1)2, 3, 5, 6, 8
(2)参考代码:
Const n = 5Dim a(1 To n) As IntegerPrivate Sub Command6_Click()Dim t As IntegerFor i = 2 To nj = iDo While a(j - 1) > a(j)t = a(j): a(j) = a(j - 1): a(j - 1) = tIf j > 2 Then j = j - 1 Else Exit DoLoopNext iEnd Sub
(3)冒泡排序的本质特征是内层循环扫描待排序区间将最小值(或最大值)向左端(或右端)冒泡,交换操作只能发生在相邻元素之间。
插入排序的本质特征是内层循环扫描已排序区间,将待排序元素插入(或交换)到正确位置。
二者的本质区别在于内层循环扫描的范围,冒泡排序是扫描待排序区间,而插入排序是扫描已排序区间。
本题内层循环的扫描范围的已排序区间,故更接近插入排序。
因为本题没有设置临时变量t来存储待排序元素a(i),不能采用移位方式来插入a(i),所以只好采用交换相邻元素的方式将a(i)放到正确位置,这种做法和低效的选择排序相似,我们可以称之为低效的插入排序算法。