2018年7月VB程序设计复习题库
更新时间:2024-04-12 02:27:02 阅读量: 综合文库 文档下载
VB程序设计复习题库
一、判断题(每小题2分,共20分)
在以下提供的若干陈述中,逐一判断其正确与否,用A表示正确,用B表示错误。 (1) 事件过程可以由某个用户事件触发执行,它不能被其他过程调用。 (2) Visual Basic的Double类型数据可以精确表示其数值范围内的所有实数。 (3) For/Next循环正常(未执行Exit For)结束后,控制变量的当前值等于终值。 (4) Sub过程名在过程中必须被赋值。
(5) SetFocus方法是把焦点移到指定对象上,使对象获得焦点,该方法适用于所有控件。 (6) 移动框架时框架内控件也随之移动,所以框架内控件的Left和Top属性值也随之改变。 (7) 单选钮控件和复选框控件都具有Value属性,它们的作用完全一样。
(8) 当组合框的Style属性设置为0时,组合框称为“下拉式组合框”,其选项可以从下拉列表框
的列表项中选择,也可以由用户输入。 (9) 若Visual Basic中容器取缺省坐标系,则坐标原点在容器左上角、单位长度为像素。 (10) 用Output模式打开文件,如果指定文件和路径不存在,则会自动创建指定文件及路径。
二、单选题(每小题2分,共20分)
(11) 将VB新建的“标准EXE”工程保存在磁盘上,至少会产生( )文件。
[A] .frx和.frm
[B] .exe和.vbp
[C] .vbp和.frm
[D] .frm和.bas
(12) 窗体Form1的Name属性是Frm1,它的单击事件过程名是( )。
[A] Form1_Click
[B] Form_Click [C] Frm1_Click
[D] Me_Click
(13) 已知字符串变量x存放\,表达式Val(\的值是( )。
[A] 0
[B] &H12
[C] 12
[D] 18
(14) 假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是
( )。 [A] 数组中每个命令按钮的名称(Name属性)均为Command1 [B] 若未做修改,数组中每个命令按钮的大小都一样 [C] 数组中各个命令按钮使用同一个Click事件过程 [D] 数组中每个命令按钮的Index属性值都相同
(15) 要使文本框显示滚动条,除了设置ScrollBars属性外还必须设置( )属性。 [A]AutoSize
[B]MultiLine
[C]Alignment
[D]Visible
(16) 当Stretch属性为False时( )。
第1页(共4页)
[A] 图片大小随影像框的大小进行调整 [C] 图片框的大小随图片大小进行调整
[B] 影像框的大小随图片大小进行调整 [D] 图片大小随图片框的大小进行调整
(17) 在设计菜单时,为了创建分隔栏,要在( )中输入连字符(-)。 [A] 名称栏
[B] 标题栏
[C] 索引栏
[D] 显示区
(18) 将通用对话框控件以“打开文件”对话框方式打开,可选( )方法。 [A] ShowOpen [B] Action [C] Open [D] FileName (19) 下面子过程语句说明合法的是_________
A.Sub f1(ByVal n%( )) B.Sub f1(n%) As Integer C.Function f1%(f1%) D.Function f1(ByVal n%) (20) 执行语句“Write #1, 234; -34.56, \”后,相应的文件内被写入( )。 [A] 234,-34.56,\[C] 234,-34.56,Hi,2004-06-11
[B] 234;-34.56,\ [D] 234 -34.56 \
三、程序填空题(每空3分,共30分,)
阅读下列程序说明和相应程序,在每小题提供的若干可选答案中,挑选一个正确答案。
程序1【程序说明】以下程序随机产生100个两位正整数,先对这些数按从大到小的顺序排序并按
每行10个显示在窗体上。再找出所有的个位数字与十位数字之和等于10的数。 【程序】
Private Sub Form_Click()
Dim a(100) As Integer, i As Integer, j As Integer, t As Integer, x As Integer, y As Integer For i = 1 To 100
a(i) = (21) Next i
For i = 1 To 99
For j = i + 1 To 100 If a(i) < a(j) Then
(22) End If Next j Next i
For i = 1 To 100 Print a(i);
(23) Next i
For i = 1 To 100
x = (24) '取十位数字 y = a(i) Mod 10 '取个位数字 If x + y = 10 Then Print a(i) Next i End Sub
Private Sub Swap( (25) ) Dim Temp As Integer
Temp = X : X = Y : Y = Temp
第2页(共4页)
End Sub 【选项】
(21) [A] Int(Rnd * 90) + 10 (22) (23)
[C] Int(Rnd * 99) [A] Call Swap a(i), a(j) [C] Temp = Swap(a(j), a(i)) [A] If i = 10 Then Print [C] If i \\ 10 = 0 Then Print
[B] Int(Rnd * 100)
[D] 10 To 99
[B] Call Swap(a(i), a(j)) [D] Swap(a(j), a(i))
[B] If i = 10 *n Then Print [D] If i Mod 10 = 0 Then Print
(24) [A] a(i) / 10 [B] a(i) \\ 10 [C] Int(a(i))/10 [D] Fix(a(i))
(25) [A] ByVal X As Integer, ByVal Y As Integer [B] ByVal X As Single, ByVal Y As Single [C] ByRef X As Integer, ByRef Y As Integer [D] ByRef X As Single, ByRef Y As Single
四、程序改错题(每小题6分,共30分)
Transfer 过程用于将一个十六进制整数转换为十进制整数,number函数过程用于将一个十六进制符号转换为数值。 Public Sub Transfer()
Dim Hex As String '十六进制数 Dim Dec As Double '十进制数 Dim temp As String Dim i As Integer Dim n As Integer
Hex = InputBox(\输入一个十六进制整数\ n = Val(Hex) '--------(1)-------- i = 0 Do
temp = Mid(Hex, i, 1) '--------(2)-------- Dec = Dec + number * 16 ^ i '--------(3)-------- i = i + 1 Loop While i < n
Form1.Print str(Hex) & \转换为十进制数为\ '--------(4)-------- End Sub
Public Function number(str As String) As Integer Select Case str Case \ number = 10 Case \ number = 11 Case \ number = 12 Case \ number = 13 Case \ number = 14 Case \ number = 15 Case Else
number = str '--------(5)-------- End Select End Function
参考答案
第3页(共4页)
一、判断题(每小题2分,满分20分) (1) B (2) B (3) B (4) B (5) B (6) B (7) B (8) A (9) B (10) B 二、单选题(每小题2分,满分20分)
(11) (12) (13) (14) (15) (16) (17) (18) (19) (20) C B D D B A B A D A 三、程序填空题(每小题2分,满分20分) (21) (22) (23) (24) (25) A B D B C 四、程序改错题(每小题6分,满分30分)
(1)n = Len(Hex)
(2)temp = Mid(Hex, n - i, 1)
(3)Dec = Dec + number(temp) * 16 ^ i
(4)Form1.Print Hex & \转换为十进制数为\(5)number = Val(str)
第4页(共4页)
正在阅读:
2018年7月VB程序设计复习题库04-12
乙酸乙酯生产培训装置操作规程-140409 - 图文05-10
手持GPS坐标系转换的心得体会06-02
医院院长个人工作述职报告通用8篇03-24
年底基本完成市属国企公司制改革报告02-22
关于成立永嘉盛企业文化小组的草案10-11
李程论文06-29
通信技术课后习题复习(参考)09-18
VHDL试卷05-20
大门岗保安员岗位职责10-16
- 多层物业服务方案
- (审判实务)习惯法与少数民族地区民间纠纷解决问题(孙 潋)
- 人教版新课标六年级下册语文全册教案
- 词语打卡
- photoshop实习报告
- 钢结构设计原理综合测试2
- 2014年期末练习题
- 高中数学中的逆向思维解题方法探讨
- 名师原创 全国通用2014-2015学年高二寒假作业 政治(一)Word版
- 北航《建筑结构检测鉴定与加固》在线作业三
- XX县卫生监督所工程建设项目可行性研究报告
- 小学四年级观察作文经典评语
- 浅谈110KV变电站电气一次设计-程泉焱(1)
- 安全员考试题库
- 国家电网公司变电运维管理规定(试行)
- 义务教育课程标准稿征求意见提纲
- 教学秘书面试技巧
- 钢结构工程施工组织设计
- 水利工程概论论文
- 09届九年级数学第四次模拟试卷
- 题库
- 程序设计
- 复习
- 2018
- 小学奥数6-1-16 盈亏问题(二).学生版
- 11582创意音乐电影主题餐饮众筹项目计划书
- 2018-2019-初一寒假作业答案语文-推荐word版(2页)
- 7 经济评价
- 基础工程学Foundation Engineering - 图文
- 汽车排放及控制技术试题答案
- 2015年黄陂一中分配生素质测试数学试卷及答案
- 句子的成分和基本句型
- 论述道路设计软件海地和纬地的功能及这两个软件操作界面的异同
- 在线实时自动检测系统设计与分析开题报告
- 2012运筹学复习题
- Oracle试卷A答案
- 以物抵账管理办法
- 2015年12月20日作业:《书画艺术与人文素养》
- 宁夏物流业现状与发展对策
- 科学七年级下第二章1-4节测试题及答案
- 汽轮机振动故障诊断与分析 - 图文
- 网络官场小说中的舆情反映及引导
- 2016年广东省广州市中考数学试卷
- 社会团体登记管理条例-天津民政局