下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、Visual Basic 程序设计模拟试卷二考试形式:闭卷 考试时间:120分钟 站点:_ 姓名: 学号: 成绩: 一、选择题( 8小题,共24分)1、英文缩写“OOP”的含义是 。A)事件驱动的编程机制 B)结构化程序设计语言C)面向对象的程序设计 D)可视化程序设计2、下面变量名不合法的是 。A)abc B)abc# C) a$b D)student_num3、数组定义中 Dim A%(-10 To 20), 数组变量A% 共有_ 元素。A) 20 B)30 C) 31 D) 104、定义10个单精度实数一维数组正确的语句是 。A)Dim Abc(9) As Single B)Option
2、 Base 1 :Dim Abc(9)C)Dim Abc#(9) D)Dim Abc(10) As Single5、语句 Dim s(3,4) As double 表示s是一个二维双精度数组,有_元素。A)20 B)12 C)16 D) 15 6、只能用来显示字符信息的控件是 。A) 图像框 B) 图片框 C) 标签框 D) 文本框7、菜单项能触发的事件有 。A)MouseDown B)MouseUp,Click C)Click D)DblClick 和Click8、方法 Print “10+6=”;10+6 输出的结果是 。A) 10+6= 10+6 B)10+6=16 C)16=10+6
3、D)“10+6=”10+6二、阅读程序写出结果(6小题,每题6分,共36分)1、下列程序:Private Sub Command1_Click ( ) x1 = InputBox (“请输入数据:”) x2 = InputBox (“请输入数据:”)Print x1 + x2End Sub若输入数据 3 和4, 输出结果是 。2、下列程序:Private Sub Command1_Click ( )a=0For J=1 To 15 a = a + J mod 3Next JPrint aEnd Sub运行后输出的结果 。3、下列程序:Private Sub Command1_Click( )
4、Score = Int ( Rnd * 10) + 80 Select Case scoreCase Is < 60 A$ =”E”Case 60 To 69 A$ = ”D”Case 70 To 79 A$ =” C”Case 80 To 89 A$= “B”Case ElseA$ = “A”End SelectPrint A$ End Sub运行时输出结果是 。A)A B)B C)C D)D4、下列程序:Option Base 1Private Sub Command1_Click( ) Dim arr(5) As String For j =1 To 5 arr ( j ) = C
5、hr( Asc(“A”) + ( j -1) ) Next jFor Each b1 In arr Print b1 ;Next End Sub运行时输出结果是 。A) ABCDE B) abcde C) 1 2 3 4 5 D) 程序出错5、下列程序:Option ExplicitPrivate Sub triangle (str As String , n As Integer) Dim j As Integer , k As Integer For j = 1 To nPrint Tab( 16 - j) ;For k =1 To 2 * j 1 Print str ;Next kPri
6、nt Next jEnd SubPrivate Sub Command1_Click( ) Dim char As String * 1 , n As Integer Char = ”+” : n = 5 Call Triangle( Char , n) End Sub6、下列程序:Private Sub Command1_Click( ) Dim sum As Integer , k As Integerk =1 : sum=k: Print k ; For k=2 to 10 Print ”+”; k ; Next kPrint “=”, sumEnd Sub执行程序后屏幕上输出 。三、程
7、序设计基础题(4 小题,每题 5 分,共20分)1、设计一个小程序,计算 Sum = 1 + 3 + 5 + 7 + 9 + + 101Private Sub Command1_Click ( ) Dim sum As Integer 设计程序段 Print sum End Sub2、输入 a, b 两个整数,编写一个小的程序片段实现两数交换。Private Sub sawp ( a As Integer , b As Integer ) Dim temp as integer 设计程序段 print a, bEnd Sub3、在下列数据中找出其中的最小值。 Option Base 1 Private Sub Command1_Click( )Dim s(10)= 10,20,32,12,9,11,23,43,5,8 设计一个程序段,输出其中的最小值 End Sub 4、在窗体上有一个关于地名的组合框控件Combo1,请为它设置以下一些数据“上海、南京、天津、北京、广州、武汉“Private Sub Form1_Load( ) 为 Combo1. 控件设置选择项数据 End Sub四
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年03月浙江省文化广电和旅游厅部分直属事业单位招考聘用37人笔试历年典型题及考点剖析附带答案含详解
- 2024年03月河南驻马店城南高级中学教师招考聘用笔试历年典型题及考点剖析附带答案含详解
- 2024年03月江西赣州职业技术学院博士招考聘用笔试历年典型题及考点剖析附带答案含详解
- 2024年03月江苏苏州太仓市第一人民医院招考聘用护理专业人员80人笔试历年典型题及考点剖析附带答案含详解
- 2024年03月广州市番禺区市场监督管理局下属事业单位2024年公开招考8名工作人员笔试历年典型题及考点剖析附带答案含详解
- 2024年03月广东清远佛冈县石角镇招考聘用专职消防安全监管员笔试历年典型题及考点剖析附带答案含详解
- 2024年03月山西省壶关县2024年公开招考95名工作人员到村工作笔试历年典型题及考点剖析附带答案含详解
- 2024年03月山东济宁金乡县教体系统校园招考聘用14人(山东师范大学站)笔试历年典型题及考点剖析附带答案含详解
- 2024年03月国家统计局青田调查队2024年公开招考1名工作人员笔试历年典型题及考点剖析附带答案含详解
- 2024年03月四川成都市郫都区教育局下属事业单位招考聘用教师172人笔试历年典型题及考点剖析附带答案含详解
- 运动相机方案
- 成人手术后疼痛评估与护理(团体标准)考试试题及答案
- 2024年山东春季高考数学试题word版(含答案解析)
- 内科讲课课件
- 中药熏药治疗
- 大学生谈恋爱法律知识讲座
- 技术创新服务人员培训方案
- 采购员价值观与职业素养提升
- 低碳建筑课件
- 小学生农业知识讲座
- 斜屋面瓦安全施工方案
评论
0/150
提交评论