春季学期可视化程序设计VB第三次作业Word下载.doc
《春季学期可视化程序设计VB第三次作业Word下载.doc》由会员分享，可在线阅读，更多相关《春季学期可视化程序设计VB第三次作业Word下载.doc（7页珍藏版）》请在冰点文库上搜索。
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的值，在横线上填上适当的内容。
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.有如下事件过程，写出程序的功能（数学表达式）。
T=0
M=1
Sum=0
Do
T=T+M
Sum=Sum+T
M=M+2
LoopWhileM<
=39
Print“Sum=”；
Sum
5.有下面一段程序，运行后单击Command4按钮，过3分钟后Text1中的内容是什么？
PublicaAsIntegerPrivateSubForm_Load（）
a=0
PrivateSubCommand4_Click（）
Timer1.Enabled=1
Timer1.Interval=1000
PrivateSubTimer1_Timer（）
Statica%
a=a+1
IfaMod10=0Then
f1a
EndIf
StaticSubf1（s%）
a=a+1
s=0
Text1.Text=Str（a）
6.使用情况语句改写下列事件过程。
PrivateSubCommand1_Click（）
Dimscore!
grade$
score=InputBox（"
请输入一个学生的分数：
）
Ifscore>
=90Then
Grade=”A”
ElseIfscore>
=80Then
Grade=”B”
=70Then
Grade=”C”
=60Then
Grade=”D”
Grade=”E”
Print"
该学生的分数等级为：
grade;
三、问答题（本大题共36分，共6小题，每小题6分）
1.根据访问模式，文件分为哪几种类型？
2.菜单名与菜单项有什么区别？
3.KeyPress与KeyDown事件的区别是什么？
4.在程序运行时怎样在图形（像）框中装人或删除图形？
5.怎样用Circle方法画圆、椭圆、圆弧和扇形？
6.字符串运算符“＆”和“+”有什么区别？
答案：
一、填空题（28分，共7题，每小题4分）
1.
参考答案：
标准、紧凑
解题方案：
评分标准：
2
2.
Enabled
3.
vbModal或1
4.
顺序结构、选择结构、循环结构
5.
1、2、4；
左、右、中间
6.
8*Exp（3）*Log
（2）
7.
Visable；
Load
二、程序阅读题（36分，共6题，每小题6分）
以选择的颜色作为窗体前景色，将一个文本文件显示在Form1窗体上
使用通用对话框改颜色
6
判断一个数各位上的偶数个数
理解判断偶数的表达
（1）sum=sum+i
（2）GoTo20
根据要求，设计每一步的代码
程序的功能：
程序用于计算数学表达等式为：
1＋22＋32＋42＋…＋202==2870
循环计算
18
正确使用时钟控件
SelectCasescore
CaseIs>
=90
grade="
A"
=80
B"
=70
C"
=60
D"
CaseElse
E"
EndSelect
区别条件语句与分支语句的功能
三、问答题（36分，共6题，每小题6分）
根据访问模式文件分成顺序文件、随机文件、二进制文件。
顺序文件可按记录、按行、按字符数三种方式读出；
随机文件按记录为单位读出；
二进制文件按字节为单位读出。
4
菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。
每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。
KeyPress指按下对应某ASCII字符的键。
KeyDown指按下键盘的任意键。
KeyPress与KeyDown事件
在程序运行时可以通过LoadPicture（）函数、剪贴板ClipBoard对象和对象间图片的相互复制三种方法在图形（像）框中装人图形，删除Picture属性中的图形只需要调用无参数的LoadPicture（）函数。
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。
+（连接运算）：
两个操作数均应为字符串类型；
&
（连接运算）：
两个操作数既可为字符型也可为数值。
“＆”和“+”的特点
升级会员 