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

浙江高中技术选考第二轮复习VB基础5


命题:杜宗飞 第二轮 VB 基础 5 行政班: 教学班: 姓名: 学号: 一、完善程序,并上机调试完成作品 程序运行(窗体加载)时,在列表框 List1 中显示 20 个随机数(存储在数组 a 中) ,随机 数范围为【10,99】 。在文本框 Text1 输入整数(存储在变量 key 中) ,单击按钮 Comman1 后, 在标签 Label2 显示数组元素中大于等于 key 的个数,并在 List2 上显示所有符合条件的数组 元素。 Const n = 20 Dim a(1 To 20) As Integer Dim b(1 To n) As Integer Private Sub Form_Load() Dim i As Integer a(i) = Int(Rnd * 90) + 10 Next i End Sub Private Sub Command1_Click() Dim i As Integer, key As Integer Dim k As Integer '数组 b 当前的下标 key = k=1 For i = 1 To n '将符合条件的元素存储在依次存储在数组 b 中 If Then b(k) = a(i) End If Next i '将数组 b 中的元素在列表框 List2 上输出 List2.AddItem Str(b(i)) Next i Label2.Caption = 有 + + 个数据 End Sub 第 1 页 共 2 页 命题:杜宗飞 二、完善程序,并上机调试完成作品 程序运行(窗体加载)时,在列表框 List1 中显示 15 个随机数(存储在数组 a 中) ,在列表 框 List2 中显示 15 个随机数(存储在数组 b 中) ,单击按钮 Comman1 后在列表框 List2 上显 示数组 a 和数组 b 中都有的元素,并在标签 Label1 显示个数。 Const n = 15 Dim a(1 To n) As Integer Dim b(1 To n) As Integer Dim c(1 To n) As Integer Private Sub Form_Load() Dim i As Integer For i = 1 To n Randomize a(i) = Int(Rnd * 100) b(i) = Int(Rnd * 100) Next i End Sub Private Sub Command1_Click() Dim i As Integer, key As Integer Dim flag As Boolean Dim p As Integer p=0 For i = 1 To n flag = False For j = 1 To n If b(j) = key Then Exit For End If Next j If Then c(p) = a(i) End If Next i For i = 1 To p List3.AddItem Str(c(i)) Next i Label1.Caption = 共有 + End Sub + 个 第 2 页 共 2 页

赞助商链接
相关文章:
2017届浙江技术选考复习VB基础专题
2017届浙江技术选考复习VB基础专题_其它课程_高中教育_教育专区。2017 届浙江...2017届浙江技术选考第二... 51人阅读 5页 ¥9.00 2017届浙江技术选考...
2018年信息技术选考第二轮复习VB基础1答案
2018年信息技术选考第二轮复习VB基础1答案 - 命题:杜宗飞 第二轮 VB 基础 1 行政班: 一、类 控件类名填空 将下面类名填入右边圆框中 文本框 TextBox 类 ...
浙江高考选考VB算法复习资料基础知识
浙江高考选考VB算法复习资料基础知识_其它课程_高中...VB 中,用数组 a 存储 50 位同学一次信息技术考试...{12} 5、在VB中,下列属于字符串常量的是 (A)...
2018年信息技术选考第二轮复习VB基础4
2018年信息技术选考第二轮复习VB基础4 - 命题:杜宗飞 第二轮 VB 基础 4 行政班: 教学班: 姓名: 学号: 一、完善程序,并上机调试完成作品 程序运行(窗体加载)...
2018年信息技术选考第二轮复习VB基础2
2018年信息技术选考第二轮复习VB基础2 - 命题:杜宗飞 第二轮 VB 基础 2 行政班: 教学班: 姓名: Int 向下取整数 学号: Fix 去掉小数部分 一、写出下面表达式...
2018届浙江信息技术选考VB基础复习题
2018届浙江信息技术选考VB基础复习题_其它课程_高中教育_教育专区。夏令营周练之...(abc123) 2 Mod 5 Mid(ab66dc,3,2) 17 Mod 5 Mid(66dc,1,1) 6 ...
浙江省高中信息技术选考加试题VB专项练习题五及答案
浙江省高中信息技术选考加试题VB专项练习题五及答案_高考_高中教育_教育专区。浙江省高中信息技术选考加试题 VB 专项练习题五 一、选择题:本大题 13 小题,第...
浙江高中学考选考VB循环语句习题
(2)For 循环执行过程填空 s = 0 For i = 5 To 2 Step -2 s = s +...浙江省信息技术学考循环... 63人阅读 2页 ¥2.00 浙江技术选考VB基本运算...
2018年信息技术选考第二轮复习VB基础3
2018年信息技术选考第二轮复习VB基础3 - 命题:杜宗飞 第二轮 VB 基础 3 行政班: 一、随机函数 Rnd/Rnd() 记住:Rnd 范围为[0,1) 1、产生随机数,范围为[...
浙江高中信息技术选考复习选择排序冒泡排序习题
浙江高中信息技术选考复习选择排序冒泡排序习题_其它...5,6,3,2,1 进行从小到大排序,第三趟排序后的...(2012 年 3 月高考题)实现某排序算法的部分 VB ...
更多相关文章: