华工99VB期末考题及答案.docx
- 文档编号:29182022
- 上传时间:2023-07-21
- 格式:DOCX
- 页数:18
- 大小:144.94KB
华工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.SmallChange
c.Min
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
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)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 华工 99 VB 期末 考题 答案