09本科VB复习资料1学生版.docx
《09本科VB复习资料1学生版.docx》由会员分享,可在线阅读,更多相关《09本科VB复习资料1学生版.docx(36页珍藏版)》请在冰点文库上搜索。
09本科VB复习资料1学生版
一、选择
下列命题中只有一个正确答案,请将正确答案的编号写在本题的括号中。
1、以下叙述中错误的是()
A.VisualBasic是事件驱动型可视化编程工具
B.VisualBasic应用程序不具有明显的开始和结束语句
C.VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
D.VisualBasic中控件的某些属性只能在运行时设置
2、以下叙述中错误的是()
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.一个工程中可以含有多个标准模块文件
3、将数学表达式写成VisualBasic的表达式,其正确的形式是()
A.Cos(a+b)^2+5*exp
(2)B.Cos^2(a+b)+5*exp
(2)
C.Cos(a+b)^2十5*ln
(2)D.Cos^2(a+b)+5*ln
(2)
4、表达式4+5\6*7/8Mod9的值是:
()
A.4B.5C.6D.7
5、设a=3,b=5,则以下表达式值为真的是()
A.a>=bAndb>10
B.(a>b)Or(b>0)
C.(a<0)Eqv(b>0)
D.(-3+5>a)And(b>0)
6、语句Print5\5*5的运行结果是( )。
A.0 B.1
C.5 D.25
7、Inputbox函数返回值的类型是( )。
A.整型数据 B.字符串
C.变体 D.数值或字符串(视输入的数据而定)
8、有语句abc=Inputbox(“str1”,”str2”,”str3”,2)执行后,将显示一个信息框,此时如单击”确定”按钮,则abc的值是()
A.str1B.str2C.str3D.3
9、有语句Printval(“123ABC456”)执行后,显示的是()
A.”123ABC456”B.123ABC456C.123D.123456
10、对象﹒Print中对象可以是()
A.窗体、图片框、打印机、文本框
B.窗体、立即窗口、打印机、文本框
C.窗体、图片框、打印机、命令按钮
D.窗体、立即窗口、打印机、图片框
11、如果在立即窗口中执行以下操作,则输出结果是( )
a=8:
b=9
Printa>b
A.-1 B.0 C.False D.True
12、当VB执行下面语句后,A的值为( )
A=1
IfA>0ThenA=A+1
IfA>1ThenA=0
A.0 B.1 C.2 D.3
13、下列语句中循环体的执行次数是( )
a=3:
b=1
ForI=atobstep1
PrintI
NextI
A.0 B.1 C.2 D.3
14、执行以下程序段后,显示的N值是()
N=0
ForK=0to50
K=K+3
N=N+1
IfK>10thenExitFor
NextK
PRINTN
A.2B.4C.3D.5
15、以下程序段执行的结果是()
a=0:
b=1
Do
a=a+b
b=b+1
LoopWhilea<10
Printa;b
A.105B.ab
C.01D.1030
16、以下程序段执行的结果是()
j=0
DoWhilej<30
j=(j+1)*(j+2)
k=k+1
Loop
Printk;j
A.01B.3182C.3030D.430
17、以下程序段执行的结果是()
Fork=1to4
Ifk=1thenx=k
Ifk<=4thenx=x+1
Printx;
NextK
A.1234B.2345C.2344D.3456
18、PrivateSubForm_Click()
score=85
SelectCasescore
CaseIs<60
a$="F"
Case60To69
a$="D"
Case70To79
a$="C"
Case80To89
a$="B"
CaseElse
a$="A"
EndSelect
Printa$
EndSub
程序运行后,单击窗体,则在窗体上显示的是( )
A.A B.B C.C D.D
19、如果变量a、b、c均为整型,下列程序段的输出结果为( )
a=2
b=3
c=a*b
Printa&“*”&b&“=”&c
A.c=6 B.a*b=c C.2*3=6 D.a*b=6
20、设有如下程序:
PrivateSubForm_Click()
a=1
Fori=1To3
SelectCasei
Case1,3
a=a+1
Case2,4
a=a+2
EndSelect
Nexti
Printa
EndSub
程序运行后,单击窗体,则在窗体上显示的内容是( )
A.6 B.5 C.4 D.3
21、若要暂时关闭时钟,可通过设置属性()为False来实现。
A.VisibleB.EnabledC.IntervalD.Timer
22、在标签控件上显示变量T的值,语句是()。
A.Text1.Value=TB.Text1.Caption=T
C.Label1.Caption=TD.Label1.Value=T
23、若要设置时钟控件的定时时间,可通过()属性来设置。
A.ValueB.EnabledC.IntervalD.Text
24、图像框或图片框中显示的图形,由对象的()属性值实现。
A.PictureB.ImageC.DownPictureD.Icon
25、复选框或单选框的当前状态可通过()属性来设置或访问。
A.ValueB.CheckedC.SelectedD.Caption
26、将焦点设置到Text1的控件上,语句是()。
A.Form.SetFocusB.Text1.SetFocus
C.Form.SetFocus=TrueD.Text1.SetFocus=True
27、使用时钟控件Timer1来控制其它控件进行移动(要求每5秒控制移动一次),其时间间隔是()。
A.Time=5B.Interval=5C.Time=1000D.Interval=5000
28、滚动条的()属性用于返回或设置滚动条的当前值。
A.Value B.Max C.Min D.Data
29、用户使用在组合框中选择的项目数据,可通过访问组合框对象的()属性来获得。
A.ListB.ListIndexC.ListCountD.Text
30、将组合框1当前选择的项目内容赋值给A变量,语句是()。
A.A=Combo1.TextB.A=Combo1.Value
C.A=List1.TextD.A=Lidt1.Value
31、控件数组共用事件和方法,区分控件元素需要引用控件的()下标属性。
A.NameB.IndexC.CaptionD.Visible
32、若要向列表框添加一个项目,可使用的方法是()。
A.Add B.Remove C.Clear D.AddItem
33、语句Dima(-1To10)定义的数组元素的个数为()。
A.1B.10C.11D.12
34、下面子过程语句说明合法的是( )。
A.subf1(byvaln()asinteger)
B.subf1(n()asinteger)asinteger
C.Functionf1(f1asinteger)asinteger
D.Functionf1(byvalnasinteger)
35、以下程序段执行的结果是()。
Privatesubcommand1_click()
Dimx%,y%
X=10:
y=5
Callf1(x,y)
Printx,y
Endsub
----------
Subf1(byvalx1asinteger,y1asinteger)
X1=x1+2
Y1=y1+2
Endsub
A.105B.125C.107D.127
36、在窗体中添加一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:
PrivateSubCommand1_Click()
Dimx,y,zAsInteger
x=10
y=5
z=23
Text1.Text=""
Callp1(x,y,z)
Text1.Text=Str(z)
EndSub
--------
Subp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)
c=a+b
EndSub
程序运行后,如果单击命令按钮,则文本框中显示的内容是( )
A.0 B.15 C.Str(z) D.23
37、在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:
subxyz(b()asInteger)
Fori=1To4
b(i)=2*i
Nexti
EndSub
--------
PrivateSubCommand1_Click()
Dima(1To4)AsInteger
a
(1)=5:
a
(2)=6
a(3)=7:
a(4)=8
xyza()
Fori=1To4
Printa(i);
Nexti
EndSub
运行上面的程序,单击命令按钮,则在窗体上显示的内容是()
A.1234B.2468C.5678D.10121416
38、有如下程序:
PrivateFunctionFunc(ByValaAsInteger,ByValbAsInteger)
Func=a+b
EndFunction
---------
PrivateSubCommand1_Click()
Dimx%,y%,z%,r%
x=2:
y=5:
z=8
r=Func(Func(x,y),z)
Printr
EndSub
当在Command1按纽上单击,该程序的输出结果是____。
A.13B.12C.14D.15
39、以下关于过程叙述错误的是_____。
A.事件过程是由某个事件触发而执行的过程。
B.函数过程可以有多个返回值。
C.可以有事件过程中调用通用过程
D.不能的事件过程中定义函数过程
40、若要隐藏窗体,实现的语句为( )。
A.hide B.show C.load D.unload
41、以下叙述错误的是( )。
A.一个窗体模块通常包括声明部分、通用过程部分、自定义过程部分
B.全局变量通常在标准模块中定义
C.一个工程中可以包含多个窗体文件
D.窗体和窗体模块是一一对应的
42、VB应用程序由三种模块组成:
标准模块、窗体模块和( )。
A.类模块 B.事件模块 C.自定义模块 D.公共模块
43、以下说法错误的是( )。
A.按下键盘上的任意键都会引发keypress事件
B.键盘事件的触发顺序是:
keydown、keypress和keyup
C.鼠标事件的触发顺序是:
mousedown、click和mouseup
D.鼠标事件是指由于用户操作鼠标而引发的事件
44、关于鼠标的MouseDown事件下列说法正确的是( )
A.MouseDown事件可以判断用户是否使用组合键
B.MouseDown事件是鼠标向下移动时被激发的事件
C.MouseDown事件的Button参数是用来判断组合键的
D.MouseDown事件不能判断鼠标的位置
45、MouseMove事件的发生是( )。
A.伴随鼠标指针移动而连续不断发生的
B.当鼠标移动时将无限次的被激发
C.每秒激发一次
D.与鼠标灵敏度相关的
46、关于文件的叙述,错误的是( )。
A.VB提供访问文件的模式有:
二进制访问、八进制访问和十六进制访问
B.文件是相关记录的集合
C.文件一般指存储在计算机外部介质上一组信息的集合
D.字符是数据文件中最小的信息单位
47、要打开只读随机文件“Datal”,应使用语句是( )。
A.Open"Datal"ForRandomAccessReadAs#1
B.OpenDatalForRandomAccessReadAs#1
C.Open"Datal"ForRandomAccessRead
D.Open"Datal"ForBinaryAccessWriteAs#1
48、关于KeyPress事件的Keyascii参数,下列说法正确的是( )。
A.Keyascii参数返回用户所按键的ASCII码
B.Keyascii参数为字符型
C.Keyascii参数与KeyCode参数返回值一样
D.Keyascii参数可以省略
49、下列关于Put、Get、Print、Write语句的说明,错误的是( )。
A.一条Print#(或Write#)语句可以将若干个数据项写入数据文件中,但这些数据项的类型必须相同
B.一条Print#(或Write#)语句可以将若干个数据项写入数据文件中,但这些数据项的类型可以不相同
C.每执行一次Put[#]语句,会在随机文件中产生一个记录
D.每执行一次Put[#]语句,会在随机文件中读取一个记录的数据
二阅读理解
阅读理解下列VB程序段,写出程序运行后的显示结果
二、阅读填空
1、下列程序段的执行结果为_234________。
Num=1
DoWhilenum<=3
Num=num+1
Printnum;
Loop
答案:
234
关键字:
控制结构
2、下列程序段的执行结果为_________。
a=0
Fork=1to20step2
Ifkmod5<>0thena=a+k
Next
Printa
3、下列程序段的执行结果为_________。
a=5
Fork=2.6to4.9step0.6
a=a+1
Next
Printa
4、下列程序段的执行结果为________。
a=0:
k=0
DoWhilek<50
k=k+2
k=k*k+k
a=a+k
Loop
Printa
5、在窗体中添加一个命令按钮,然后编写如下代码:
PrivateSubCommand1_Click()
a=InputBox("请输入一个整数",””,21)
b=InputBox("请输入一个整数",””,45)
Printa+b
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入21和45,输出结果为_______。
6、以下程序的运行结果为。
PrivateSubCommand1_Click()
Dima(5)
Forj=0To5Step1
a(j)=j
Nextj
Printa
(1)+a(3)+a(5)
EndSub
7、以下程序的运行结果为。
PrivateSubCommand1_Click()
Dima
ReDima(6)
Forj=1To5
a(j)=j*j
Nextj
Printa(a
(2)*a(3)-a(4)*2)+a(5)
EndSub
6、以下程序的运行结果为。
PrivateSubCommand1_Click()
Dima(10,10)
Fori=2To4
Forj=4to5
a(i,j)=i*j
Nextj
NextI
Printa(2,5)+a(3,4)+a(4,5)
EndSub
7、以下程序的运行结果为。
PrivateSubForm_Click()
a=Array(1,5,8,4,7,9,3)
n=0
ForEachxIna
n=n+1
Nextx
Printn
EndSub
8.以下程序的运行结果为。
PrivateSubForm_Click()
Dima
DimiAsInteger
a=Array(1,2,3,4,5,6,7,8,9)
Fori=0To3
s=s+a(i)
Nexti
Prints
EndSub
9.以下程序的运行结果为。
OptionBase1
PrivateSubForm_Click()
Dima
DimiAsInteger
DimmaxAsInteger
DimminAsInteger
a=Array(1,3,9,4,7,6,2,8,5)
max=a
(1)
min=a
(1)
Fori=2To9
Ifa(i)>maxThenmax=a(i)
Ifa(i)Nexti
Printmax+min
EndSub
10、以下程序的运行结果为。
PrivateSubCommand1_Click()
Dima%,b%,C%
a=3:
b=5:
c=7
a=a+b+c
b=a+b+c
c=a+b+c
print“a,b,c=”;a;b;c
EndSub
11、以下程序的运行结果为。
PrivateSubCommand1_Click()
Dima%,b%
a=3:
b=5
a=a+b
b=a-b
a=a-b
print“a=”;a,“b=”b
EndSub
12、以下程序段执行的结果是_______________。
Privatesubcommand1_click()
Dimx%,y%
X=10:
y=5
Callf1(x,y)
Printx,y
Endsub
----------
Subf1(byvalx1asinteger,y1asinteger)
X1=x1+2
Y1=y1+2
Endsub
13、以下程序段执行的结果是_______________。
PrivateFunctionFunc(ByValaAsInteger,ByValbAsInteger)
Func=a+b
EndFunction
---------
PrivateSubCommand1_Click()
Dimx%,y%,z%,r%
x=2:
y=5:
z=8
r=Func(Func(x,y),z)
Printr
EndSub
当在Command1按纽上单击,该程序的输出结果是_____。
14、窗体上有一空文本框text1,执行以下程序后在文本框中输入abc123,单击按钮后运行结果是_________。
PrivateSubCommand1_Click()
PrintText1.Text
EndSub
-----------
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
EndSub
三、完型填空
根据题目的要求,将下程序段中有下划线的地方,填写上合适的组成部分,使程序能够实现题目的要求。
1、有过程swap,功能为交换一维数组,即第一个与最后一个元素交换,第二个与倒数第二个元素交换,……请填空。
Subswap(a()asinteger)
M=
N=
J=0
Fork=Mto(N-M+1)/2
T=a(k)
=a(N-J)
=T
J=J+1
Next
Endsub
2、有过程sort,用选择法实现一维数组从小到大排序。
Subsort(a()asin