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

浙江高中技术选考第二轮复习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 页

相关文章:
高中信息技术选考VB专题练习(一轮复习)
高中信息技术选考VB专题练习(一轮复习)_其它课程_高中教育_教育专区。知识点全面,有助于帮助学生复习VB基础知识,并为之后加试部分学习打下基础。...
浙江高考选考VB算法复习资料基础知识
浙江高考选考VB算法复习资料基础知识_其它课程_高中教育_教育专区。命题:桐乡一中 杜宗飞 VB 基础知识巩固专题 VB 基础知识巩固专题 VB 基础知识巩固专题 一、基本...
2017届浙江技术选考第二轮复习VB算法加试题复习6
2017届浙江技术选考第二轮复习VB算法加试题复习6_其它课程_高中教育_教育专区。...算法加试题复习六 一、选择题:本大题共 5 小题,每小题 3 分,共 15 分...
浙江省高中信息技术选考加试题VB专项练习题五及答案
浙江省高中信息技术选考加试题VB专项练习题五及答案_高考_高中教育_教育专区。浙江省高中信息技术选考加试题 VB 专项练习题五 一、选择题:本大题 13 小题,第...
浙江省高中信息技术选考加试题VB专项练习题二及答案
浙江省高中信息技术选考加试题VB专项练习题二及答案_高考_高中教育_教育专区。浙江省高中信息技术选考加试题 VB 专项练习题二 一、选择题:本大题 13 小题,第...
2018年信息技术选考第二轮复习VB基础1
技术选考第二轮复习VB基础1_其它课程_高中教育_教育...五、VB 输入和输出显示(注意转换函数 Val 和 Str ...2018届浙江信息技术选考... 56人阅读 2页 ¥9...
浙江高中学考选考VB循环语句习题
(2)For 循环执行过程填空 s = 0 For i = 5 To 2 Step -2 s = s +...浙江省信息技术学考循环... 63人阅读 2页 ¥2.00 浙江技术选考VB基本运算...
浙江选考复习VB基础知识专题
浙江选考复习 VB 基础知识专题 一、基本数据类型 1、下表是 VB 基本数据类型...2017届浙江技术选考复习... 274人阅读 5页 ¥9.00 浙江高考选考VB算法...
2018年信息技术选考第二轮复习VB基础3
技术选考第二轮复习VB基础3_其它课程_高中教育_教育...[5,16)的整数,并存储在 Integer 类型变量 x 中 ...2018届浙江信息技术选考... 56人阅读 2页 ¥9...
2018年信息技术选考第二轮复习VB基础1答案
2018年信息技术选考第二轮复习VB基础1答案_其它课程_高中教育_教育专区。命题:...五、VB 输入和输出显示(注意转换函数 Val 和 Str 的使用) 已知数值型变量 x...
更多相关标签: