南京工业大学2012VB考试题库6

1. 工程资源管理器用来显示和管理工程所包含的__D___等全部项目。
A、变量和数组
B、变量和常数
C、过程和事件
D、窗体和模块
2. 以下说法正确的是___A__。
A、A、B都正确
B、属性是对象的一部分
C、事件是对象的一部分
D、方法是对象的一部分
3. 能被对象所识别的动作与可执行的活动分别称为对象的_C____。
A、方法、事件
B、过程、方法
C、事件、方法
D、事件、属性
4. 当文本框的__A___属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。
A、Locked
B、SelStart
C、Shape
D、SelText
5. 可以将__C___放入一个框架中。
A、文本框、命令按钮
B、标签、选项按钮、复选框
C、任何控件
D、选项按钮、复选框
6. 要使文本框能显示多行文字，则需设定它的_C____属性为True。
A、PasswordChar
B、Seleted
C、MultiLine
D、Caption
7. 设置标签属性时，为了使WordWrap属性起作用，应将AutoSize属性设置__B___。
A、1
B、True
C、False
D、0
8. 复选框的Value属性为1时，表示_C____。

A、复选框未被选中
B、复选框内有灰色的勾
C、复选框被选中
D、复选框操作有误
9. 以下使用方法的语句中，正确的是_B____。

A、Form1.Clear
B、List1.Clear
C、Combo1.Cls
D、Picture1.Clear
10. 设置标签边框的属性是__C___。

A、Alignment
B、Backstyle
C、Borderstyle
D、Autosize
11. VisualBasic认为下面_____B______组变量是同一个变量。

A、A1 和A_1
B、A1和a1
C、Sum 和Summary
D、Aver 和 Average
12. 函数Int(Rnd*11)+10的值的范围是___D_________。
A、[0，20]
B、[10，10]
C、[10，11]
D、[10，20]
13. x+y小于10且x-y大于0的逻辑表达式是__A______。

A、x+y < 10 And x-y>0
B、x+y <10 . And. x-y >0
C、(x+y)<10 : (x-y) >0
D、x+y <10 Or x-y>0
14. 下列叙述不正确的是____C_______ .

A、代码中加入注释语句的目的的提高程序的可读性
B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译
C、注释语句可以放在代码中的任何位置
D、注释语句不能放在续行符的后面
15. 如果将布尔常量False赋值给一个整形变量，则整型变量的值为___A_________。
A、0
B、-1
C、False
D、True
16. 在VisualBasic代码中，将多个语句合并在一行上的并行符是_A___。

A、冒号(：)
B、感叹号(！)
C、撇号(’)
D、问号(?)
17. 设M=3，N=5，P=4.5，Q=2.5，表达式(M*N+2)/(P-Q)的计算结果为___A_________。
A、8.5
B、8.0
C、8
D、9
18. 设X=2.0,Y=8.0,Z=6.0,L=True,则下列VB表达式中值为True的是____B________。
A、Y+X>=Z+X AND NOT L
B、NOT(Z+X>Y) AND L
C、NOT L OR(L=Y+X=Z)
D、X+Z>Y AND L
19. 下列_____C_______是日期型常量
A、“江苏南京”
B、123#
C、#02/25/1999#
D、“I am a student”
20

. 下列不正确的变量名是__A______。
A、Arry@
B、Text
C、Command
D、Form
21. 在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行
时会出错的是_____A___。
A、Bl=#True#
B、Inta=4.6
C、D=#10/05/01#
D、St=5 & 123.5
22. 下面语句运行后的输出结果是__D___。
Private Sub Command1_Click()
x=0
Do While x<10
x=x+1
x=x*x
Loop
Print x
End Sub
A、30
B、12
C、6
D、25
23. 计算机算法可以分为两大类：一类是__D___算法，另一类是_____算法。
A、计算机辅助设计、财务
B、排序、查找
C、步骤管理、通信
D、数值计算、非数值计算
24. 下列程序段的执行结果为____C_。
x = Int((69 - 60) * Rnd + 60)
Select Case x
Case Is >= 90
Print "优秀"
Case 80 To 89
Print "良好"
Case 60 To 79
Print "合格"
Case Else
Print "不合格"
End Select
A、优秀
B、良好
C、合格
D、不合格
25. 在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click( )
Dim a As Integer,b As Integer
Do While b <100
b=b+5
a=a+b
If b>20 Then Exit Do
Loop
Print a,b
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是__B___。
A、75 20
B、75 25
C、50 20
D、50 25
26.用Msgbox（"Hello", vbokonly, "你好"）显示的消息对话框窗口的标题是_D____。
A、OK
B、Hello
C、vbokonly
D、你好
27. 在窗体画一个命令按钮，然后编写如下事件过程
Private Sub Command1_Click( )
x = 10
Print IIf(x>5,1,5)
End Sub
运行后的输出结果__D___。
A、6
B、2
C、5
D、1
28. 算法应具备的特征有：确定性、可行性、有穷性、_B____性、_____性。

