-
宁夏大学新华学院
08
信管
王艺桥
一、
选择题
1
、在一个语句内定多条语句时，每个语句之间用
符号分隔。
B
A
）
，
B
）
：
C
）
、
D
）
；
2
、下面
是合法的变量名。
A
A
）
Xyz
B) 123abc
C) integer
D)- X-Y
3
、定义两个过程
Private sub a()
和
Private Function b(k as Intger)
，
在调用过程中用
Dim S As Intager,X As String
定义了两个变量。下面
调用语
句中正确的有
( )
。
B
1)
Call a(S) 2) Call b(X) 3) Call a 4) Call b
5) a X 6) b S 7) a
8) b
9) M = a(X) 10) M = b(S) 11) M
= a 12) M = b
A)1
、
2
、
3
、
4 B)3
、
6
、
7
、
10
C)2
、
3
、
10
< p>、11 D)2
、
9
、
10
、
11
、
12
4
、下面正确的赋值语句是
。
C
A
）
x+y=30
B) y=
π
*r*r
C
）
y=x+30
D)3y=x
5
、赋值语句
a=123 +left(
“
123456
”
,3)
< p>执行后，a
变量中的值是
。
D
A
）
”
12334
”
B)123
C)12334
D) 246
6
、 假定
X
是一个数值型变量，那么由函数组成的表达式
INT
（
X/2
）
=X/2
，
< br>作用是
____
。
A
A)
用于测试
X
是否偶数
B)
返回一个整数
C)
返回一个奇数
D)
用于测试
X
是否整数
7
、
InputBox
函数返回值的类型为
________
。
B
A)
数值
B)
字符串
C)
变体
D)
数值或字符串（视输入的数据而定）
8
、运行以下程序后，显示的结果是（
C
）
DIM N
（
5
）
N
（
0
）
=2
FOR I=2 TO 5
N
（
I
）
=N
（
I-2
）
*I*I
N
（
I
）
；
NEXT I
END
A)1
2
3
4
5
B)1
2
6
24
120
C)8
0
128
0
D)2
4
12
48
240
9
、在
VB
中，若
X
是一整型变量
,
< p>则下列____D____
语句是错误的
.
A) PRINT
B) PRINT
；
X
C) PRINT X+1
D) PRINT
10
、表达式
16/4-2^5*8/4 mod 52
的值为
B
A
）
14
B
）
4
C
）
20
D
）
2
宁夏大学新华学院
08
信管
王艺桥
11
、阅读以下程 序，执行该程序后，数组
A
和数组
B
的值是（
C
）
DIM A
（
50< /p>
）
，
B
（
50
）
FOR N=1 TO 50
：
A
（
N
）
=N
：
NEXT N
FOR N=1 TO 50
< p>B
（
N
）
=A
（
N
）
+A
（
N-1
）
< p>
PRINT B
（
N
）
；
NEXT N
A)
数组
A
和数组
B
各存储
1
～
5 0
的自然数
B)
数组
A
存储
1
～
50
的 自然数，数组
B
存储
1
～
99
的自然数
C)
数组
A
存储
1
～
50
的自然数 ，数组
B
存储
1
～
99
< p>的奇数
D)
数组
A
存储
1
～
50
的自然数，数组< /p>
B
存储
2
～
100
的 偶数
12
、设有语句
X=Inputb ox(
“输入数值”，
“
0
”
，< /p>
“示例”
),
程序运行后，如
果从键盘上输
入数值
10
并按回车键，则下列叙述正确的是
______B__ ____
A)
变量
X
的值是数值
10
B)
变量
X
的值是 字符串“
10
”
C)
在
INPUTBOX
对话框标题栏中显示的是“示例”
D) 0
是默认值
13
、在运行阶段，要在文本 框
TEXT1
获得焦点时选中文本框中所有内容，
对应的
事件过程是
(
A
)
A) Private Sub Text1_GotFocus( )
rt=0
gth=Len()
End Sub
B) Private Sub Text1_LostFocus( )
rt=0
gth=Len()
End Sub
C) Private Sub Text1_Change( )
rt=0
gth=Len()
End Sub
D) Private Sub Text1_SetFocus( )
rt=0
gth=Len()
End Sub
14
、
< p>窗体中有3
个按钮
Command1
、
Command2
和
Command3
，
该程序的
功能是当单击按钮
Command1
时，按钮< /p>
2
可用，按钮
3
不可见，正确的程
< br>序是（
C
）
A)Private Sub Command1_Click( )
B)Private Sub Command1_Click( )
e=True
d=True
e=False
d=False
第
2
页
共
15
页
宁夏大学新华学院
08
信管
王艺桥
End Sub
End Sub
C)Private Sub
Command1_Click( )
D)Private Sub Command1_Click( )
=True
d=False
e=False
e=False
End Sub
End Sub
15
、
a
和
b
中 有且只有一个为
0
，可以用以下的表达式来表示（
C
）
。
A) a=0 Or b=0
B) a=0 Xor b=0
C)a*b=0
and
a+b<>0 D)a=0 and not b=0 and b=0 and not a=0
16
、设
a=6
，则 执行
x=IIf(a
＞
5
，
-1< /p>
，
0)
后，
x
的值为（
D
）
A) 5
B) 6 C) 0 D) -1
17
、下列程序代码：
x
= 13: y = 15 :a = x - y
If x >= y Then
a = a + y Else a = a - y
Print a
运行结果为（
B
）。
A)-13 B) -17 C) 13
D) 15
18
、下面程序的循环次数是
___ ____D________
For J=8
TO
35
Step
3
Print
J
NEXT
J
A)7
B)8
C)9
D)10
19
、以下叙述中错误的是
( d )
A)
如果过程被定义为
Static
， 则该过程中的局部变量都是
Static
类型
B)
Sub
过程中不能嵌套定义
Sub
过程
C)
Sub
过程中可以嵌套调用
Sub
过程
D)
事件过程可以像通用过程一样由用户定义过程名
20
、请补充完整下列程序代码，用以求
a
和
b
两个数中的最大值。
B
a =
Val(InputBox(
b =
Val(InputBox(
If a > b Then _____ Else
_______
Print
A)
m=b, m=a B) m=a, m=b
C) b=m, a=m D)
a=m, b=m
24
、 可以唯一标识控件数组中的每一个控件的属性是
_______C______
A) Name B) Caption C) Index
D) Enabled
25
、判断下面程序是计算哪一个数学式子的（
D
）
INPUT N
T=1
：
S=0
第
3
页
共
15
页
宁夏大学新华学院
08
信管
王艺桥
FOR I=1 TO
2*N+1 STEP 2
T=T*I
S=S+T
NEXT I
PRINT S
A)1+3+5+
?
+2N+1
B)1*3*5*
?
*(2N+1)
C)1
！
+3
！
+5
！
+
?
+(2N+1)!
D)1+1*3+1 *3*5+
?
+1*3*..*(2N+1)
26
、如果要在命令按钮上显示图形文件，应设置命令按钮的
___
B____
A)
Style
属性和
Graphics
属性
B) Style
属性和
Picture
属性
C) Picture
属性
D) Graphics
属性
27
、运行下面程序后的输出结果是
____B____
FOR I=1 TO 4
I
；
NEXT I
PRINT I
A)1
2
3
4
B) 1
2
3
4
5
C)1
2
3
4
4
D)1
；
2
；
3
；
4
；
5
28
、执行以下语句后
a
的值为
___C___
。
Dim a As Integer
a=1
Do Until a=100
a=a+2
Loop
A) 99
B) 100
C)
溢出
D) 101
29
、
在设计阶段，
双击窗体< /p>
Form1
的空白处，
打开代码窗口，
显示
____B_____
事件过程模板。
A)
Form_Click B)Form_Load
C)Form1_Click
D)
Form1_Load
30
、请补充完整下列程序代码，用以求
a
和
b< /p>
两个数中的最大值。
A
a =
Val(InputBox(
:
b = Val(InputBox(
If a > b Then _____ Else
_______
Print
A)
m=a, m=b
B) m=b, m=a
C)
b=m, a=m
D)
a=m, b=m
31
、对于类型声明语句：
Dim intX, intY as integer
，则以下说法正确的是：
A
A)
创建了一个变体型变量
intX
和 一个整型变量
intY
B)
创建了两个变体型变量
intX
和
intY
C)
创建了两个整型变量
intX
和
intY
D)
创建了一个整型变量
intX
和一 个变体型变量
intY
32
、下列控 件中，没有
Caption
属性的是
____B______
。
第
4
页
共
15
页
宁夏大学新华学院
08
信管
王艺桥
A)
框架
B)
列表框
C)
复选框
D)
单选钮
33<
/p>
、下面子过程语句，说明合法的是：
_____D_______
。
A) Sub f1(Byval n%( ) ) ,
B)Sub f1(n%) As Integer
C) Function
f1%(f1%) D)Function f1(Byval n%)
34
、如果在窗体上有一文本框
Text1,
可以 通过
C
事件获得输入键的
ASCII
码。
A
、
Change B
、
LostFocus C
、
KeyPress D
、
GotFocus
36
、下面选项中，不能用于列表框的方法是
D
A) AddItem B) RemoveItem
C) Clear D)Print
37
、在过 程中定义的变量，若希望在离开该过程后，还能保存过程中局部变
量的值，则应使用
___D____
关键字在过程中定义局部变量。
A) Dim B) Private C) Public
D) Static
38
、假定
x
的值 为
5
，则以下语句中，能输出
的
S elect Case
语句
是
_____C___
A) Select Case x
B) Select Case x
Case 10 To 1 Case Is
＞
5, Is
＜
5
End Select End Select
C) Select Case x
D) Select Case x
Case Is
＞
5, 1, 3 To 10 Case 1, 3, Is
＞
5
End Select End Select
39
、文本框没有
____D_ ___
属性。
A) Enabled
B) Visible C) BackColor
D) Caption
40
、
Int( 198.555*100+0.5)/100
的值是
C
。
A) 198 B)
199.6 C) 198.56 D) 200
二、
填空题
1
、假设某一事件过程如下：
Private Sub cmd1_Click()
n=”VB
示例”
End Sub
则响应该过程的对象名是
cmd1
，事件名是
click
。
2
、产生
[10
，
99]
之间随机整数的
VB
表达式是
int(rnd*90+10)
.
3
、
在窗体上画一个名称为
Command1
的命令按钮和一个名称为
Text1
的文本
框。程序运行后，
Co mmand1
为禁用
(
灰色
)
。 当向文本框中输入任何字
符时，命令按钮
Command1
变为可用。请在、处填入适当的内容，将程
序补充完整。
第
5
页
共
15
页
宁夏大学新华学院
08
信管
王艺桥
Private Sub
Form_Load()
d=
false
End Sub
Private Sub Text1_
change
( )
d=True
End Sub
4
、
下列程序是产生
20
个随机两位数，
从大到小排列，
并输出到一个名为
Text1
的文本框中，请填空。
Private Sub Commandl_C1icK()
Dim a(20) as integer
For I=1 to 20
A(i)=
int(rnd*90+10)
Next
For I=1 to 19
K=
i
For j=I+1 to 20
If
a(K) then k=j
Next
If
K<>I Then T=a(i): a(i)=a(k):
a(k)=T S=S &
“ , ” &
a(i) Next
= S :
End Sub 、 u
nt-1 表示列表框 List1 中最后一项的序号。 、下面是利用辗转相除法求两个数的最大公约数的函数，请补充程
序。
Function f( m
as Integer , n
as Integer ) as Integer mod n While r<>0
M=n
: n=r : R = m
mod n
Function 、 VB 中变量按其作用域分为全局变量、 窗体模块级变量和局部变量，窗体 窗体模块通用声明段
声明。 、在过程中定义的变量，若希
望在离开该过程后，还能保存该变量的值， static 关键字在过程中定义该变量。声明全局变量的关键字是
dim,static 。 、一个工
程可以包括多种类型的文件，其中，扩展名为 .vbp 的文件表示
工程 ____ 文件； 扩展名为 .frm 的文件表示 ____ 窗体 ___
文件； 扩展名为 .bas ____ 标准模块 __ 文件；包含 Ac
tiveX 控件的文件扩展名为 6
页 共 15
页
宁夏大学新华学院 08 信管
王艺桥
。 、 已 知 A$$= ” 876
54321 ” , 表 达 式
5
6
Public
R=m
Do
Loop
F=n
End
8
模块级变量应在
9
则应使用
声明局部变量的关键字是
10
__
的文件表示
第
_*.ocx__
11
值
是
< p>
876554
。
15
、按如下要求书写函数定义的首语句：
public function myf
（
a as integer
，
b
as
integer
）
as Boolean
（要求：
形参有两个
a
、
b
均为整形，
函数名为
MyF
，
函数返回值为逻辑型。
）
16
、
VB
中变量按其作用域可分为
模块级变量
、全局变量、
局部变
量
。
17
、阅读下面的 程序，该程序的作用是利用随机函数产生
10
个
[1
，
200]
之间
的随机整数，求其和并打印其中
7
的倍数，请补充完整该程序
Private
Sub Command1_Click()
For M = 1 To 10
X = Int(rnd*200+1)
If x mod 7=0 Then Print X;
K1=k1+x
Next M
Print
End Sub
18
、下面程序段的运行结果是
1
。
Dim x
If
x
Then Print x
Else
x+1
19
、
图片
位于
D
盘根目录，将它加载到图片框
picture1
的语
句
是
e=loadpicture(
“
d:
”
)
，
然
后
将
Picture1
中的图片清空的语句是< /p>
e=loadpicture(
“”
)
。
21
、要使时钟控件
Time r
每一秒产生一个计时器事件，则
Interval
属性应
设置为
_1000_
。
22
、
取整函数
Int (3.5)=_3_
，
Int(-3.5)=__-4_
，
Fix(-3.5)= _-3_,
Round(-3.5)= _-4_
。
23
、写出随机产生
X
的
VB
表达式，要求
X
是
40
≤
X
≤
90
范围内的整数
int(rnd*5
0+40)
24
、获得数组上界通过
ubound
函数，获得数组下界通过
lbound
函数。
25
、下面程序是求出所有的幸运数显示在列表框中，并将幸运数的个数 显示
到文本框中。
凡前两位数字之和等于
后两位
数字之和的四位数称为幸运
数。
Private Sub Command1_Click()
Dim
i
As
Integer,
N
As
Integer,
第
7
页
共
15
页
-
-
-
-
-
-
-
-
-
上一篇：数学建模试题数学建模队员的选拔
下一篇：任务分工报告