2017年计算机二级考试题库一(VB)

1. 在名称窗体为Form1，KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1)，如图2—1所示。编写窗体的KeyDown事件过程。程序运行后，如果按“A”键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果按“D”键，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2—2所示。

 在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

 要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

 2．在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被?整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。

 要求：请勿改动程序中的任伺内容，只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

下列关于线性链表的描述中正确的是(  )。

• A．存储空间不一定连续，且各元素的存储顺序是任意的
• B．存储空间不一定连续，且前件元素一定存储在后件元素的前面
• C．存储空间必须连续，且各前件元素一定存储在后件元素的前面
• D．存储空间必须连续，且各元素的存储顺序是任意的

以下叙述不正确的是______。

• A．在Sub过程中可以调用Function过程
• B．在用Call调用Sub过程时必须把参数放在括号里
• C．在Sub过程中可以嵌套定义Function
• D．用Static声明的过程中的局部变量都是Static类型

如果将窗体中文本框的Password Char属性设置为一个字符，如星号(*)，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是(  )。

• A．文本框的MultiLine属性值为True
• B．文本框的Looked属性值为True
• C．文本框的MultiLine属性值为False
• D．文本框的Looked属性值为False

当一个工程含有多个窗体时，其中的启动窗体是(  )。

• A．启动Visual Basic时建立的窗体
• B．第一个添加的窗体
• C．最后一个添加的窗体
• D．在“工程属性”对话框中指定的窗体

下列程序段的执行结果为  a=5  For k=1 To 0   a=a * k  Next k  Print k；a

• A．-1 6
• B．-1 16
• C．1 5
• D．11 21

当直线或形状的BorderStyle属性设置为1时，控件是（　　）。

• A.虚线 
• B.点线 
• C.不可见 
• D.实线 

