华工99VB期末考题及答案.docx
《华工99VB期末考题及答案.docx》由会员分享，可在线阅读，更多相关《华工99VB期末考题及答案.docx（18页珍藏版）》请在冰豆网上搜索。
华工99VB期末考题及答案
VisualBasic程序设计试题（A）2000.6
_____________系______________班姓名______________学号______________
注:
全部答案填入答题卡中。
同时交回试题和答题卡。
试题和答题卡均应写明系、班、姓
名、学号（指学生证号）
一．根据VisualBasic的控件特点，作出正确的选择：
（每小题1分，共15分）
图1
1．在窗体上添加一个标签，命名为Lbl1，如图1所示。
若要把其中显示“Label1”的字样改为“第一个标签”，可以在程序中执行语句________________。
a.Lbl1.Text=”第一个标签”
b.Lbl1.Caption=”第一个标签”
c.Lbl1.Name=”第一个标签”
d.Label1=”第一个标签”
2．程序运行后显示窗体如图2，有事件过程
图2
PrivateSubCommand1_Click（）
Cls
EndSub
单击命令按钮后，效果有可能是________________。
a.清除字符“Form1”
b.清除字符“这是窗体”
c.清除字符“Command1”
d.清除全部字符
3．使用滚动条可以获取某一界定范围内的数值输入。
为使垂直滚动条的值Value属性值从下往
上递增，对相应属性的设置是________________。
a.SmallChangeLargeChange
c.MinMax
4．设计时不改变窗体的任何属性值，为了使程序运行后马上产生图2的效果，语句
“Print"这是窗体"”应该出现在________________事件过程中。
a.Form_Loadb.Form_Activatec.Form_Clickd.Form_DbClick
5．设程序运行时，文本框Text1中显示字符串“VisualBasic程序设计语言”，用户选取“程序设计语言”，使其反相显示，则Text1的________________属性值等于“程序设计语言”。
a.SelTextb.Textc.PassWordChard.Caption
6．窗体中间建立了一个图片框Picture1,它里面有一个子控件命令按钮Command1，如图3。
图3
执行语句Picture1.Left=0:
Picture1.Top=0后，界面显示应为________________。
7.窗体上有两个图片框Pic1和Pic2，设计时均已对其Picture属性赋值，现在要把Pic1的图
片复制到Pic2中，然后清除Pic1上的图片，执行的语句是________________。
a.Pic2.Picture=Pic1.Picture：
Pic1.Cls
b.Pic2.Picture=LoadPicture（“Pic1”）:
Pic1.Cls
c.Pic2=Pic1:
Cls
d.Pic2=Pic1:
Pic1=LoadPicture（）
8.程序在运行中，当前的情况是，光标在文本框Txt1中闪烁。
如果这时用户在键盘上击A键，
则会引发某些事件。
下列四个事件中不被引发的一个是______________。
a.KeyDownb.GotFocusc.keyPressd.Change
9.程序运行时，希望列表框lst的项目改变后总能按字母的升序排列，________________。
a.必须运行一个自定义排序过程
b.必须在改变项目的过程中对lst的Selected属性赋True
c.必须在改变项目的过程中对lst的Sorted属性赋True
d.必须
在属性窗口设置lst的Sorted属性为True
10.对于单选按钮，叙述________________是错误的。
a.显示在一个窗体中的所有单选按钮，只能选取其中一个
b.属于一个框架的一组单选按钮，只能其中选取一个
c.属于一个图片框的一组单选按钮，只能选取一个
d.同属一个父对象的一组单选按钮，只能选取一个
11．复选框被选取时Value属性的值等于______________。
a.0b.1c.2d.True
12.对于计时器的属性Interval与事件Timer，叙述______________是错误的。
a.每激发一个Timer事件，自动改变Interval属性所表示的时间间隔值。
b.可以在Timer事件中用用赋值语句改变Interval属性的值。
c.每隔Interval属性值时间，自动激发一个Timer事件。
d.可以在属性窗口改变Interval属性值，从而改变Timer事件发生的时间间隔。
13．对窗体的属性ForeColor设置值为&H000000FF&（红色），使得运行后______________。
a.窗体的标题栏是红色的
b.放在窗体上的控件是红色的
c.在窗体上显示的字符是红色的
d.整个窗体都是红色的
14．框架（Frame）与图片框一样可以作为其他控件的父对象，框架______________。
a.响应Click、DbClick事件
b.可使用Cls和Print方法
c.具有子对象相同的性质
d.不响应鼠标事件和用户输入
15．一个控件数组中包含3个名为Option的单选按钮，它们可以用_____________属性加以区别。
a.Nameb.Captionc.Indexd.Style
二．给出以下表达式的值。
（每小题1分，共15分）
1．18\4*4/2
2．25\3Mod3.2*Int（2.5）
3．Chr（Asc（"k"）+3）
4．Sgn（Asc（“p”）+Asc（“q”））
5．5\2=5/2=True
6．4>3And5=7
7．167.25+Val（"0.75And0"）
8．Int（Rnd*10+1）<=10
9．3–9/Abs（-2）
10．TrueOrb1<>b2（其中b1=5,b2=5）
11.2*3^sqr（4）/Instr（“ABCD”,”BCD”）
12.Right（"这是一个简单表达式",3）+Mid（"这是一个简单表达式",5，2）
13.3*（Len（"ABCD"）-Len（"ABC"））+247Mod10
14.Ucase（x）&String（5,"E"）（其中：
x="abcd"）
15.A（A（5）-A（3））（已知数组元素：
A
（1）=1A
（2）=3A（3）=5A（4）=7A（5）=9）
三．给定初值为：
a=1，b=2，x=0，y=0，给出下列语句执行后的输出结果。
（每小题2分，共20分）
1．a=a+b：
b=b–a:
a=a–b:
Printa
2.Ifa-1Thena=xElseIfa+1Thena=x+1Elsea=x+2
Printa,x
3.SelectCasea+b
CaseIs=1
y=1
Case1,2
y=2
Case1To3
y=3
CaseElse
y=4
EndSelect
Printy
4．Ifb<=10Andb>0Then
Ifb>5Thenx=1Elsex=2
Else
Ifb>1Thenx=3Elsex=4
EndIf
Printx
5.Fory=1To6
ifyMod2=0Thenx=x+3Elsex=x-2
Next
Printy,x
6.Fora=1To3
Forb=3To1Step-1
x=x+1
Nextb,a
Printx
7.DoWhileb<>-1
Do
a=a*b:
a=a+1:
b=b-1
LoopWhileb<>0
b=b-1
Loop
Printa\b
8．Dims1$,s2$
s1="abcdefg"
Fori=1To5
s2=s2+Left（s1,i）+”,”
Next
Prints2
9.Do
SelectCasey\3
Case1
x=x+1
Case2
x=x+2
Case3
x=x+3
CaseElse
x=0
EndSelect
y=y+1
LoopUntily>=6
Printx,y
10.IfSgn（a）Then
DoWhileb
b=b-1
Loop
Else
DoWhileNotb
b=b+1
Loop
EndIf
Printa,b
四．阅读程序，完成题目要求。
（5题，共20分）
1．写出程序启动后，连续4次单击命令按钮在窗体上的输出结果。
（4分）
PrivateSubCommand1_Click（）
StaticxAsInteger
DimyAsInteger
x=x+2
y=y+2
Printx/y,
EndSub
2．写出下面过程执行后，在窗体上的输出结果。
（4分）
PrivateSubForm_Activate（）
DimiAsInteger,jAsInteger
Fori=1To5
Forj=1Toi
Printj;"*";i;"=";j*i;
Nextj
Print
Nexti
EndSub
3．写出命令按钮的单击事件过程执行后，在窗体上的输出结果。
（4分）
Subp（xAsInteger,ByValyAsInteger）
x=xMody:
y=Int（x/2）+y
Printx,y
EndSub
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=15:
y=6
Callp（y,x-10）:
Printx,y
px,y:
Printx,y
EndSub
4．写出事件过程执行后，在窗体上的输出结果。
（4分）
PrivateSubForm_Activate（）
Dima（10）AsInteger,b（1To10）AsInteger,iAsInteger
Fori=1To10
a（i）=i
Next
Fori=1To10
b（i）=a（i）+a（i-1）
Next
Fori=1To10
Printb（i）,
IfiMod3=0ThenPrint
Next
EndSub
5.设计状态下界面如图4所示，窗体上放置了一个列表框List1，一个计时器Timer1，其Interval属性设置为100。
程序只有唯一的一个事件过程如下。
请说明程序启动，经1秒钟后List1的显示结果。
PrivateSubTimer1_Timer（）
StatickAsInteger
Ifk<4Then
List1.AddItemStr（Timer1.Interval）&"_"&Str（k）
k=k+1
EndIf图4
EndSub
五．根据程序功能说明填空。
每空只能填写一个语句或一个语句的一部分。
（每空2分，共30分）
图5
1．程序启动后即产生如图5的窗体。
窗体宽度为2000，高度为1500，字体为TimesNewRoman，字体大小为20。
PrivateSubForm_Load（）
Width=2000
Height=1500
（1）
FontName="TimesNewRoman"
EndSub
PrivateSubForm_
（2）（）
FontItalic=True
Print"VB";
FontBold=（3）
Print"Ring"
EndSub
2.把100分成4个数之和,使得第一个数加上4,第二个数减去4,第三个数乘以4,第四个数除以4,所得的4个数都相同,求原来的4个数。
PrivateSubForm_Click（）
Dima,b,c,d
Fora=1To97
Forb=1To97
if（4）then
Ford=96To4Step-4
Ifa+4=d/4Then
c=（5）
Ifa+4=（6）Then
Printa,b,c,d
ExitSub
EndIf
（7）
Nextd
EndIf
Nextb
Nexta
EndSub
3.当前目录中有顺序文件Abc.dat,文件内有10行,每行都只有1个单精度数，且它们的值各不相等。
下列程序把文件Abc.dat内的10个数全部读入到数组A中，并对数组A用选择排序法由大到小进行排序，最后，求出文件第一个数在排序后的数组中的序号。
PrivateSubForm_Click（）
DimA（1To10）AsSingle,IAsInteger,JAsInteger,XAsSingle
Open"Abc.dat"（8）
I=0
Print"文件中的10个数是:
"
ForI=1To10
Input#1,A（I）
PrintA（I）;
NextI
ForI=1To9
K=I
ForJ=（9）
IfA（K）NextJ
IfK<>IThen
X=A（I）
（10）
A（K）=X
EndIf
NextI
Print"数组A中10个数排序后的顺序是:
"
ForI=1To10
PrintA（I）;
NextI
Seek#1,（11）
Input#1,X
ForI=1To10
IfX=A（I）ThenPrint"文件中的第一个数";X;"在数组A中的的序号是:
";I
NextI
EndSub
4.本程序由一个事件过程Form_Click和一个自定义函数Mean组成，事件过程首先产生由前N
个自然数的平方所组成的数组，然后求出数组元素的算术平均值并输出。
求平均值由自定义
函数Mean完成。
OptionExplicit
PrivateSubForm_Click（）
DimD（）AsSingle
DimIAsInteger,NAsInteger,AveAsSingle
Do
N=InputBox（"N="）
LoopUntilN>0
（12）
Print"所产生的";N;"个数是:
"
ForI=1ToN
D（I）=I*I
PrintD（I）;
NextI
Print"他们的平均值是:
"
Print（13）
Print
EndSub
FunctionMean（D（）AsSingle）AsSingle
DimI%,N%,X%
N=（14）
ForI=1ToN
X=X+D（I）
NextI
（15）=X/N
EndFunction
参考答案
一．每小题1分，共15分
1.b
2.b
3.d
4.b
5.a
6.c
7.d
8.b
9.d
10.a
11.b
12.a
13.c
14.d
c
二．每小题1分，共15分
1.2
2.2
3."n"
4.1
5．False
6．False
7．168
8．True
9．-1.5
10．True
11.9
12."表达式简单"
13.10
14."ABCDEEEEE"
15.7
三．每小题2分，共20分
1．4
2.10
3.3
4．2
5.73
6.9
7.-4
8."a,ab,abc,abcd,abcde"
9.57
10．10
四．每小题4分，共20分
1．1234
2．1*1=1
1*2=22*2=4
1*3=32*3=63*3=9
1*4=42*4=83*4=124*4=16
1*5=52*5=103*5=154*5=205*5=25
3．15
151
11
01
4．135
7911
131517
19
5.100_0
100_1
100_2
100_3
五．每空2分，共30分
1．FontSize=20
2．Activate
3．FontBold=True
4．a+4=b-4
5．100-a-b-d
6．c*4
7．EndIf
8．ForInputAs#1
9．I+1To10
10．A（I）=A（K）
11．1
12．ReDimD（1ToN
13．Mean（D（））
14．UBound（D）
15．Mean
升级会员 