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

命题：杜宗飞 算法加试题一周一练（3） ——聪明在于勤奋！ 行政班： 教学班： 姓名： 学号： 算法题解题步骤：①阅读题目②理解题意③阅读程序④分析算法⑤分析 程序和解题 【加试题】小明编写了一个在有序数组中插入一个新数据的程序，功能如下：程序运 行（窗体加载）时，随机生成10个数据存储在数组 a 中，并按升序排序后在列表框 List1 中显示。在文本框Text1中输入一个新数据key。单击按钮Command1后，实现 将key值插入到有序数组a 中，并在列表框List2 中显示新的数组a。程序运行界面如 下图所示： ① A B C D 图a 图b 图c （1）如图a所示要在窗体上添加了 个“图b”中A所指的对象。 （2）如图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)