二级VB考试迎考指导--数组题.pptVIP

二级VB考试迎考指导 数组题 举例 数组题 举例 在排序数组中插入数据 [P.146/163] 在排序数组中插入数据 [P.146/163] 在排序数组中插入数据 [P.146/163] 在排序数组中插入数据 [P.146/163] 删除数组元素 [P.149/163] 数组声明 小结 [P.70 ~ 73] 数组元素的移动 [P.154/163] 数组元素的移动 [P.154/163] 数组元素的移动 [P.154/163] 数组元素的移动 [P.154/163] 数组元素的整理 [P.155/163] 数组元素的整理 [P.155/163] 产生各不相同随机数进行排序 [P.137/162] 排序题：冒泡排序 数组题：互不相同的随机整数 排序题解答：互不相同的随机整数 互不相同的随机整数：基本结构 互不相同的随机整数：程序优化 互不相同的随机整数：程序优化 互不相同的随机整数：程序优化 互不相同的随机整数：程序优化 互不相同的随机整数：程序优化 End [Modify28] 随机产生9个[1-100]的整数数组，并按从小到大的顺序进行排序。再从键盘输入一个正数，找到该数在原来9个数中的插入点，使得该数插入数组后，数组的10个数依然是从小到大的顺序。 Public Sub InsertNumber() 随机产生9个1--100的整数并排序 For i = 1 To 9 ----1---- : Next i For i = 1 To 8 : …… : For j = i + 1 To 9 输出排序后的数组 For i = 1 To 9 从键盘输入一个正数 Do 将输入的数插入数组中 For i = 1 To 9 : …… : For j = 9 To pos Step -1 输出插入后的数组 For i = 1 To 10 End Sub [Modify28] 随机产生9个[1-100]的整数数组，并按从小到大的顺序进行排序。再从键盘输入一个正数，找到该数在原来9个数中的插入点，使得该数插入数组后，数组的10个数依然是从小到大的顺序。 Public Sub InsertNumber() Dim x(10) As Integer, i As Integer, j As Integer, t As Integer Dim ins As Integer, pos As Integer 随机产生9个1--100的整数并排序 Randomize For i = 1 To 9 ----1---- : Next i For i = 1 To 8 For j = i + 1 To 9 If x(i) x(j) Then : t = x(i) : x(i) = x(j) : x(j) = t Next j Next I ‘输出排序后的数组（见下页） For i = 1 To 9 : x(i) = Int(100 * Rnd) + 1 : Next i 生成 [1-100]的整数数组 冒泡法排序 [Modify28] 随机产生9个[1-100]的整数数组，并按从小到大的顺序进行排序。再从键盘输入一个正数，找到该数在原来9个数中的插入点，使得该数插入数组后，数组的10个数依然是从小到大的顺序。 输出排序后的数组 For i = 1 To 9 Form1.Print x(i); ; Next i Form1.Print 从键盘输入一个正数 Do ins = Val(InputBox(ins=)) Loop Until ins 0 ‘将输入的数插入数组中 …… （见下页） 非正数重新输入 用循环结构显示排序后数组。 将输入的数插入数组中 pos = 1 For i = 1 To 9 ----2---- pos = i + 1 Next i For j = 9 To pos Step -1 ----3---- Next j ----4---- 输出插入后的数组 For i = 1 To 10 Form1.Print x(i); ; Next i Form1.Print End Sub If ins x(i