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”。
Private Sub Timer1_Timer()
For i = 1 To 10
Print "a"
Next i
End Sub ( )
A、1 000次
B、10000次
C、10次
D、以上都不对
5、在Form_Click事件中执行如下语句的正确结果是________。Print Format(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(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12)
B、“ABCRG”> ”abcde”
C、Int(134.69) > Cint(134.69)
D、78.9/32.77 < = 97.5/43.97 AND –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、有如下程序代码:
Private Sub Command1_Click( )
s=Sin(3.1415926/2)
MsgBox s
End Sub
程序运行后,消息对话框显示_________。( )
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、i mod j = 0
17、在一个语句内写多条语句时,每个语句之间用____________符号分隔。( )
A、,
B、:
C、、
D、;
18、在Form_Click事件中执行如下语句的正确结果是________。Print Format(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、以下程序输出的结果是____________。
Option Base 1
Private Sub Command1_Click
Dim a, B(3, 3)
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For I = 1 To 3
For j = 1 To 3
B(I, j) = a(I * j)
If (I >= j) Then
Print Tab(j * 3); Format(B(I, j), "###");
Next j
Next I
End Sub ( )
A、1 2 3
4 5 6
7 8 9
B、l
4 5
7 8 9
C、1 4 7
2 4 6
3 6 9
D、1
2 4
3 6 9
22、在窗体上画一个命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i)*j
j = j * 10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是_____________。( )
A、4321
B、12
C、34
D、1234
23. 当发生Command1_Click事件后,程序输出结果是________。Option Base 1
Private Sub Command1_Click()
Dim a(4, 4) As Integer,i As Integer,s As Integer
s=0
For i=1 To 4
For j=1 To 4
a(i, j) = (i-1)*4+j*2
Next j
Next i
For i = 1 To 4
s=s+a(i, i)
Next i
Print s
End Sub
A. 28
B. 32
C. 30
D. 44
24、要分配存放如下方阵的数据,____________数组声明语句能实现(不能浪费空间)。每行三个元素,第一行为:1.1 2.2 3.3第二行为:4.4 5.5 6.6第三行为:7.7 8.8 9.9 ( )
A、Dim a(9) As Single
B、Dim a(3,3) As Single
C、Dim a(-1 To l,-5 To -3) As Single
D、Dim a(-3 To -1,5 To 7) As Integer
25、以下程序输出的结果是____________。
Dim a
a=Array(1,2,3,4,5,6,7)
For i=Lbound(a)To Ubound(a)
a(i)= a(i)*a(i)
Next i
Print a(i) ( )
A、49
B、0
C、不确定
D、程序出错
26. 下列程序段的输出结果是____________。
Dim i As Integer
Dim a(8) As Integer
y = 18: i = 0
Do
a(i) = y Mod 2
i = i + 1
y = y \ 2
Loop Until y < 1
For j = i - 1 To 0 Step -1
Print a(j);
Next j
A. 1 0 0 0
B. 1 0 0 1 0
C. 0 0 1 1 0
D. 1 0 1 0 0
27、假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是________。( )
A、命令按钮的所有Caption属性都是Command1
B、在代码中访问命令按钮只需使用名称Command1
C、命令按钮的大小都相同
D、命令按钮共享相同的事件过程
28、程序代码如下,当单击窗体上Command1控件时,窗体上显示的结果是_________。
Option Base 1
Private Sub Command1_Click( )
Dim i As Integer
Dim x(3,3)As Integer
For i = 1 To 3
For j = 1 To 3
x(i,j) = (i-1) * 3+j
Next j
Next i
For i = 1 To 3
Print x(i,4-i)
Next i
End Sub ( )
A、1 5 9
B、1 4 7
C、3 5 7
D、3 6 9
29、文件号最大可取的值为____________。( )
A、255
B、511
C、512
D、256
30、可以在________中,使用语句Public PubStr As String*20定义一个定长字符串。( )
A、窗体模块
B、标准模块
C、类模块
D、三者均可
31. 调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时,以下不是按值传递的语句是。
A. Call Convert ((X))
B. Call Convert(X*1)
C. Convert (X)
D. Convert X
32、窗体的Name属性为Frm1,在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量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语句说明窗体级变量
(1分) 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、Visual Basic程序在运行时中,用户可通过按____键进入中断状态。
6、输入一个正整数k,求各位数字之和。请将下列程序补充完整。程序代码如下:
Option Explicit
Private Sub Command1_Click( )
Dim Sum As Integer, k As Long
k = Val(Text1.Text)
Do While K>0
Sum = Sum + ____(1)__
k = k\10
Loop
Text2.Text = Str(Sum)
End Sub
7、添加按钮Command1和文本框Text1,并编写下列代码。执行程序单击命令按钮后,Text1中是_______;将A、B语句交换位置,执行程序单击命令按钮后,Text1中是________。
Option Explicit
Sub abc(k,x)
Dim i As Integer
x=1
For i=1 To k
x=x*i
Next i
End Sub
Private Sub Command1_Click()
Dim n As Integer,i As Integer,x As Integer
n=0:x=0
For i=1 To 3
Call abc(i,x) 'A语句
n=n+x 'B语句
Next i
Text1.Text="n=" & n
End Sub
8、一个窗体上有一个命令按钮Command1,下列程序执行后,输出的结果为_________。
Private Sub Command1_Click( )
Dim x As Integer
x = 1
Call sort(x)
Print x;
call sort((x))
Print x;
End Sub
Private Sub sort(y As Integer)
y = y+1
End Sub
9、用二分法求函数f(x)=x^3-6x-1=0 在x=2~5 范围内的x=2附近的一个实根,其计算误差为|xl-x2|<10^(-6)。完善下列程序。
Private Sub Command1_Click ( )
Dim V0 As Singke, v As Single, s As String
Dim x As Single, t As Single, x1 As Single, x2 As Single
x1=0: x2=5
Do While ______
x = (x1+x2)/2
If Sgn(f1(x)) = 1 Then
x2 = x
Else
x1 = x
End If
Loop
Print "x = "; x
End Sub
Private Function f1(x As Single) As Single
f1 = x * x * x -6 * x-1
End Function
参考答案
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,3 7.b,38.c,39.b,40.b
1.工具栏,
2.Alignment,
3.x<100 and x>=0,
4.本地窗口,
5.Ctrl+Break,
6.k mod 10,
7.n=9,n=3,
8.2 2,
9.Abs(x1-x2)>0.000001