考试可视化程序设计VB第三次作业doc.docx
《考试可视化程序设计VB第三次作业doc.docx》由会员分享，可在线阅读，更多相关《考试可视化程序设计VB第三次作业doc.docx（13页珍藏版）》请在冰豆网上搜索。
考试可视化程序设计VB第三次作业doc
2011年12月考试可视化程序设计（VB）第三次作业
一、填空题（本大题共60分，共15小题，每小题4分）
1.要使用状态栏控件设计状态栏，应首先在“部件”对话框中选择______，然后从工具箱中选择______控件。
2.对象的边框类型由_______属性设置。
3.VB的每个菜单项都有一个下拉菜单，含有若干个______命令。
用鼠标单击某个菜单项就执行相应的菜单命令。
4.菜单的热键指使用______键和菜单项标题中的一个字符来打开菜单。
建立热键的方法是在菜单标题的某个字符前加上一个______符号，在菜单中这一字符会自动加上______，表示该字符是一个热键字符。
5.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句：
______。
6.根据文件内容区分，文件分为______和______。
7.当使用Format函数与Print方法一起输出时，格式字符串中的”#”号表示一个数字位，它的个数决定______的长度，若要显示的数据位数大于这个长度，则显示时数据按______显示。
8.菜单在运行时的动态增减主要通过控件数组实现，首先将菜单项的______属性设为False，然后在程序中用______语句加载。
9.如果将工程的启动对象设置成______子程序，则程序启动时可以不加载任何窗体。
10.要从字符串“VisualBasic6.0”中截取子字符串“Basic”可使用的函数是______。
11.要在运行时给状态栏StatusBar1的第二个窗格添加一幅图片，该图片由文件“c：
＼windows＼winupd．ico”指定，应使用语句：
______。
12.若case子句中的表达式表列具有形式：
表达式1To表达式2，则它的含义是：
当测试表达式的值等于______时，执行该case子句相应的程序块。
13.表示x是5的倍数或是9的倍数的逻辑表达式是______。
14.程序运行过程中，在立即窗口显示变量f的语句是______。
15.设
Form1.Scaleleft=-250，
Form1.Scalertop=300，
Form1.Scalewidth=350，
Form1.Scaleheight=500，
则Form1的右下角坐标为______。
二、程序阅读题（本大题共40分，共10小题，每小题4分）
1.若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？
DimfilenameAsString
DimstrAsString
CommonDialog1.Filter="文本文件（*.TXT）|*.txt"
CommonDialog1.Action=1
filename=CommonDialog1.filename
CommonDialog1.ShowColor
Form1.ForeColor=CommonDialog1.Color
Openfilename
ForInputAs#1
DoWhileNotEOF
（1）
str=str+Input（1,#1）
Loop
Form1.Printstr
Close＃1
2.PrivateSubForm_Click（）
num=0
Do
num=num+3
Printnum
LoopUntilnum
Mod4=0
EndSub
程序运行后，单击窗体，输出结果是_____________
3.写出下面事件过程的执行结果。
PrivateSubCommand1_Click（）
Dimf（10）AsInteger
f（0）=1
f
（1）=1
Fori=2To10
f（i）=f（i-2）+f（i-1）
Nexti
Fori=0To9
IfiMod4=0Then
Print
Printf（i）
Nexti
EndSub
4. 下列标准模块和窗体模块的功能是给通信录文件“d:
\txrf1.dat”添加新记录，在横线上填上适当内容。
标准模块：
TypetxrnumAsInteger
nameAsString*10
telAsString*8
addrAsString*20
EndType
窗体模块：
PrivateSubCommand1_Click（）
Dimn%,zgrAstxr
Open"d:
\txrf1.dat"ForRandomAs#1
Len=Len（zgr）
zgr.num=InputBox（"输入新职工编号：
"）
zgr.name=InputBox（"输入新职工姓名：
"）
zgr.tel=InputBox（"输入新职工电话号码：
"）
zgr.addr=InputBox（"输入新职工住址：
"）
n=
（1）
（2）
Close#1
EndSub
5.写出下面的程序运行后，连续单击4次窗体，在Form1上的执行结果。
PrivateSubForm_Click（）
StaticaAsInteger
DimbAsInteger
b=a+b+1
a=a+b
Form1.Print“a=”;a,“b=”;b
EndSub
6.有如下事件过程，写出程序的功能（数学表达式）。
PrivateSubCommand1_Click（）
T=0
M=1
Sum=0
Do
T=T+M
Sum=Sum+T
M=M+2
LoopWhileM<=39
Print“Sum=”；Sum
EndSub
7.编写如下代码：
dimflagasBoolean
privatesubform_mousedown（buttonasinteger，shiftasinteger，xassingle，yassingle）
flag=true
endsub
privatesubform_mousemove（buttonasinteger，shiftasinteger，xassingle，yassingle）
flag=false
endsub
privatesubform_mouseup（buttonasinteger，shiftasinteger，xassingle，yassingle）
ifflag=falsethen
print"DDDD"
endif
endsub
程序运行后，如果在窗体上输出“DDDD”，则应执行的操作为__________。
8.下面事件过程的功能是从键盘上输入若干个数据存放到一维数组a中，并求出这组数据的平均值，在横线上填上适当内容。
PrivateSubCommand1_Click（）
Dimn%,i%
（１）
n=InputBox（"请输入数据个数：
"）
（２）
Fori=1Ton
a（i）=InputBox（"请输入第"&Str（i）&"个数据：
"）
Nexti
Fori=1Ton
Sum=Sum+a（i）
Nexti
Print"平均值：
";Sum/n
EndSub
9.下面程序的作用是什么？
PrivateSubCommand1_Click（）
Dima（）
a=Array（1,2,3,4,5,6,7,8,9）
Forn=0To8
Printa（n）;
Next
Print
Calls1（a）
Forn=0To8
Printa（n）;
Next
EndSub
PrivateSubs1（ByRefx（））
s=UBound（x）
Forn=0Tos/2
temp=x（n）
x（n）=x（s-n）
x（s-n）=temp
Next
EndSub
10.使用情况语句改写下列事件过程。
PrivateSubCommand1_Click（）
Dimscore!
grade$
score=InputBox（"请输入一个学生的分数：
"）
Ifscore>=90Then
Grade=”A”
ElseIfscore>=80Then
Grade=”B”
ElseIfscore>=70Then
Grade=”C”
ElseIfscore>=60Then
Grade=”D”
Else
Grade=”E”
EndIf
Print"该学生的分数等级为：
";grade;
EndSub
答案：
一、填空题（60分，共15题，每小题4分）
1.
参考答案：
MicrosoftWindowsCommonControls6.0、StatusBar
解题方案：
评分标准：
2
2.
参考答案：
BorderStyle
解题方案：
评分标准：
2
3.
参考答案：
菜单
解题方案：
评分标准：
2
4.
参考答案：
Alt、&、下划线
解题方案：
评分标准：
2
5.
参考答案：
Toolbarl．Buttons
（2）．ButtonMenus（3）．Enabled＝False
解题方案：
评分标准：
2
6.
参考答案：
程序文件、数据文件
解题方案：
评分标准：
2
7.
参考答案：
显示数据、原样
解题方案：
评分标准：
2
8.
参考答案：
Visible，Load
解题方案：
评分标准：
2
9.
参考答案：
Main
解题方案：
评分标准：
2
10.
参考答案：
Mid（“VisualBasic6.0”,8,5）
解题方案：
评分标准：
2
11.
参考答案：
StatusBar1．Panels
（2）．Picture＝LoadPicture（”C：
＼Windows＼Winupd．ico”）
解题方案：
评分标准：
2
12.
参考答案：
这个范围内的值
解题方案：
评分标准：
2
13.
参考答案：
xmod5=0ORxmod9=0
解题方案：
评分标准：
2
14.
参考答案：
Debug.Printf
解题方案：
评分标准：
2
15.
参考答案：
100,800
解题方案：
评分标准：
2
二、程序阅读题（40分，共10题，每小题4分）
1.
参考答案：
以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上
解题方案：
使用通用对话框改颜色
评分标准：
6
2.
参考答案：
36912
解题方案：
理解循环过程
评分标准：
6
3.
参考答案：
11235813213455
解题方案：
循环输出
评分标准：
6
4.
参考答案：
（1）LOF
（1）/Len（zgr）+1
（2）Put#1,n,zgr
解题方案：
标准模块和窗体模块应用
评分标准：
6
5.
参考答案：
执行结果为：
a=1b=1a=3b=2a=7b=4a=15b=8
解题方案：
静态变量的特性
评分标准：
6
6.
参考答案：
程序的功能：
程序用于计算数学表达等式为：
1＋22＋32＋42＋…＋202==2870
解题方案：
循环计算
评分标准：
6
7.
参考答案：
移动鼠标并松开鼠标左键。
解题方案：
理解鼠标事件的动作原理
评分标准：
6
8.
参考答案：
（1）Dima（）AsInteger
（2）ReDima（n）
解题方案：
根据要求填写与数组有关的代码
评分标准：
6
9.
参考答案：
将数组a倒置
解题方案：
数组操作与数据交换
评分标准：
6
10.
参考答案：
PrivateSubCommand1_Click（）
Dimscore!
grade$
score=InputBox（"请输入一个学生的分数：
"）
SelectCasescore
CaseIs>=90
grade="A"
CaseIs>=80
grade="B"
CaseIs>=70
grade="C"
CaseIs>=60
grade="D"
CaseElse
grade="E"
EndSelect
Print"该学生的分数等级为：
";grade;
EndSub
解题方案：
区别条件语句与分支语句的功能
评分标准：
6
升级会员 