下列程序段的执行结果为______。  DimA(10),B(5)    For i=1 To 10      A(i+=i    Next i    For i=1 To 5      B(j)=j*20    Nextj    A(5)=B(2)    Pfiat"A(5)"；A(5)

• A．A(5)=5
• B．A(5)=10
• C．A(5)=20
• D．A(5)=40

在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：  Private Sub Command1_Click( )  Dim x As Integer，n As Integer  x=1  n=0  Do While x＜20    X=K*3    n=n+1  Loop   Text1.Text=Str(x)  TextText=Str(n)  End Sub  程序运行后，单击命令按钮，在两个文本框中显示的值分别是

• A．15和1
• B．27和3
• C．195和3
• D．600和4

在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程  Option Base 1  Private Sub Command1_Click()    Dim a(5,5)As Integer    For i=1 To 5       For j=1 To 5         a(i,j)=(i+j)*5\10       Next j    Next i    s=0    For i=1 To 5       s=s+a(i,i)    Next i    Print s  End Sub

• A．15
• B．13
• C．11
• D．9

下列程序段的执行结果为 

Dim t（10）  

For k=2 To 10 

t（k） =11 - k  

Next k 

x=6 

Print t（2 + t（x） ） （　　）。

• A.2 
• B.3 
• C.4 
• D.5 

下列不属于软件调试技术的是______。

• A．强行排错法
• B．集成测试法
• C．回溯法
• D．原因排除法

在面向对象方法中，一个对象请求另一对象为其服务的方式是通过发送 ______。

• A．调用语句
• B．命令
• C．口令
• D．消息

在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码：  Option Base 1  Private Sub Command1_Click()      Dim a(4，4)      For i=1 To 4      For j=1 To 4       a(i，j)=(i-1)*3+j     Next j   Next i   For i=3 To 4    For j =3 To 4      Print a(j，i)；    Next j    Print   Next i  End Sub程序运行后，单击命令按钮，其输出结果为______ 。

• A．6 9 7 10
• B．7 10 8 11
• C．8 11 9 12
• D．9 12 10 13

有如下程序，运行后的输出结果是 ______。    a = 5    If a ＜= 3 Then       Print 3;    End If    If a ＜= 4 Then       Print 4;    End If    If a ＜= 5 Then       Print 5;    End If    If a ＜= 6;       Print 6;    End If

• A．3456
• B．456
• C．56
• D．6

有如下程序。

Private Sub Command1_Click()

Dim k As Integer, m As Integer

Dim op As Integer

k=4: m=1

op=PPC(k, m) : Print op;

op=PPC(k, m) : Print op

End Sub

Private Function PPC(a As Integer, b As Integer)

Static m As Integer, i As Integer

m=0: i=2

i=i + m + 1

m=i + a + b

PPC=m

End Function

程序运行后,输出的结果为

• A．4 6
• B．6 6
• C．8 8
• D．10 12

窗体上有一个名为Command1的命令按钮，并有下面的程序：

Private Sub Command1 Click（　　）

Dim arr(5)As Integer ．

For k=1 To 5

• art(k)=k    Next k    prog art（　　）
• For k=1 T0 5    Print art(k)；    Next k
• End Sub    Sub prog(a（　　）As Integer)    n=UBound(a)
• For i=n To 2 step-1
• if a(j)t=a(j)：a(1)=a(j+1)；a(j+1)=t
• End If    Next j    Next i
• End Sub    程序运行时，单击命令按钮后显示的是（　　）。
• A.12345
• B.54321
• C.01234

VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（　　）。

• A.只触发KeyUp事件   
• B.这3个事件都会触发
• C.只触发KeyDown、KeyPress事件
• D.不触发其中任何一个事件

假定程序中有以下语句：  answer=MsgBox("String1","String2","String3",2)  执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则answer的值为______。

• A．String1
• B．String2
• C．String3
• D．1

在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drivel、Dirl和Filel。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dirl_Change事件过程中应使用的语句是______。

• A．Dirvel.Drive=Dirl.Path
• B．Dirl.Path=Drivel.Drive
• C．Dirl.Path=Filel.Path
• D．Filel.Path=Dirl.Path

改变控件的位置不能通过下列(  )方法来直接实现。

• A．使用Move方法
• B．拖放控件
• C．改变控件Left值
• D．改变控件Top值

以下语句的输出结果是 ______。  Print Format$("32548.5","000，000.00")

• A．32548.5
• B．32,548.5
• C．032,548.5
• D．032548.5

执行下面的程序后，输出的结果是　　p=1 　　For j=1 To 4 　　　p=p - 1：q=0 　　　For k=1 To 4 　　　　p=p + 1：q=q + 1 　　　Next k 　　Next j 　　Print p；q

• A．1 4
• B．13 4
• C．12 8
• D．20 6

在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是 ______。

• A．Move
• B．Change
• C．Scroll
• D．GetFocus

已知文本框的ScrollBars属性设置为3，却看不到任何效果，原因是（　　）。

• A. 文本框中没有内容 
• B. 文本框的Locked属性值为True
• C. 文本框的MultiLine属性值为False
• D. 文本框的MultiLine属性值为True

Visual Basic中的每个对象都有自己的名字，名字的长度不能超过______ 个字符。

• A．10
• B．32
• C．128
• D．255

 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：  Private Sub Command1_Click()   Dim i As Integer，n As Integer   For i=0 To 50    i = i + 3    n = n + 1    If i＞10 Then Exit For   Next   Text1.Text=Str(n)  End Sub  程序运行后，单击命令按钮，在文本框中显示的值是

• A．2
• B．3
• C．4
• D．5

假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是______。

• A．Private Sub Commandl_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowPrinter End Sub
• B．Private Sub Command1_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowFont End Sub
• C．Private Sub Commslld1_CUck() CommonDialog1.DialogTifie="NewTitle" CommonDialog1.ShowOpen End Sub
• D．PrivateSubCommand1_Click() CommonDialog1.DialogTitle”NewTitle” CommonDialog1.ShowColor End Sub

函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。

• A． Function Fl(b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
• B．Function Fl(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
• C．Function F1(b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
• D．Function Fl(b As Integer) If b Mod 2＜＞Then Return 0 Else Return 1 End If End Function

以下说法中正确的是______。

• A．任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器
• B．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
• C．任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器
• D．只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为(假设根结点在第1层)

• A．3
• B．4
• C．6
• D．7

无论什么控件，都有一个共同的属性，这个属性是 ______。

• A．Name
• B．Caption
• C．Text
• D．Font

下列不属于软件调试技术的是______。

• A．强行掉错法
• B．集成测试法
• C．回溯法
• D．原因排除法

要暂时关闭计时器，应将计时器的某个属性设置为False，这个属性是

• A．Visible
• B．Timer
• C．Enabled
• D．Interval

对线性表进行二分法查找，其前提条件是 ______ 。

• A．线性表以顺序方式存储，并已按关键码值排好序
• B．线性表以顺序方式存储，并已按关键码值的查找频率排好序
• C．线性表以链接方式存储，并已按关键码值排好序
• D．线性表以链接方式存储，并已按关键码值的查找频率排好序

下列操作不能向工程中添加窗体的是(  )。

• A．执行“工程”菜单中的“添加窗体”命令
• B．单击工具栏中的“添加窗体”按钮
• C．右击窗体，在弹出的菜单中选择“添加窗体”命令
• D．右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令

执行下列语句后整型变量a的值是______。  If(3-2)＞2 Then    a=10  Else If(10/2)=6 Then    a=20  Else    a=30  End If

• A．10
• B．20
• C．30
• D．不确定

假定有一个菜单项，名为Menultem，为了在运行时使该菜单项不可见，应使用的语句为（　　）。

• A.Menultem．Enabled=False
• B.MenuItem．Enabled=True
• C.MenuItem．Visible=True
• D.Menultem．Visible=Flase

下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是Private Sub Text1_Change ( )　　TextText=Str(28* Val(Text1．Text))　　End Sub

• A．将在文本框Text1输入的数字变为数值
• B．将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串
• C．只要Text1中的内容一改变，Text2中显示的圆周长也随之改变
• D．事件过程中的Val函数和Str函数使用错误，事件过程不能执行