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

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

相关文章:
2018年信息技术选考第二轮复习VB基础1答案
2018年信息技术选考第二轮复习VB基础1答案_其它课程_高中教育_教育专区。命题:...五、VB 输入和输出显示(注意转换函数 Val 和 Str 的使用) 已知数值型变量 x...
2018届浙江信息技术选考VB基础复习题
2018届浙江信息技术选考VB基础复习题_其它课程_高中教育_教育专区。夏令营周练之...(abc123) 2 Mod 5 Mid(ab66dc,3,2) 17 Mod 5 Mid(66dc,1,1) 6 ...
2017届浙江技术选考第二轮复习VB算法加试题复习6
2017届浙江技术选考第二轮复习VB算法加试题复习6_其它课程_高中教育_教育专区。...算法加试题复习六 一、选择题:本大题共 5 小题,每小题 3 分,共 15 分...
高中信息技术选考VB专题练习(一轮复习)
高中信息技术选考VB专题练习(一轮复习)_其它课程_高中教育_教育专区。知识点全面,有助于帮助学生复习VB基础知识,并为之后加试部分学习打下基础。...
2017届浙江技术选考第二轮复习VB算法加试题复习12
2017届浙江技术选考第二轮复习VB算法加试题复习12_其它课程_高中教育_教育专区。...算法加试题复习十二 一、选择题:本大题共 5 小题,每小题 3 分,共 15 分...
2018年信息技术选考第二轮复习VB基础1
技术选考第二轮复习VB基础1_其它课程_高中教育_教育...五、VB 输入和输出显示(注意转换函数 Val 和 Str ...2018届浙江信息技术选考... 56人阅读 2页 ¥9...
浙江高考选考VB算法复习资料基础知识
浙江高考选考VB算法复习资料基础知识_其它课程_高中...VB 中,用数组 a 存储 50 位同学一次信息技术考试...{12} 5、在VB中,下列属于字符串常量的是 (A)...
2017届浙江技术选考第二轮复习VB算法加试题复习20
2017届浙江技术选考第二轮复习VB算法加试题复习20_其它课程_高中教育_教育专区。...算法加试题复习二十 一、选择题:本大题共 5 小题,每小题 3 分,共 15 ...
2018年信息技术选考第二轮复习VB基础4
2018年信息技术选考第二轮复习VB基础4_其它课程_高中教育_教育专区。命题:杜...13人阅读 5页 ¥9.00 浙江高中技术选考第二轮... 50人阅读 2页 ¥...
2017届浙江技术选考第二轮复习VB算法加试题复习4
1.在 VB 程序中, 2017 届浙江技术选考第二轮复习 VB 算法加试题复习四 一、选择题:本大题共 5 小题,每小题 3 分,共 15 分。在每小题给出的四个选项...
更多相关标签: