VB程序设计期中试卷.doc

VB程序设计期中考试统一试题（A）
注意事项
(考试时间：90分钟)
1、请首先按要求在试卷的标封处填写您的姓名、考号和所在单位的名称。
2、请仔细阅读各题目的回答要求，在规定的位置填写您的答案。
3、不要在试卷上乱写乱画，不要在标封区填写无关内容。

学校： 班别： 学号： 姓名： 评分：
一、单项选择题：（每题2分，共50分）
1. Visual Basic程序中分隔一行中各语句的字符是（ ）。
A) , B) : c) ; d) _
2. 下列可作为Visual Basic的变量名的是（ ）。
A: Filename B: A（A＋B） C: A%D D : Print
3. 要让复选框无效，应将value属性值设置为( )。
A. 0 B. 1 C. 2 D.3
4. 以下过程是（ ）事件。
Prviate Sub Form_Load( )
……
End Sub
A: 命令按钮的单击 B: 命令按钮的装载
C：窗体的装载 D: 窗体的单击
5. Vb工程组文件的扩展名的是（ ）。
A: .vbg B: .frm
C:.ocx D: .bas
6. 关于Visual Basic中事件的说法中，不正确的为（ ）。
A) 事件是由Visual Basic预先定义好的，能够被对象识别的动作 B) DblClick（双击）是Visual Basic中的一种事件
C) 一个对象可以识别一个或多个事件
D) 对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义
7. 下列控件中可设置滚动条是（ ）。
A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框
8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 A Form1 B. Form2 C. Formx D. Form10
9.Const One&=1，则One为（ ）类型的常数。
A).整型 B) 字节型 C) 长整型 D) 单精度型
11. 以下（ ）不是Visual Basic的特点。
A: 面向对象的程序设计 B: 集成可视化程序开发环境 C: 事件驱动编程机制 D: 可将用户的编程思想自动转换成程序代码
12. 窗体的load事件可以被用来实现的功能为（ ）。
A: 确定窗体的位置 B: 从内存中清楚一个窗体
C: 在程序启动时对属性和变量初始化
D: 重画窗体
13. 单复选框的控件名称为（ ）。
A. OptionBotton B. CheckBox C. PictureBox D. Image
15. 若要设置定时器的定时间隔设为10秒，应将（ ）属性值设为10000。
A. Interval B. Value C. Enabled D. Text
16. 以下（ ）是命令按钮控件。
A. common B. command C. optionbutton D. ComboBox
17. 以下（ ）可从通用对话框的“字体”对话框中返回用户选择的字体名。
A. FileName B. Path C. FontName D. Color
18. 下列哪个操作可以清除文本框对象Text1的内容（ ）。
A. Text1.Text="" B. Text1.cls C. Text＝"" D. cls
19.要改变控件的宽度，应修改该控件的（　 　）属性。
A、TOP B、width C、Left D、Height
20.将命令按钮Command1设置为不可见，应修改该命令按钮的（ ）属性。
A、Visible B、Value C、Caption D、Enabled
21．组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为（ ）。
A、0 B、1 C、2 D、3
22.下列表达式中，其值为0的是（ ）。
A、7/9 B、7mod 15 C、7\9 D、15 mod 9
23. Int（-23.512）的值为（ ）。
A.-23 B.-24 C. 24 D.23
24. 将ASCII码转换成字符串的函数是（ ）。
A. Chr$ B. Str$ C. Asc D. Val
25. 表达式 Mid("Beijing2008",4,4)的值是（ ）。
A. Beij B. jing C. inj2 D. 2008
二、填空题：请把答案填在题中横线上。（每空2分，共20分）
1. Visual Basic中有一种控件组合了文本框和列表框的特性,这种控件是_______。
2. Visual Basic中的窗体文件的扩展名是 。
3. 逻辑（and）运算时，只有当操作数 时，结果才为弄真（true）。
4. 计时器控件能有规律的以一定时间间隔触发事件,并执行该事件过程中的程序代码。
5. Visual Basic应用程序中整型数据的类型名是 ，字符数据的类型名是____________，单精度的类型名是 。
6. 与数学表达式cos2(a+b)÷(3+x)+5对应的Visual Basic表达式是_____________。
7. 在Visual Basic中最基本的对象是__________。
8. 在代码窗口中,输入某行代码并按回车键之后,如果代码变成______颜色,说明该行代码有语法错误。
三、程序分析题，把正确答案的字母写在横线上（每题7分，共21分）
1、当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
a) 字符串15 b) 整数15 c) 字符串5 d) 整数5
2、若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
elseif b>3 then c=a*b
else
c=a mod b
End if
a) 2 b) -1 c) 1 d) 0
3、我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，
Private Sub Text1_change( )
Text2.text=ucase(Text1.text)
End Sub
则在Text1文本框输入“visual basic”，Text2将______。
a) Text2中无内容显示。
b) Text2显示"VISUAL BASIC"。
c) Text2显示"visual basic"
d) Text1显示"visual basic"
四、编程题（共9分）
假设我国现有人口12亿，每年增长率为1%，计算多少年后增加到20亿。
private sub command1_click()
dim a as double,n as integer
a=12
n=0
do while a<=20
a=a+a*0.01
n=n+1
loop
print n & "年后达到20亿"
end sub其中专业理论知识内容包括：保安理论知识、消防业务知识、职业道德、法律常识、保安礼仪、救护知识。作技能训练内容包括：岗位操作指引、勤务技能、消防技能、军事技能。
二．培训的及要求培训目的
安全生产目标责任书
为了进一步落实安全生产责任制，做到“责、权、利”相结合，根据我公司2015年度安全生产目标的内容，现与财务部签订如下安全生产目标：
一、目标值：
1、全年人身死亡事故为零，重伤事故为零，轻伤人数为零。
2、现金安全保管，不发生盗窃事故。
3、每月足额提取安全生产费用，保障安全生产投入资金的到位。
4、安全培训合格率为100%。
二、本单位安全工作上必须做到以下内容：
1、对本单位的安全生产负直接领导责任，必须模范遵守公司的各项安全管理制度，不发布与公司安全管理制度相抵触的指令，严格履行本人的安全职责，确保安全责任制在本单位全面落实，并全力支持安全工作。
2、保证公司各项安全管理制度和管理办法在本单位内全面实施，并自觉接受公司安全部门的监督和管理。
3、在确保安全的前提下组织生产，始终把安全工作放在首位，当“安全与交货期、质量”发生矛盾时，坚持安全第一的原则。
4、参加生产碰头会时，首先汇报本单位的安全生产情况和安全问题落实情况；在安排本单位生产任务时，必须安排安全工作内容，并写入记录。
5、在公司及政府的安全检查中杜绝各类违章现象。
6、组织本部门积极参加安全检查，做到有检查、有整改，记录全。
7、以身作则，不违章指挥、不违章操作。对发现的各类违章现象负有查禁的责任，同时要予以查处。
8、虚心接受员工提出的问题，杜绝不接受或盲目指挥；
9、发生事故，应立即报告主管领导，按照“四不放过”的原则召开事故分析会，提出整改措施和对责任者的处理意见，并填写事故登记表，严禁隐瞒不报或降低对责任者的处罚标准。
10、必须按规定对单位员工进行培训和新员工上岗教育；
11、严格执行公司安全生产十六项禁令，保证本单位所有人员不违章作业。
三、 安全奖惩：
1、对于全年实现安全目标的按照公司生产现场管理规定和工作说明书进行考核奖励；对于未实现安全目标的按照公司规定进行处罚。
2、每月接受主管领导指派人员对安全生产责任状的落

5