VB期末A卷.docx

VB期末A卷.docx

《VB期末A卷.docx》由会员分享，可在线阅读，更多相关《VB期末A卷.docx（14页珍藏版）》请在冰豆网上搜索。

VB期末A卷

2008/09第二学期程序设计基础VB试卷

说明：

考生应将所有答案填写在答卷上，否则无效。

一、选择题（每小题1分，共10分）

1、下列函数中，_________函数返回的值是数值型的。

A.ChrB.MidC.SpaceD.Instr

2、执行语句a=MsgBox（"AAAA",,"BBBB","",5）后，所产生的信息框的标题是_____。

A.BBBBB.空C.AAAAD.5

3、设a=2,b=3,c=4,d=5,表达式3>2*bORa=cANDb<>cORc>d的值是______。

A.1B.TrueC.FalseD.-1

4、Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下_______属性。

A.Enabled=False或Interval=0B.Visible=False或Interval=0

C.Enabled=False或Visible=FalseD.Enabled=False且Interval=0

5、下面语句说明合法的是______。

A.Suba1（ByValn%（））B.Suba1（nAsInteger）AsInteger

C.Functionf1%（f1AsInteger）D.Functionf1（ByValnAsInteger）

6、设当前位置CurrentX=200，CurrentY=400，执行指令"Line（100,250）-（350,500）,,B"后，CurrentX=______。

A.100B.200C.350D.550

7、在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_________。

A.Text（.txt）|*.txtB.Text（.txt）（*.txt）

C.文本文件|（.txt）D.Text（.txt）||*.txt

8、当拖动滚动条中的滚动块时，将触发的滚动条的______事件。

A.MoveB.ChangeC.ScrollD.SetFocus

9、VisualBasic的使用目的是_________。

A.图像处理wwwB.开发Windows应用程序C.制作WAV文件D.文字处理

10、假设Text1文本框中输入了学生的成绩，以A、B、C、D、E字符表示不同的等级，下列语句中_____________可用于判断输入数据是否正确。

A.If"A"<=Text1<="E"ThenMsgBox"输入正确"ElseMsgBox"输入错误"

B.If"A"<=Text1OrText1<="E"ThenMsgBox"输入正确"ElseMsgBox"输入错误"

C.IfA<=Text1AndText1<=EThenMsgBox"输入正确"ElseMsgBox"输入错误"

D.If"A"<=Text1AndText1<="E"ThenMsgBox"输入正确"ElseMsgBox"输入错误"

二、填空题（每空格1分，共10分）

1、为了在运行程序时删除窗体Form1的背景图片，可使用

语句。

2、正确地显示一个标题为：

“ERROR”、提示信息为“Input”的对话框的代码是k=InputBox（

）。

3、滚动条产生Change事件是因为

属性值改变了。

4、假定窗体上有一个文本框，若有以下事件过程，请问这个文本框只能接受

。

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii<65OrKeyAscii>90ThenKeyAscii=0

EndSub

5、若在程序中使用Dima,basString*4声明a、b两个变量，则变量a的类型是

，变量b的类型是

。

。

6、表达式Int（74.555*100+0.5）/100的值是

。

7、如果要时钟控件每半分钟发生一个计时器事件，则Interval属性应设置为

。

8、要使Fork=xTo-5Step-2语句循环执行20次，循环变量的初值x应当是

。

9、在用ShowFont方法打开通用对话框中的字体对话框前，必须先设置

属性。

三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“√”或“×”）

1、在刚建立工程时，使窗体上的所有控件具有相同的缺省字体格式，应对form的font属性进行设置。

2、For/Next循环正常（未执行ExitFor）结束后，控制变量的当前值一定不可能等于终值

3、VB中的对象指的就是控件。

4、CLS是窗体的一个方法。

5、移动框架时框架内控件也跟随移动，但框架内控件的Left和Top属性值不会改变。

6、在窗体上绘制CommonDialog控件时，要想使控件在运行时不可见，只要设置该控件的visible属性为false即可。

7、已知a=3.5,b=5.0,c=2.5,d=True，则表达式：

a>=0ANDa+c>b+3ORNOTd的值是false

8、文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change事件。

9、要在窗体上通过Pset方法绘制宽度为2的点，则需要设置DrawStyle属性。

10、在块IF结构中，“EndIf”语句可以缺省。

四、程序阅读题（每题6分，共24分）

阅读下列程序，将运行时的输出结果或改错的情况写在答卷纸相应题号下。

程序1.下面是一段计算数学表达式的程序，请写出这个数学表达式。

PrivateSubForm_Click（）

DimnAsInteger,pAsInteger,sAsSingle,qAsInteger,iAsInteger

