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

工程资源管理器用来显示和管理工程所包含的__D___等全部项目。
A、变量和数组
B、变量和常数
C、过程和事件
D、窗体和模块
VisualBasic标题栏上显示了应用程序的__C___。
A、名称
B、位置
C、状态
D、大小
VisualBasic是用于开发__B___环境下的应用程序的工具。
A、UNIX
B、Windows
C、DOS
D、DOS和Windows
以下四个说法中不正确的是__C___。
A、控件工具箱中可以添加新的控件
B、可以通过双击工具箱中的控件，将控件加入窗体上
C、VB中所有基本控件都可以改变大小
D、在窗体上选中控件，按【Del】键可删除该控件
在设计列表框时，若实现输入多行文字的目的，应使用__C___键实现文本的换行。
A、Alt+Enter
B、Enter
C、Ctrl+Enter
D、Ctrl+Shift+Enter
___C__的改变可以在设计时和运行时表现出来，而_____只有在运行时执行。
A、事件过程、函数
B、控件属性、子程序
C、控件属性、事件过程
D、控件属性、函数
下列控件中，没有Caption属性的是__C___。
A、单选按钮
B、框架
C、列表框
D、复选框
运行时，当用户向文本输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框
的Text属性时，将触发文本框的__C___事件。
A、Gotfocus
B、Dblclick
C、Change
D、Click
某过程有语句Frm1.Caption="Hello",在界面设计时，该窗体的标题属性取缺省值，则执行该语句前后，
标题、属性值分别为__B___。

