春季学期可视化程序设计VB第三次作业.doc
- 文档编号:1644263
- 上传时间:2022-10-23
- 格式:DOC
- 页数:7
- 大小:34.50KB
春季学期可视化程序设计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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 春季 学期 可视化 程序设计 VB 第三次 作业