A、步骤有限、可以实现
B、输入、输出
C、确切无误、可以实现
D、步骤有限、确切无误
29. 用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是____D____。
A、命令按钮的大小都相同
B、命令按钮的所有Caption属性都是Command1
C、命令按钮共享相同的事件过程
D、在代码中访问命令按钮只需使用名称Command1
30. 用"冒泡"法将数组a中的10个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段__B______。
n=1O
For i= 1 to n-1
For j= 1 to n-i
If ____________ Then
……'互换语句
End If
Next j
Next i
A、a(i)B、a(j)>a(j+1)
C、a(i)>a(j)
D、a(i)31. 在窗体上画一个命令按钮，然后编写如下事件过程：
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_______。
A、1234
B、34
C、12
D、4321
32. 对窗体编写如下代码：
Option Base 1
Private Sub Command1_Click( )
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
Next i
Print m1;m2
End Sub
程序运行后，按回车键，输出结果为___B______。
A、237 1
B、498 5
C、498 4
D、48 4
33. 下列语句可以用来正确地声明一个动态数组的是__B___。
A、Private A(n) As Integer
B、Dim A() As Integer
C、Dim A(1 to n)
D、Dim A(,) As Integer
34. 下列程序段的输出结果是______D______。
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、0 0 1 1 0
B、1 0 0 0
C、1 0 1 0 0
D、1 0 0 1 0
35.运行以下程序段，输出结果是_B___。
Dim a(1 To 10)
Dim p(1 To 4)
k = 5
For i = 1 To 4
p(i) = i * 2
Next I
For i = 1 To 4
k = k + p(i) * 2
Next I
Print k
A、30
B、45
C、32
D、48
36. 通用过程可以完成一项指定任务，必须由____A______调用才行。

A、应用程序
B、定时器
C、系统引发
D、Sub Main
37. VB中可以使用自定义的Sub过程和Function过程。__B_________过程称为函数，这种过程可以返回值。
A、时间过程
B、Function
C、通用过程
D、属性过程
38. 单击command1按钮，输出的第二行是___C_______
Private Sub Command1_Click()
Dim A As Integer, B As Integer, K As Integer
A = 2: B = 4
K = Fun((A), B) + Fun(A, B)
Print K
End Sub
Private Function Fun(N As Integer, M As Integer) As Integer
Static K As Integer
N = N + M
K = K + N
M = M + K
Fun = N + M
Print Fun; N; M
End Function
A、2 4
B、56
C、40 12 28 D、16 6 10
39. 参数传递有值传递和地址传递，___B______关键字表示地址传递。
A、ByVal
B、ByRef
C、Value
D、Refrence
40. 在窗体模块的通用声明处有如下语句，会产生错误的语句是___A_________。
①Const A As Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10
A、②③④
B、①③
C、①②
D、①②③
41. 在调用Sub或Function过程时，采用_A_____传送相应过程的变量名、数组名、常数或表达式。
A、实际参数
B、形式参数
C、对象参数
D、数组参数
42. 要想在过程调用后返回两个结果，下面的过程定义语句合法的是___D____。
A、Sub Procl ( ByVal n , ByVal m)
B、Sub Procl ( ByVal n , m)
C、Sub Procl ( n , ByVal m)
D、Sub Procl ( n , m)
43. 如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身

，这种参数传递方式称为____C______传递。

A、按地址
B、ByRef
C、按值
D、按形参
44. 某过程的说明语句中，正确的数组说明语句是_____B_______。
Const N as integer=4
Dim L as integer
①.Dim X (L) As Integer
②.Dim A(K) As Integer
Const K As Integer=3
③.Dim B(N) As Integer
④.Dim Y(2000 To 2008) As Integer

A、①②④
B、③④
C、①③④
D、②③
45. 以下说法正确的是___A________。
A、在VB中，过程不可以嵌套定义但可以嵌套调用
B、在VB中，过程可以嵌套定义但不可以嵌套调用
C、在VB中，过程不可以嵌套定义也不可以嵌套调用
D、在VB中，过程可以嵌套定义也可以嵌套调用
46. 在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click()
Dim x, y, z As Integer
x = 5: y = 7: z = 0
Text1.Text = ""
Call p1(x, y, z)
Text1.Text = Str(z)
End Sub
Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c = a + b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是___A_____。
A、12
B、没有显示
C、Str(z)
D、0
47. 单击一次命令按钮后，下列程序代码的执行结果为___D____
Private Sub proc(a() As Integer)
Static i As Integer
Do
a(i) = a(i) + a(i + 1)
i= i + 1
Loop While i < 2
End Sub
Private Sub Command1_Click()
Dim m As Integer, i As Integer, x(10) As Integer
For i = 0 To 4
x(i) = i + 1
Next i
For i = 1 To 2
Call proc(x)
Next i
For i = 0 To 4
Print x(i),
Next i
End Sub
A、1 2 3 5 7
B、3 4 7 5 6
C、1 2 3 4 5
D、3 5 7 4 5
48. KILL语句在VB语言中的功能是___A_________。
A、删除磁盘上的文件
B、清屏幕
C、清病毒
D、清内存
49. VB的文件管理控件是___D_________。
A、驱动器列表框、图片框、文件列表框
B、驱动器列表框、目录列表框、组合框
C、文本框、目录列表框、文件列表框
D、驱动器列表框、目录列表框、文件列表框
50. 要向已有数据的c:\test\test.txt文件添加数据，正确的文件打开命令是____B________。