A、Form,Hello
B、Form1,Hello
C、Frm1,Hello
D、Form1,Frm1
若要使命令按钮不可操作，要对___C__属性设置。
A、Visible
B、Caption
C、Enabled
D、BackColor
执行语句Print Format(1234.567,“##,##0.00”)后，输出结果是______A______。
A、1,234.57
B、1,234.56
C、1，234.567
D、1234.57
在一个语句内写多条语句时，每个语句之间用_______C_____符号分隔。
A、，
B、、
C、：
D、；
在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行
时会出错的是__A______。
A、Bl=#True#
B、Inta=4.6
C、D=#10/05/01#
D、St=5 & 123.5
表达式X+1>X是______D_______.

A、字符串表达式
B、非法表达式
C、算术表达式
D、关系表达式
表达式(-1)*Sgn(-100+Int(Rnd*100))的值是_____A_______。
A、1
B、0
C、-1
D、随机数
\、/、Mod、*四个算术运算符中，优先级别最低的是_____A_______。
A、Mod
B、\
C、/
D、*
下列不正确的变量名是____A____。
A、Arry@
B、Text
C、Command
D、Form
设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
赋值语句：a=123+MID("123456",3,2)执行后，a变量中的值是_____C_______。
A、123
B、"12334"
C、157
D、12334
下列没有类型说明符的变量是

____B_____。
A、货币型
B、日期型
C、字符串型
D、长整型
以下哪个是合法的变量名______C______。

A、Len
B、Test@qw
C、count2s
D、6cost_1
哪个程序段不能分别正确显示1、2、6、24的值___D__。
A、For i=1 To 4
n=1
For j=1 To i
N=n*j
Next j
Print n
Next i
B、n=1
For j=1 To 4
N=n*j
Print n
Next j
C、n=1
j=1
Do While j<=4
n=n*j
Print n
j=j+1
Loop
D、For i=1 To 4
For j=1 To i
n=1
n=n*j
Next j
Print n
Next i
执行以下语句后，a的值为_A____。
Dim a As Integer
a=1
Do Until a=100
a=a+2
Loop

A、溢出
B、100
C、99
D、101
在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有__C___。可使文本框Text3中
显示46。
A、Text3. Text=Val(Text1. Text) & Val(Text2.Text)
B、Text3. Text=Text1. Text & Text2. Text
C、Text3. Text=Val(Text1. Text)+Val(Text2.Text)
D、Text3. Text=Text1. Text+Text2.Text
下列循环能正常结束循环的是__D___。
A、i=5
Do
i=i+1
Loop Until i<0
B、i=6
Do
i=i-2
Loop Until i=1
C、i=1
Do
i=i+2
Loop Until i=10
D、i=10
Do
i=i+1
Loop Until i>0
窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，
变量c的值为12。以下__D___语句可以使文本框内显示的内容为：5+7=12
A、Text1.Text=a+b=c
B、Text1Text="a+b=c〞
C、Text="a"&"+"&"b"&"="&"c"
D、Text1=a &"+"& b &"="& c
结构化程序设计方法的核心是规定了三种基本结构：_A____结构、分支结构、循环结构。

A、顺序
B、条件
C、逻辑
D、当型
以下语句执行时，从键盘上输入Zhang，执行结果是__B___。
Dim a As String
a=InputBox("Input","","Name")
Print a
A、Inprt
B、Zhang
C、Name
D、空字符串
下列程序段的输出结果是___D_____。
Dim A(5)
For I=0 TO 4
A(I)=I+1
M=I+1
If M=3 Then
A(M-1)=A(I-1)
Else
A(M)=A(I)
End If
If I=3 Then A(I+1)=A(M-4)
Print A(I);
Next I
A、1 1 1 2 2
B、2 2 1 4 1
C、2 1 1 4 4
D、1 2 2 4 5
下列程序段的输出结果是______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
下列程序的输出结果是_____B_______。
Dim i As Integer, k As Integer
Dim a(10) As Integer, p(3) As Integer
k = 5
For i = 0 To 9
a(i) = i
Next i
For i = 0 To 2
p(i) = a(i * (i + 1))
Next i
For i = 0 To 2
k = k + p(i) * 2
Next I
Print k
A、23
B、21
C、22
D、17
在窗体模块的通用声明处有如下语句，会产生错误的语句是_B__。
①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、①②
如下二维数组声明语句，______B______正确。
A、Dim a(n，n) As Integer
B

、Dim a(3，4) As Integer
C、Dim a(34) As Integer
D、Dim a[3，4] As Integer
在窗体中添加一个命令按钮，并编写如下程序代码：
Private Sub Command1_Click( )
Dim y As Integer
y = 0
Do While y<7
y=y+2
Loop
MsgBox y
End Sub
程序运行后，消息对话框中显示_____B_____。
A、0
B、8
C、7
D、2
Option Base 1 D
Private Sub Command1_Click()
Dim a%(3, 3)
For i = 1 To 3
For j = 1 To 3
If j > 1 And i > 1 Then
a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1
Else
a(i, j) = i * j
End If
Print a(i, j); " ";
Next j
Print
Next i
End Sub
A、1 2 3
2 4 6
3 6 9
B、1 2 3
1 2 3
1 2 3
C、1 1 1
2 2 2
3 3 3
D、1 2 3
2 3 1
通用过程可以通过执行"工具"菜单中的_____A_______命令来建立。

A、添加过程
B、添加模块
C、通用过程
D、添加窗体
VB中可以使用自定义的Sub过程和Function过程。______B_____过程称为函数，这种过程可以返回值。
A、时间过程
B、Function
C、通用过程
D、属性过程
在参数传递过程中，使用关键字________D________来修饰参数，可以使之按值传递。

A、Value
B、ByRef
C、Reference
D、ByVal
通用过程可以完成一项指定任务，必须由____D______调用才行。
A、定时器
B、Sub Main
C、系统引发
D、应用程序
如下程序，运行的结果是_____C_______。
Public Function pi!(x!, n%)
If n = 0 Then
pi = 1
ElseIf n Mod 2 = 1 Then
pi = x * pi(x, n \ 2)
Else
pi = pi(x, n \ 2) \ x
End If
End Function
Private Sub Command1_Click()
Print pi(3, 7)
End Sub
A、7
B、18
C、27
D、14
下面的过程定义语句中合法的是_________A_______________。

A、Sub Procl (ByVal n () )
B、Function Procl (ByVal n )
C、Function Procl (Procl )
D、Sub Procl ( n ) As Integer
可以在窗体模块的通用声明段中声明的是_______A_________。
A、全局用户自定义类型
B、全局常量
C、全局数组
D、全局变量
单击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
执行以下程序，在窗体上显示的第二行内容是___A有关过程的说法中错误的是____D____。
A、递归过程既可以是递归Function过程，也可以是递归Sub过程
B、在Sub或Function过程中不能再定义其他Sub或Function过程
C、在调用过程时，形参为数组的参数对应的实参只能是数组
D、在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合
856. 窗

体中添加一个命令按钮，程序运行后，输出结果为_____B____ 。
Private Sub test(x,y,z)
x = x+1: y = y + 2: z = z + 3
Print "Sub="; x; y; z
End Sub
Private Sub Command1_Click( )
a1 = 10: b1 = 17: c1 = 41
Call test(a1,b1+2,(c1))
Print "Main="; a1; b1; c1
End Sub
A、Sub=12 11 41 Main=10 11 41
B、Sub=11 21 44 Main=11 17 41
C、Sub=10 17 41 Main=11 17 44
D、Sub=10 17 41 Main=11 17 44
窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为_____B_____。
Private Sub fun( )
Static a As Integer
a=a+2
Print a;
End Sub
Private Sub Command1_Click( )
Dim m As Integer
For m=1 To 3
Call fun
Next m
End Sub
A、0 0 0
B、2 4 6
C、2 2 2
D、2 4 8
若磁盘文件C:\Data1.dat不存在，下列打开文件语句中，会产生错误的是___A_____。
A、Open"C:\Data1.dat" For Input As #2
B、Open"C:\Data1.dat" For Append As #3
C、Open"C:\Data1.dat" For Output As #1
D、Open"C:\Data1.dat" For Binary As #4
语句Open “Mjq.Txt” For Input As #Freefile 表示___A_____。
A、打开一顺序文件"Mjq.Txt"，为读数据做准备
B、打开一随机文件"Mjq.Txt"，为写数据做准备
C、打开一二进制文件"Mjq.Txt"，为读数据做准备
D、打开一随机文件"Mjq.Txt"，为读数据做准备
文件号最大可取的值为______C______。
A、512
B、256
C、511
D、255




有一个充满氢气的球，如果人不小心松开手抓的引线，它就会飞走；如果用针刺穿它，它则会爆破。此处红色一种属性，飞是一种__方法___。针刺是一种___事件__，爆破是一种__方法___。
可使用列表框的___AddItem__方法向列表框中增加一个项目。
已知K=2，J=3，A=True，则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为___True__。
关系式-5<=X<=5所对应的表达式是___X>=-5 and X<=5__
本程序用于验证一个自然数N的立方等于N个连续奇数之和，其中最大的奇数P=N*（N+1）-1
例如，43=19+17+13，最大奇数为19。
当程序执行后，分别给对话框输入4和6时，问计算结果分别为__4 13___和__6 31___。
Private Sub Command1_Click( )
Dim s As String
n = InputBox("输入一个自然数")
num = n * n * n
p = n * (n + 1)-1
x = p
k = 1
Do Until x = num
p = p-2
x = x + p
k = k + 1
Loop
Print
Print k; p
End Sub
运行下面程序，单击窗体后在窗体上显示的第二行结果是__x2=0 y2=1___；第四行结果是___x4=1 y4=3__。
Dim y As Integer
Private Sub Form_Click()
Dim x As Integer
x = 1: y = 1
Print "x1="; x, "y1="; y
Test
Print "x4="; x, "y4="; y
End Sub
Private Sub Test()
Dim x As Integer
Print "x2="; x, "y2="; y
x = 2: y = 3
Print "x3="; x, "y3="; y
End Sub
求满足如下条件的三位数，它除以11所得的商等于各位数字的平方和。例如：
550/11=50=5*5+5*5+0。完善下列程序。程序代码如下：
Private Sub Form_Click( )
Dim a As Integer,b As Integer,c As Integer,n As Integer,j

As Integer
For a= ___1 to 9__
For b=0 To 9
For c=0 To 9
n= __a*100+b*10+c___
If (n Mod 11 =0)And(n\11=a*a+b*b+c*c)Then
Print n;"/11=";n/11;"="；a*a;b*b;c*c
End If
Next c
Next b
Next a
End Sub
阅读下面的程序并填空：
Option Base1
Private Sub Command1_Click()
Dim a
a=Array(28,6,134,249,19,76,84,98,23,43)
For i = __1 to 9___
k=i
For j = ___i+1 to 10__
If a(i)Next j
t=a(i)
a(i)=a(k)
a(k)=t
Next i
For i = 1 to 10
Print a(i)
Next i
End Sub
在窗体上画一个名称为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_____
如下程序，运行的结果是__8 8 3 4 5___，若将A语句改为Static i%，运行的结果是__3 5 7 4 5___。
Public Sub Proc(a%())
Dim i% 'A
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
Private Sub Command1_Click()
Dim m%, i%, x%(10)
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




[题目] 已知：买一只公鸡需5元，买一只母鸡需3元，买三只小鸡需1元。要用100元买100只鸡，公鸡母鸡和小鸡各有多少只？
【编程要求】
1、单击"计算"按钮，则将计算结果显示在列表框List1中；单击"清除"按钮，则清除列表框的内容；单击"退出"按钮，程序停止运行。
2、界面应与给出的参考界面相似，不得增加或减少控件。

For x = 1 To 20
For y = 1 To 33
z = 100 - x - y
If 5 * x + 3 * y + z / 3 = 100 Then List1.AddItem Str(x) + " " + Str(y) + " " + Str(z)
Next y
Next x
题目] 生成一个由1位数字组成的大小为4*4的矩阵，并求出该矩阵的靠边元素之和。
[编程要求]
程序中有一个过程sum()，该过程的功能是计算矩阵的靠边元素之和。
完成此函数的功能。

【参考代码】
Dim u1 As Integer, u2 As Integer, i As Integer
sum = 0
u1 = UBound(a, 1)
u2 = UBound(a, 2)
For i = 1 To u1
For j = 1 To u2
If i = 1 Or i = u1 Or j = 1 Or j = u2 Then sum = sum + a(i, j)
Next j
Next i