当前位置:首页 >> 其它课程 >>

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


命题:杜宗飞 算法加试题一周一练(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) = 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

相关文章:
2017年技术选考VB算法加试题周练最长相同
2017年技术选考VB算法加试题周练最长相同_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练(4) 行政班: 教学班: 姓名: 学号: 【加试题】小明编写...
2017年技术选考VB算法加试题周练字母数字分类
2017年技术选考VB算法加试题周练字母数字分类_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练 行政班: 教学班: 姓名: ——宁吃百日苦,不留终身...
2017年技术选考VB算法加试题周练子串
2017年技术选考VB算法加试题周练子串_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练 行政班: 教学班: 姓名: 学号: 【加试题】一个字符串中...
2017届浙江技术选考第二轮复习VB算法加试题复习4
2017届浙江技术选考第二轮复习VB算法加试题复习4_其它考试_资格考试/认证_教育专区。2017 届浙江技术选考第二轮复习 VB 算法加试题复习四 一、选择题:本大题共 ...
2017届浙江技术选考第二轮复习VB算法加试题复习5
2017届浙江技术选考第二轮复习VB算法加试题复习5_其它课程_高中教育_教育专区。有答案 2017 届浙江技术选考第二轮复习 VB 算法加试题复习五 一、选择题:本大题...
2017届浙江技术选考第二轮复习VB算法加试题复习6
2017届浙江技术选考第二轮复习VB算法加试题复习6_其它课程_高中教育_教育专区。有答案 2017 届浙江技术选考第二轮复习 VB 算法加试题复习六 一、选择题:本大题...
2017届浙江技术选考第二轮复习VB算法加试题复习12
2017届浙江技术选考第二轮复习VB算法加试题复习12_其它课程_高中教育_教育专区。有答案 2017 届浙江技术选考第二轮复习 VB 算法加试题复习十二 一、选择题:本大...
2017届浙江技术选考第二轮复习VB算法加试题复习18
2017届浙江技术选考第二轮复习VB算法加试题复习18_其它课程_高中教育_教育专区。有答案 2017 届浙江技术选考第二轮复习 VB 算法加试题复习十八 一、选择题:本大...
2016年10月技术选考VB算法加试题训练
2016年10月技术选考VB算法加试题训练_其它课程_高中教育_教育专区。命题:杜宗飞 算法加试题一周一练(8) 行政班: 教学班: 姓名: 学号: 【加试题 1】下列 VB...
更多相关标签:
2017国考警察加试专业 | vb冒泡排序加试题 | 2017 含标准农历算法 | 2017年车险算法 | vb排序算法 | vb算法 | vb字符串加密解密算法 | vb递归算法经典实例 |