春季学期可视化程序设计VB第三次作业.doc
《春季学期可视化程序设计VB第三次作业.doc》由会员分享，可在线阅读，更多相关《春季学期可视化程序设计VB第三次作业.doc（7页珍藏版）》请在冰点文库上搜索。
2011年春季学期可视化程序设计（VB）第三次作业
一、填空题（本大题共28分，共7小题，每小题4分）
1.在Print方法中，若用逗号分隔，则按______格式输出各表达式的值，若用分号分隔，则按______格式输出各表达式的值。
2.若屏蔽框架上的控件对象，则需设置______属性的值为False。
3.在用Show方法后显示自定义对话框时，如果Show方法后带______参数就将窗体作为模式对话框显示。
4.结构化程序设计的三种基本结构是______、______、______。
5.在mousedown和mouseup事件过程，当参数button的值为______、______、______时，分别代表鼠标的______、______、______键。
6.与下列8e3×ln2数学式子对应的VisualBasic表达式是 ______。
7.如果需要将窗体载入内存却不显示，需要将该窗体的______属性设置为False，再用______语句装载。
二、程序阅读题（本大题共36分，共6小题，每小题6分）
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.下面程序的功能是什么？
PrivateSubCommand1_Click（）
Dims%,n%
DimaAsStringn=0
a=InputBox（"Pleaseinputanumber:
"）
Fors=1ToLen（a）
If（func（Val（Mid（a,s,1））））Then
n=n+1
Next
Printn
EndSub
PrivateFunctionfunc（x%）AsBoolean
If（xMod2=0）Then
func=True
Else
func=False
EndIf
EndFunction
3.下面事件过程的功能是：
输入n的值，求sum=1+2+…+n的值，在横线上填上适当的内容。
PrivateSubCommand1_Click（）
Dimn%,i%,sum&n=InputBox（"n="）i=1:
sum=020:
Ifi>nThen
GoTo10
Else
（1）
i=i+1
（2）
EndIf10:
Print"sum=";sum
EndSub
4.有如下事件过程，写出程序的功能（数学表达式）。
PrivateSubCommand1_Click（）
T=0
M=1
Sum=0
Do
T=T+M
Sum=Sum+T
M=M+2
LoopWhileM<=39
Print“Sum=”；Sum
EndSub
5.有下面一段程序，运行后单击Command4按钮，过3分钟后Text1中的内容是什么？
PublicaAsIntegerPrivateSubForm_Load（）
a=0
EndSub
PrivateSubCommand4_Click（）
Timer1.Enabled=1
Timer1.Interval=1000
EndSub
PrivateSubTimer1_Timer（）
Statica%
a=a+1
IfaMod10=0Then
f1a
EndIf
EndSub
StaticSubf1（s%）
a=a+1
s=0
Text1.Text=Str（a）
EndSub
6.使用情况语句改写下列事件过程。
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
三、问答题（本大题共36分，共6小题，每小题6分）
1.根据访问模式，文件分为哪几种类型？
2.菜单名与菜单项有什么区别？
3.KeyPress与KeyDown事件的区别是什么？
4.在程序运行时怎样在图形（像）框中装人或删除图形？
5.怎样用Circle方法画圆、椭圆、圆弧和扇形？
6.字符串运算符“＆”和“+”有什么区别？
答案：
一、填空题（28分，共7题，每小题4分）
1.
参考答案：
标准、紧凑
解题方案：
评分标准：
2
2.
参考答案：
Enabled
解题方案：
评分标准：
2
3.
参考答案：
vbModal或1
解题方案：
评分标准：
2
4.
参考答案：
顺序结构、选择结构、循环结构
解题方案：
评分标准：
2
5.
参考答案：
1、2、4；左、右、中间
解题方案：
评分标准：
2
6.
参考答案：
8*Exp（3）*Log
（2）
解题方案：
评分标准：
2
7.
参考答案：
Visable；Load
解题方案：
评分标准：
2
二、程序阅读题（36分，共6题，每小题6分）
1.
参考答案：
以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上
解题方案：
使用通用对话框改颜色
评分标准：
6
2.
参考答案：
判断一个数各位上的偶数个数
解题方案：
理解判断偶数的表达
评分标准：
6
3.
参考答案：
（1）sum=sum+i
（2）GoTo20
解题方案：
根据要求，设计每一步的代码
评分标准：
6
4.
参考答案：
程序的功能：
程序用于计算数学表达等式为：
1＋22＋32＋42＋…＋202==2870
解题方案：
循环计算
评分标准：
6
5.
参考答案：
18
解题方案：
正确使用时钟控件
评分标准：
6
6.
参考答案：
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
三、问答题（36分，共6题，每小题6分）
1.
参考答案：
根据访问模式文件分成顺序文件、随机文件、二进制文件。
顺序文件可按记录、按行、按字符数三种方式读出；随机文件按记录为单位读出；二进制文件按字节为单位读出。
解题方案：
评分标准：
4
2.
参考答案：
菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。
每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。
解题方案：
评分标准：
4
3.
参考答案：
KeyPress指按下对应某ASCII字符的键。
KeyDown指按下键盘的任意键。
解题方案：
KeyPress与KeyDown事件
评分标准：
4
4.
参考答案：
在程序运行时可以通过LoadPicture（）函数、剪贴板ClipBoard对象和对象间图片的相互复制三种方法在图形（像）框中装人图形，删除Picture属性中的图形只需要调用无参数的LoadPicture（）函数。
解题方案：
评分标准：
4
5.
参考答案：
Circle方法的语法为：
Circle［Step」（x，y），radius，[color，start，end，aspect]参数aspect指定圆的纵横尺寸比，缺省值为1.0，产生一个标准圆；若取值非1．0，绘制椭圆。
参数start和end指定（以弧度为单位）弧的起点和终点位置。
其范围从-2π到2π。
起点的缺省值是0；终点的缺省值2π。
如果start或end为负，Circle绘制圆心到该点的一条半径，并将角度处理为正的。
当用Circle方法画圆弧和扇形时，若起始角的绝对值大于终止角的绝对值，则所画圆弧或扇形的圆弧角度大于180o。
解题方案：
评分标准：
4
6.
参考答案：
+（连接运算）：
两个操作数均应为字符串类型；&（连接运算）：
两个操作数既可为字符型也可为数值。
解题方案：
“＆”和“+”的特点
评分标准：
4
升级会员 