07VB程序设计期末考试.docx
《07VB程序设计期末考试.docx》由会员分享，可在线阅读，更多相关《07VB程序设计期末考试.docx（16页珍藏版）》请在冰点文库上搜索。
07VB程序设计期末考试
07VB程序设计期末考试
满分：
60分
姓名：
________
1、单项选择题（本题共计40分）
1、滚动条的坐标系统与它当前的________无关。
（）
A、数字刻度
B、位置
C、尺寸大小
D、属性
2、设在菜单编辑器中定义了一个菜单项，名为menu1。
为了在运行时让该菜单项变灰，应使用的语句是____________。
（）
A、menu1.Enabled=True
B、menu1.Enabled=False
C、menu1.Visible=True
D、menu1.Visible=False
3、窗体有一个方法可以使窗体隐藏但不从内存中卸载，该方法是____________。
（）
A、Show
B、Release
C、Hide
D、Unload
4、假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候窗体上将输出____________个字母“a”。
PrivateSubTimer1_Timer（）
Fori=1To10
Print"a"
Nexti
EndSub（）
A、1000次
B、10000次
C、10次
D、以上都不对
5、在Form_Click事件中执行如下语句的正确结果是________。
PrintFormat（1236.54,"+##,##0.0%"）（）
A、123456
B、+123,654.0%
C、+123,6.54%
D、+123,654
6、对正实数X的第四位小数四舍五入的VB表达式是________。
（）
A、0.001*Int（x+0.0005）
B、0.001*（1000*x+0.5）
C、0.001*Int（1000*x+5）
D、0.001*Int（1000*（x+0.0005））
7、若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用________关键字在该过程中定义局部变量。
（）
A、Dim
B、Private
C、Public
D、Static
8、下面的表达试的值为真的是________。
（）
A、Mid（“VisualBasic”,1,12）=Right（“ProgramingLanguageVisualBasic”,12）
B、“ABCRG”>”abcde”
C、Int（134.69）>Cint（134.69）
D、78.9/32.77<=97.5/43.97AND–45.4>4.98
9、用于字符串连接的运算符是____________。
（）
A、&
B、+
C、And
D、A、B都可以
10、语句Print"5*20"输出的结果是________。
（）
A、"5*20"
B、出现错误信息
C、5*20
D、100
11、有如下程序代码：
PrivateSubCommand1_Click（）
s=Sin（3.1415926/2）
MsgBoxs
EndSub
程序运行后，消息对话框显示_________。
（）
A、0
B、1
C、1.5708
D、2
12、在一个语句内写多条语句时，每个语句之间用____________符号分隔。
（）
A、，
B、：
C、、
D、；
13、语句Print"5*20"输出的结果是________。
（）
A、"5*20"
B、出现错误信息
C、5*20
D、100
14、VisualBasic认为下面___________组变量是同一个变量。
（）
A、A1和a1
B、Sum和Summary
C、Aver和Average
D、A1和A_1
15、如果a是一个正实数，对x的第3位小数四舍五入的表达式是____________。
（）
A、0.01*Int（a+0.005）
B、0.01*Int（a+0.05）
C、0.01*Int（100*（a+0.005）
D、0.01*Int（100*（a+0.05））
16、i被j整除的逻辑表达式是________________。
（）
A、i/j=0
B、i\j=0
C、i<>0
D、imodj=0
17、在一个语句内写多条语句时，每个语句之间用____________符号分隔。
（）
A、，
B、：
C、、
D、；
18、在Form_Click事件中执行如下语句的正确结果是________。
PrintFormat（1236.54,"+##,##0.0%"）（）
A、123456
B、+123,654.0%
C、+123,6.54%
D、+123,654
19、在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有____________。
可使文本框Text3中显示46。
（）
A、Text3.Text=Text1.Text&Text2.Text
B、Text3.Text=Val（Text1.Text）+Val（Text2.Text）
C、Text3.Text=Text1.Text+Text2.Text
D、Text3.Text=Val（Text1.Text）&Val（Text2.Text）
20、下面____________是合法的单精度型变量。
（）
A、num!
B、sum%
C、xinte$
D、mm
21、以下程序输出的结果是____________。
OptionBase1
PrivateSubCommand1_Click
Dima,B（3,3）
a=Array（1,2,3,4,5,6,7,8,9）
ForI=1To3
Forj=1To3
B（I,j）=a（I*j）
If（I>=j）Then
PrintTab（j*3）;Format（B（I,j）,"###"）;
Nextj
Print
NextI
EndSub（）
A、123
456
789
B、l
45
789
C、147
246
369
D、1
24
369
22、在窗体上画一个命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommand1_Click（）
DimaAsVariant
a=Array（1,2,3,4）
j=1
Fori=4To1Step-1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
运行上面的程序，单击命令按钮，其输出结果是_____________。
（）
A、4321
B、12
C、34
D、1234
23、当发生Command1_Click事件后，程序输出结果是________。
OptionBase1
PrivateSubCommand1_Click（）
Dima（4,4）AsInteger,iAsInteger,sAsInteger
s=0
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*4+j*2
Nextj
Nexti
Fori=1To4
s=s+a（i,i）
Nexti
Prints
EndSub（）
A、28
B、32
C、30
D、44
24、要分配存放如下方阵的数据，____________数组声明语句能实现（不能浪费空间）。
每行三个元素，第一行为：
1.12.23.3第二行为：
4.45.56.6第三行为：
7.78.89.9（）
A、Dima（9）AsSingle
B、Dima（3，3）AsSingle
C、Dima（-1Tol，-5To-3）AsSingle
D、Dima（-3To-1，5To7）AsInteger
25、以下程序输出的结果是____________。
Dima
a=Array（1,2,3,4,5,6,7）
Fori=Lbound（a）ToUbound（a）
a（i）=a（i）*a（i）
Nexti
Printa（i）（）
A、49
B、0
C、不确定
D、程序出错
26、下列程序段的输出结果是____________。
DimiAsInteger
Dima（8）AsInteger
y=18:
i=0
Do
a（i）=yMod2
i=i+1
y=y\2
LoopUntily<1
Forj=i-1To0Step-1
Printa（j）;
Nextj（）
A、1000
B、10010
C、00110
D、10100
27、假如用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是________。
（）
A、命令按钮的所有Caption属性都是Command1
B、在代码中访问命令按钮只需使用名称Command1
C、命令按钮的大小都相同
D、命令按钮共享相同的事件过程
28、程序代码如下，当单击窗体上Command1控件时，窗体上显示的结果是_________。
OptionBase1
PrivateSubCommand1_Click（）
DimiAsInteger
Dimx（3,3）AsInteger
Fori=1To3
Forj=1To3
x（i,j）=（i-1）*3+j
Nextj
Nexti
Fori=1To3
Printx（i,4-i）
Nexti
EndSub（）
A、159
B、147
C、357
D、369
29、文件号最大可取的值为____________。
（）
A、255
B、511
C、512
D、256
30、可以在________中，使用语句PublicPubStrAsString*20定义一个定长字符串。
（）
A、窗体模块
B、标准模块
C、类模块
D、三者均可
31、调用由语句PrivateSubConvert（YAsInteger）定义的Sub过程时，以下不是按值传递的语句是 。
（）
A、CallConvert（（X））
B、CallConvert（X*1）
C、Convert（X）
D、ConvertX
32、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用PublicKAsInteger,DimKAsInteger声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用________。
（）
A、Frm1.K
B、Form.K
C、Form1.K
D、K
33、在调用Sub过程或Function过程时，采用________________传送相应过程的变量名、数组名、常数或表达式。
（）
A、形式参数
B、实际参数
C、对象参数
D、数组参数
34、在VisualBasic中文件访问的类型有________。
（）
A、顺序、随机、二进制
B、顺序、随机、字符
C、顺序、十六进制、随机
D、顺序、记录、字符
35、以下有关变量作用域的说明中，错误的是 。
（）
A、只有在标准模块中用Public语句说明的变量才是全局变量
B、在过程中不能使用Public语句说明全局变量
C、在标准模块的通用声明处可用语句说明模块级变量
D、在窗体的通用声明处可用Private语句说明窗体级变量
36、以下说法正确的是 。
（）
A、在VB中，过程可以嵌套定义也可以嵌套调用
B、在VB中，过程可以嵌套定义但不可以嵌套调用
C、在VB中，过程不可以嵌套定义但可以嵌套调用
D、在VB中，过程不可以嵌套定义也不可以嵌套调用
37、如果想使直线或形状的线型为点线，应将________属性设置为3-Dot。
（）
A、BorderColor
B、BorderStyle
C、BackStyle
D、Shape
38、要在形状控件Shape1中填充一种图案，可设置它的____________属性.（）
A、BorderColor
B、BorderStyle
C、FillStyle
D、FillColor
39、当使用Line方法时，参数B与F可组合使用，下列组合中________不允许。
（）
A、BF
B、F
C、B
D、不使用B与F
40、根据控件具有下列________属性，就能判断该控件是否可以和数据控件绑定。
①RecordSource
②DataSource
③DataField
④DatabaseName（）
A、①③
B、②③
C、③④
D、①④
2、填空题（本题共计20分）
1、界面上没有调试工具栏，可通过选中"视图"菜单中的_____"调试"把它显示出来。
2、要把Label控件中显示的文字设置成左对齐，应设置Label控件的-__
（1）___属性。
3、X是小于100的非负数，对应的表达式是____
（1）______.
4、___
（1）___的功能是显示当前过程所有局部变量的当前值。
5、VisualBasic程序在运行时中，用户可通过按____键进入中断状态。
6、输入一个正整数k，求各位数字之和。
请将下列程序补充完整。
程序代码如下：
OptionExplicit
PrivateSubCommand1_Click（）
DimSumAsInteger,kAsLong
k=Val（Text1.Text）
DoWhileK>0
Sum=Sum+____
（1）__
k=k\10
Loop
Text2.Text=Str（Sum）
EndSub
7、添加按钮Command1和文本框Text1,并编写下列代码。
执行程序单击命令按钮后,Text1中是_______；将A、B语句交换位置,执行程序单击命令按钮后,Text1中是________。
OptionExplicit
Subabc（k,x）
DimiAsInteger
x=1
Fori=1Tok
x=x*i
Nexti
EndSub
PrivateSubCommand1_Click（）
DimnAsInteger,iAsInteger,xAsInteger
n=0:
x=0
Fori=1To3
Callabc（i,x）'A语句
n=n+x'B语句
Nexti
Text1.Text="n="&n
EndSub
8、一个窗体上有一个命令按钮Command1，下列程序执行后，输出的结果为_________。
PrivateSubCommand1_Click（）
DimxAsInteger
x=1
Callsort（x）
Printx;
callsort（（x））
Printx;
EndSub
PrivateSubsort（yAsInteger）
y=y+1
EndSub
9、用二分法求函数f（x）=x^3-6x-1=0在x=2～5范围内的x=2附近的一个实根，其计算误差为|xl-x2|＜10^（-6）。
完善下列程序。
PrivateSubCommand1_Click（）
DimV0AsSingke,vAsSingle,sAsString
DimxAsSingle,tAsSingle,x1AsSingle,x2AsSingle
x1=0:
x2=5
DoWhile______
x=（x1+x2）/2
IfSgn（f1（x））=1Then
x2=x
Else
x1=x
EndIf
Loop
Print"x=";x
EndSub
PrivateFunctionf1（xAsSingle）AsSingle
f1=x*x*x-6*x-1
EndFunction
参考答案
1.c,2.b,3.c,4.c,5.b,6.d,7.d,8.a,9.d,10.c,11.b,12.b,13.c,14.a,15.c,16.d,17.b,18.b,19.b,20.a,21.d,22.d,23.d,24.c,25.d,26.b,27.b,28.c,29.b,30.b,31.d,32.a,33.b,34.a,35.a,36.c,37.b,38.c,39.b,40.b
1.工具栏,2.Alignment,3.x<100andx>=0,4.本地窗口,5.Ctrl+Break,6.kmod10,7.n=9,n=3,8.22,9.Abs（x1-x2）>0.000001
升级会员 