A、Open 〞c:\test\test.txt〞 For Append As #512
B、Open 〞c:\test\test.txt〞For Append As #511
C、Open 〞c:\test\test.txt〞For Output As #511
D、Open 〞c:\test\test.txt〞 For Output As #512

1. Visual Basic有三种运行模式，分别是_设计模式____、运行模式和中断模式，其中中断模式
_____模式可以监视表达式和变量的值。
2. 文本框的_SelLength
____属性用来表示文本框中被选定的字符长度。
3. 表达式7^2Mod 5^2\3的值为_1
____
4. 已知K=2，J=3，A=True，则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为_True____。
5. 下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数，并求出该10个数的总和。请将程序补充完整。
Option Explicit
Private Sub For

m_Click()
Dim x As Integer, s1 As Integer
Dim n1 As Integer, i As Integer
Randomize
For i = 1 To 10
x= Int(Rnd*900)+100_____
Print x;
If x Mod 2 = 0 Then
_n1=n1+1____
else
n2 = n2 + 1
End If
s=s+x
Next i
Print
Print"奇数个数：";n1;"偶数个数为：";n2;"和为";s
End Sub
6. 运行下面的程序，就会出现_无限循环____，按_Ctrl+Break____键可以终止程序运行。
Private Sub Form_Click ( )
Dim i As Integer
Do While i<10
i =i * 20
Loop
End Sub
7. 若一个数的各个因子之和正好等于该数本身，则该数称为完数。如6的因子为1、2、3，其和为6，则6为完数，完成程序。
Private sub form_click()
dim a ,b ,c , i as integer
for a=2 to 100
__c=1___
for b=2 to a-1
if _a mod b=0____then
c=b+c
end if
next b
if c =a then
print a
end if
next a
End sub
8. 以下程序用随机数函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并将程序完善。
Private Sub Command1_Click( )
Dim d(6)
For i = 1 To 50
n = __Int(1+6*Rnd)___
d(n)=__ d(n)+1
___
Next i
For i = 1 To 6
Print d(i)
Next i
End Sub
9. 当sub过程value形参表中存在byval关键字时，执行本程序，单击窗体在窗体上显示的第一行内容是m=20 n=10_____；
若将形参表的byval关键字删掉，在执行本程序，单击窗体后在窗体上显示的第一行内容是m=20 n=10_____；第二行内容是__x=20 y=10__。
Private Sub value(ByVal m As Integer, ByVal n As Integer)
m = m * 2
n = n - 5
Print "m="; m, "n="; n
End Sub
Private Sub Form_Click()
Dim x As Integer, y As Integer
x = 10: y = 15
Call value(x, y)
Print "x=";x, "y=";y
End Sub
10. 在窗体上画一个名称为Command1的命令按钮，再画两个名城分别为Label1、Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Command1_Click()
x=5: y=3
Call proc(x,y)
Label1.Caption=x
Label2.Caption=y
End Sub
Private Sub proc(Byval a As Integer,Byval b As Integer)
x=a*a
y=a-b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是25_____,__3___。

[题目] 编写程序，求任意两个正整数的最小公倍数。
【编程要求】
1、单击"计算"按钮，在文本框Text3中显示最小公倍数；单击"清除"按钮，则清除3个文本框中的内容，
于文本框Text1；单击"结束"按钮，程序停止运行。
2、界面应与给出的参考界面相似，不得增加或减少控件；
3、运行程序，并输入3、7进行检验。
【参考代码】
m = Val(Text1): n = Val(Text2)
If m < n Then t = m: m = n: n = t
mn = m * n
r = m Mod n
Do While r <> 0
m = n: n = r
r = m Mod n
Loop
Text3 = mn / n

[题目]求Fibonacci数列的第n项，计算公式如下：

[编程要求]
1、程序中有一个递归函数，其功能是求斐氏数列的第n项。
2、完成计算按钮的单击事件功能。
【参考代码】
If n = 1 Or n =

2 Then
fab = 1
Else
fab = fab(n - 2) + fab(n - 1)
End If