n=InputBox（"请输入N的值:

"）4

s=0:

p=-1:

q=1

Fori=1To4

p=-p

q=q*i

s=s+p*i/q

Nexti

Prints

EndSub

1!

-2/2!

+3/3!

-4/4!

程序2.运行时3次单击command1，并依次输入7，8，9，窗体显示结果是什么？

DimmAsInteger

PrivateSubCommand1_Click（）

DimaAsInteger,iAsInteger,fAsInteger

a=InputBox（"a="）

f=1

i=2

doWhilei<=a/2

IfaModi=0Thenf=f+i

i=i+1

m=m+1

loop

Printf;m

EndSub

程序3.已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置：

HScroll1.Min:

1HScroll1.Max:

12HScroll1.SmallChange:

3

HScroll1.LargeChange:

4HScroll1.Value:

5

写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。

PrivateSubHScroll1_Change（）

StaticyAsInteger

IfHScroll1.ValueMod2=0Then

y=y+HScroll1.Value

Print"y=";y

EndIf

EndSub

程序4.下面的数字金字塔显示程序中有三处错误，请根据要求修改错误：

OptionExplicit

PublicSubprt（）

'显示由数字组成的如下所示金字塔图案

'9

'888

'77777

'6666666

'555555555

'44444444444

'3333333333333

'222222222222222

'111111*********11

DimiAsInteger,jAsInteger

Fori=1To9

PrintSpace（10-i）;

Forj=1To2*i-1

Printtrim（str（i））;

Nextj

Form1.Print

Nexti

EndSub

五、程序选择填空题（每空格2分，共16分）

阅读下列程序说明和程序，将答案填写在答卷纸相应题号下。

程序1.某文件中存放了若干个实数，单击Command1可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从小到大顺序重新写入到该文件。

PrivateSubCommand1_Click（）

DimxAsSingle

List1.Clear:

CommonDialog1.Action=1

OpenCommonDialog1.FileNameFor

（1）As#2

DoWhile

（2）

Input#2,x:

List1.Additemx

Loop

Close#2

EndSub

PrivateSubCommand2_Click（）

DimnAsSingle,xAsSingle,iAsInteger,jAsInteger,KAsInteger

n=List1.（3）

Redima（n）AsSingle

Fori=1Ton:

a（i）=List1.List（i-1）:

Nexti

Fori=1Ton-1

k=i

Forj=i+1Ton:

If（4）Thenk=j:

Nextj

x=a（k）:

a（k）=a（i）:

a（i）=x

Nexti

OpenCommonDialog1.FileNmaeForOutputAs#1

Fori=1Ton:

Print#1,a（i）:

Nexti

Close#1

EndSub

【供选择的答案】

（1）A、OutputB、InputC、AppendD、Read

（2）A、Eof

（1）B、NotEof

（1）C、Eof

（2）D、NotEof

（2）

（3）A、CountB、ListCount-1C、ListD、ListCount

（4）A、a（j）>a（k）B、a（j）>=a（k）C、a（j）<>a（k）D、a（j）

程序2.阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。

PrivateSubf（sAsString）

DimiAsInteger,nAsInteger,cAsString

n=Len（s）

IfnMod2=1Thenc=Mid（s,n\2+1,1）

Fori=1ToLen（s）\2

c=Mid（s,Len（s）+1-i,1）+c+Mid（s,i,1）

Nexti

s=c

EndSub

PrivateSubCommand1_Click（）

DimxAsString

x=InputBox（"x="）

Callf（x）

Printx

EndSub

（5）单击Command1后输入"abc"，窗体上显示结果为：

A、cbaB、bcaC、abcD、acb

（6）单击Command1后输入"abcd"，窗体上显示结果为：

A、abdcB、cdabC、abcdD、bcad

（7）如果将Sub过程f首句改为PrivateSubf（ByvalsAsString），单击Command1后输入"abcd"，窗体上显示结果为：

A、abdcB、cdabC、abcdD、bcad

（8）如果将Sub过程f首句改为PrivateSubf（ByrefsAsString），单击Command1后输入"abcd"，窗体上显示结果为：

A、abdcB、cdabC、abcdD、bcad

六、程序设计题（每题10分，共30分）

见答题纸

2007/08二学期程序设计基础VB答卷

选课班级任课教师　　班级　　　学号考生姓名　　

题号（题分）

一（10）

二（10）

三（10）

四（24）

五（16）

六（30）

总分

得分

一、选择题（每小题1分，共10分）

1.D2.A3.C4.A5.D6.C7.A8.C9.B10.D

二、填空题（每空格1分，共10分）

