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

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和Command1，然后编写如下两个事件过程：

Private Sub Commandl_Click()

S$=InputBox(”请输入一个字符串”)

Textl．Text=S$

End Sub

Private Sub Textl Change()

Label1．Caption=UCase(Mid(Text1．Text，7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。

在窗体上画一个命令按钮，然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub Command1_Click()      Dim MaxSize, NextChar, MyChar      Open “d:\temp\female. txt” For Input As #1      MaxSize = LOF(1)      For NextChar = MaxSize To 1 Step -1         Seek #1, NextChar          MyChar = Input(1, # 1)         Next NextChar      Print EOF(1)      Close #1End Sub程序运行后,单击命令按钮,其输出结果为______。

• A.True
• B.False
• C.0
• D.Null

要使菜单项MenuOne在程序运行时失效，使用的语句是(  )。

• A．MenuOne.Visible=True
• B．MenuOne.Visible=False
• C．MenuOne.Enabled=True
• D．MenuOne.Enabled=False

以下事件过程可以将打开对话框的标题改为"新时代"的是

• A．Private Sub Command2_Click() CommonDialog1.DialogTitle="新时代" CommonDialog1.ShowOpen End Sub
• B．Private Sub Command2_Click() CommonDialog1.DialogTitle="新时代" CommonDialog1.ShowFont End Sub
• C．Private Sub Command2_Click() CommonDialog1.DialogTitle="新时代" CommonDialog1.Show End Sub
• D．Private Sub Command2_Click() CommonDialog1.DialogTitle="新时代" CommonDialog1.ShowColor End Sub

若深度为5的完全二叉树的第5层有3个叶结点，则该二叉树一共有______ 个结点。

• A．15
• B．16
• B．16
• C．17
• D．18

软件需求分析时，常采用数据字典对数据流图中包含的所有元素进行定义，其定义的条目内容主要是______。

• A．数据流、数据存储、数据项和加T
• B．一般信息、名字、别名和描述
• C．数据类型、数据长度和结构
• D．数据取值范围、使用频率和方式

下列工具中为需求分析常用工具的是（　　）。

• A.PAD  
• B.PFD 
• C.N-S  
• D.DFD 

在窗体上画一个名称为Text1的文本框．然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图16-6所示。  以下能实现上述操作的程序段是______。

• A．Private Sub HScroll1_Change() Text1.Text=HScroll1. Value End Sub
• B．Private Sub HScroll1_Click() Text1. Text=HScroll1. Value End Sub
• C．Private Sub HScroll1_Change() Text1. Text=HScroll1. Caption End Sub
• D．Private Sub HScroll1_Click() Text1. Text=HScroll1. Caption End Sub

文件列表框控件的 ______属性用来确定在列表框中显示的文件类型。

• A．Path
• B．Pattern
• C．FileName
• D．List

设a=5，b=4，c=3，d=2，则表达式3＞2*b Or a=c And b＜＞c Or c＞d的值是

• A．1
• B．True
• C．False
• D．2

下列不能打开菜单编辑器的操作是(  )。

• A．按Ctrl+E
• B．单击工具栏中的“菜单编辑器”按钮
• C．执行“工具”菜单中的“菜单编辑器”命令
• D．按Shift+Alt+M

关于变量作用域，下列叙述中正确的是（　　）。

• A. 在窗体的Form. Load事件过程中定义的变量是全局变量
• B. 局部变量的作用域可以超出所定义的过程
• C. 在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但j作用域只限于该过程
• D. 在调用过程中，所有局部变量被系统初始化为0或空字符串

下面有关标准模块的叙述中，错误的是

• A．标准模块不完全由代码组成，还可以有窗体
• B．标准模块中的Private过程不能被工程中的其他模块调用
• C．标准模块的文件扩展名为．bas
• D．标准模块中的全局变量可以被工程中的任何模块引用

下列不能扫开菜单编辑器的操作是（　　）。

• A.按“Ctrl+E”组合键
• B.单击工具栏中的“菜单编辑器”按钮
• C.执行“工具”菜单中的“菜单编辑器”命令
• D.按“Shift+AIt+M”组合键

设a="Microsoft VisualBasic"，则以下使变量b的值为Visual Basic的语句是(  )。

• A．b=Left(a,10)
• B．b=Mid(a,10)
• C．b=Right(a,10)
• D．b=Mid(a,11,10)

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：  Private Sub func(L As label，ByVal a As Integer)    L.Caption ="1234"    a=a*a  End Sub  Private Sub Form_Load()    Label1.Caption="ABCD"    Label2.Caption=10  End Sub  Private Sub Command1_Click()    a=Val(Label2.Caption)    Call func(Label1，A)Label2.Caption=a  End Sub  程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

• A．ABCD和10
• B．1234和100
• C．ABCD和100
• D．1234和10

编写如下通用过程：    Sub Proc(x As Single, y As Single)       t = x       x = t/y       y = t Mod y    End Sub  在窗体上画一个命令按钮，然后编写如下事件过程：    Private Sub Command1_Click ()       Dim a As Single       Dim b As Single       a = 5       b = 4       Proc a, b       Print a, b    End Sub  程序运行后，如果单击命令按钮，则输出结果为

• A．5 4
• B．1.25 1
• C．4 5
• D．1.25 5

以下控件可作为其他控件容器的是

• A．PictureBox和Image
• B．PictureBox和Frame
• C．Frame和ListBox
• D．Image和Data

软件测试是保证软件质量的重要措施，它的实施应该是在______。

• A．程序编码阶段
• B．软件定义阶段
• C．软件开发阶段
• D．软件维护阶段

软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是

• A．编辑软件
• B．操作系统
• C．教务管理系统
• D．浏览器

使用Do While循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是

• A．Open "c:\File1．txt" For Input As #1 Do While Not EOF() Line Input #1， strLine Loop
• B．Open "c:\File1．txt" For Input As#1 Do While Not EOF(#1) Line Input #1， strLine Loop
• C．FileNo=FreeFile Open FileNo For Input As #1 Do While Not EOF(FileNo) Line Input #1， strLine Loop
• D．FileNo=FreeFile Open FileNo For Input As #1 DoWhile Not EOF(#FileNo) Line Input #1， strLine Loop

在Visual Basic中，下列运算符中优先级最高的是______。

• A．*
• B．\
• C．＜
• D．Not

下列叙述中正确的是

• A．程序执行的效率与数据的存储结构密切相关
• B．程序执行的效率只取决于程序的控制结构
• C．程序执行的效率只取决于所处理的数据量
• D．以上3种说法都不对

在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为  For i=1 To 3    For j=1 To 3     For k=1 To 2      x=x+3  Next k，j，i  Text1.Text=str(x)

• A．21
• B．42
• C．54
• D．72

下列关于栈的描述正确的是______。

• A.在栈中只能插入元素而不能删除元素
• B.在栈中只能删除元素而不能插入元素
• C.栈是特殊的线性表，只能在一端插入或删除元素
• D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

以下语句用于打开一个顺序文件Open"C:\MyFile.txt"For OutPut，但是该语句的一个重要错误是没有

• A．指定打开方式
• B．指定文件号
• C．指定打开文件名
• D．指定文件类型

语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(  )。

• A.36
• B.1
• C.-1
• D.-72

在窗体上有若干控件，其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。

• A．TabIndex
• B．TabStop
• C．Enabled
• D．Visible

下列有关数据库的描述，正确的是______。

• A．数据库是一个DBF文件
• B．数据库是一个关系
• C．数据库是一个结构化的数据集合
• D．数据库是一组文件

下列叙述中正确的是(  )。

• A．线性链表的各元素在存储空间中的位置必须是连续的
• B．线性链表的头元素一定存储在其他元素的前面
• C．线性链表中的各元素在存储空间中的位置不一定是连续的，但表头元素一定存储在其他元素的前面
• D．线性链表中的各元素在存储空间中的位置不一定是连续的，且各元素的存储顺序也是任意的

下列程序段的执行结果为______。  A="abcd"  B="bcdc"  E=Right(A,3)  F=Mid(B,2,3)  If E＜FThen PrintE+F Else Ptint F+E

• A．cdebcd
• B．cdd
• C．cdcd
• D．bcdcde

用下列语句定义数组的元素个数是(  )。  Option Base 1  Dim Arr5(0 to 6，0 to 5)As Integer

• A．42
• B．30
• C．37
• D．36

对于白箱(盒)测试用例的各设计准则，下列叙述中正确的是______。

• A．分支覆盖准则比语句覆盖准则严密
• B．条件覆盖要比分支覆盖优越，因此，条件覆盖能完全满足分支覆盖
• C．组合条件覆盖准则既能满足分支覆盖准则，也能满足条件覆盖准则。因此，组合条件覆盖准则是一种完全测试
• D．上述说法都不对

以下______不是队列的基本操作。

• A．从队尾插入一个新元素
• B．从队列中删除第i个结点
• C．判断一个队列是否为空
• D．读取对头元素的值

函数过程Fun1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。  Function Fun1(b As Integer)  if______Then  Fun1=0  Else  Fun1=1  End If  End Function  使该功能完整，应在空行处填入以下哪条语句

• A．b Mod 2 ＜ # 0
• B．b Mod 2=0
• C．b/2=1
• D．b\2=0

下列程序段的输出结果是(  )。

Dim M(5,5),S(5)

For i=1 To 5

S(i)=0

For j=1 To 5

M(i,j)=i+j

S(i)=S(i)+M(i,j)

Next j

Next i

For Each x In S

Print x;

Next x

• A．20 23 24 35 40
• B．20 25 30 35 40
• C．20 23 25 35 40
• D．20 25 35 40 45

用什么语句可以选择指定的表项或取消已选择的表项？（　　）。

• A.列表框.Selected（索引值） 
• B.列表框名.Selected（索引值） =True|False 
• C.列表框.Selected 
• D.列表框名.Selected＝True|False