2017年技术选考VB算法加试题周练插入数据.docxVIP

命题：杜宗飞 行政班： 算法加试题一周一练（ 教学班： 姓名： 3） ——聪明在于勤奋！ 学号： 算法题解题步骤：①阅读题目 ②理解题意 ③阅读程序④分析算法⑤分析 程序和解题 【加试题】小明编写了一个在有序数组中插入一个新数据的程序，功能如下：程序运 行（窗体加载）时， 随机生成 10 个数据存储在数组 a 中，并按升序排序后在列表框 List1 中显示 。在文本框 将 key 值插入到有序数组 下图所示： Text1 中输入一个新数据 key。单击按钮 Command1 后，实现 a 中，并在列表框 List2 中显示新的数组 a。程序运行界面如 ① 图 a A B C D 图 b （ 1）如图 a 所示要在窗体上添加了 （2） 如图 a 要在窗体上添加①所指的对象， 图 c 个“图 b”中 A 所指的对象。 应该在 “图 b”中选择 （填字母） 。 （3）如图 c 所示，要修改标签上“原始数据”的字体颜色，应该修改 （4）代码 Command1_Click( ) ”中的 Command1是 （填：对象名 名/ 属性名） 。 （5）假设有 Text1_Change( ) 事件处理过程代码， 该事件处理过程会在 属性。 / 方法名 / 事件 （填： 命题：杜宗飞 A.Text1 上单击 / B Text1 中内容发生改变 /C. Command1 上单击 / ）时执行。 （6）实现上述功能的 VB程序如下。请在划线处填入合适代码。 Const max = 20 Dim n As Integer 数组中已存储数据的数量 Dim a(1 To max) As Integer Private Sub Form_Load() 窗体加载事件处理过程 Dim t As Integer Randomize 随机函数初始化 n = 10 For i = 1 To n 随机生成 n 个数据 a(i) = Int(Rnd * 90 + 10) Next i For i = 1 To n - 1 升序排序 For j = n To i + 1 Step -1 If Then End If Next j Next i For i = 1 To n 在列表框 List1 中输出 List1.AddItem Str(a(i)) Next i End Sub Private Sub Command1_Click() Dim key As Integer Dim pos As Integer Dim i As Integer key = i = 1 Do While key a(i) 用于存储待插入的新数据 用于存储新数据在数组中的下标 Loop pos = i For i = n To pos Step -1 a(i + 1) = a(i) Next i n = n + 1 For i = 1 To n 在列表框 List2 中输出 List2.AddItem Str(a(i)) Next i End Sub 命题：杜宗飞 答案： a(j) a(j - 1) t = a(j): a(j) = a(j - 1): a(j - 1) = t Val(Text1.Text) i = i + 1 a(pos) = key