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之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。

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

以下叙述不正确的是______。

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

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

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

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

下列程序段的执行结果为______。  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)

在窗体上画两个名称分别为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  程序运行后，单击命令按钮，在两个文本框中显示的值分别是

在窗体上画—今名称为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

下列程序段的执行结果为 

Dim t（10）  

For k=2 To 10 

t（k） =11 - k  

Next k 

x=6 

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

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

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

在窗体上面一个命令按钮(其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 = 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

有如下程序。

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

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

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

Private Sub Command1 Click（　　）

Dim arr(5)As Integer ．

For k=1 To 5

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

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

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

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

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

执行下面的程序后，输出的结果是　　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

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

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

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

 在窗体上画一个名称为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  程序运行后，单击命令按钮，在文本框中显示的值是

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

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

以下说法中正确的是______。

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

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

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

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

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

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

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

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

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