Form1.Picture=LoadPicture（）

（"INPUT","ERROR"）

value

大写字母

变体变量

定长字串

74.56

30000

33

flags

三、是非题（每题1分，共10分，请在答卷纸相应题号旁的括号中填“√”或“×”）

1、（√）2、（√）3、（×）4、（√）5、（√）

6、（×）7、（√）8、（×）9、（×）10、（×）

四、程序阅读题（每题6分，共24分）

程序1.

（我的公式编辑器有问题，分母都是分子的阶乘）

程序2.12程序3.y=8

75y=20

48

程序4.

（1）应修改为Fori=9To1step-1

（2）应修改为Forj=1To2*（9-i）+1

（3）应修改为PrintTrim（Str（i））;（这里str可以没有，但是分号必须有）

五、程序填空题（每空格2分，共16分）

1.B2.D3.D4.D5.A6.B7.C8.B

六、程序设计题（每题10分，共30分）（编程题可能答案会有不同，大家可以酌情判分）

1、编写一个程序，输入两个正整数m、n，调用子过程求两个正整数m、n的最大公约数。

在主程序窗体中输出m、n及最大公约数。

（注意这里要求调用sub子过程，不是function函数过程）

PrivateSubForm_click（）

DimmAsInteger,nAsInteger

DimxAsInteger

Do1分

m=val（InputBox（"请输入第一个正整数"））1分

n=val（InputBox（"请输入第二个正整数"））

loopuntilm>0andn>0

Callgys（m,n,x）2分

Printm&"与"&n&"的最大公约数是"&x1分（如果这里写法跟我的一致，要注意参数传递方式有没有用byval，否则m、n会出错，要扣分）

EndSub

PrivateSubgys（byvalaAsInteger,byvalbAsInteger,rAsInteger）1分

r=aModb算法3分

DoWhiler<>0

a=b:

b=r:

r=aModb

Loop

r=b1分

EndSub

2、设计一个窗体，上面有一个图片框，一个文本框、一个命令按钮，要求初始化命令按钮不能响应，文本框输入一个不小于10且不大于100的整数n，按下回车键后命令按钮激活，按下命令按钮后调用函数过程，计算前n项级数和：

S=1/2+2/3+3/4+4/5+……得到级数和后，在图片框中利用（10，s1），（11，s2）……（n，sn）坐标绘制曲线图，要求图片框的坐标系为（10，4）-（n，-4）

DimnAsInteger1分

PrivateSubCommand1_Click（）（此段程序6分）

DimiAsInteger,sAsSingle

Picture1.Scale（10,40）-（n,-40）1分

Picture1.Cls

i=10

s=jishu（i）1分

Picture1.Line（i,s）-（i,s）1分

Fori=11Ton

s=jishu（i）

Picture1.Line-（i,s）1分

Nexti

Command1.Enabled=False1分

EndSub

PrivateFunctionjishu（jAsInteger）AsSingle（此段程序1分）

DimkAsInteger

jishu=0

Fork=1Toj

jishu=jishu+k/（k+1）1分

Nextk

EndFunction

PrivateSubForm_Load（）（此段程序1分）

Command1.Enabled=False1分

Text1.Text=""

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）（此段程序2分）

IfKeyAscii=13Then

IfVal（Text1.Text）>=10AndVal（Text1.Text）<=100Then1分

n=Text1.Text

Command1.Enabled=True

Else

Text1.Text=""

Command1.Enabled=False1分

MsgBox"请重新输入数据"

EndIf

EndIf

EndSub

3、在form1窗体的文本框中输入一个正整数n，单击command1按钮，计算n以内所有能被5和7整除的数之和（如：

输入40，则40以内能被5和7整除的数只有35；输入100，则100以内能被5和7整除的数有35和70，则和为105），并将结果显示在标签框内（35+70=105）。

如果输入的n值范围内没有可以被5和7整除的数，则用msgbox提示。

PrivateSubCommand1_Click（）1分（有头有尾）

DimnAsInteger,iAsInteger,sumAsInteger

IfVal（Text1.Text）>0Thenn=Text1.TextElseText1.Text="":

ExitSub1分

Fori=7TonStep7算法4分

IfiMod5=0Then

Label1.Caption=Label1.Caption+Str（i）+"+"

sum=sum+i

EndIf

Nexti

Ifsum=0Then2分

MsgBoxn&"中没有能被5和7整除的数"

ExitSub

Else

Label1.Caption=Left（Label1.Caption,Len（Label1.Caption）-2）+"="+Str（sum）2分

EndIf

EndSub

PrivateSubForm_Load（）

Text1.Text=""

Label1.Caption=""

EndSub