2013年3月全国计算机等级考试二级笔试试卷

Visual Basic语言程序设计

　　一、单选题。

　　(1)下列数据结构中，属于非线性结构的是

　　(2)在下列链表中，能够从任意一个结点出发直接访问到所有结点的是

　　(3)下列与栈结构有关联的是

　　(4)下面对软件特点描述不正确的是

　　(5)下面属于黑盒测试方法的是

　　(6)下面不属于软件设计阶段任务的是

　　(7)数据库管理系统是

　　(8)在E-R图中，表示实体的图元是

　　(9)有两个关系R和T 如下

　　R T

　　A B C A C

　　a 1 2 a 2

　　b 4 4 b 4

　　c 2 3 c 3

　　d 3 2 d 2

　　则由关系R得到关系T的操作是

　　(10)对图书进行编目时，图书有如下属性：ISBN书号，书名，作者，出版社，出版日期。能作为关键字的是

　　(11)下列关于Visual Basic标准模块的描述中，错误的是

　　(12)下列变量名中合法的是

　　(13)表达式 66 \ 8 mod 5 & "avg" 的值是

　　(14)下列能正确计算s=1+2+…… +100的程序段是

　　(15)设有如下程序：

　　Private Sub Form_Click()

　　a = 10: b = 20

　　x = a = b

　　Print x

　　End Sub

　　程序运行后，单击窗体，输出结果为

　　(16)在面向对象的程序设计中，对象可以执行的操作和可被对象识别的动作分别被称为

　　(17)下列说法中，错误的是

　　(18)设有如下程序：

　　Private Sub Command1_Click()

　　Dim i As Integer, j As Integer

　　For i = 1 To 10

　　i = i + j

　　j = j + 1

　　Next i

　　End Sub

　　程序运行后，单击命令按钮Command1，循环执行的次数为

　　(19)设有如下程序：

　　Private Sub Command1_Click()

　　Dim m As Integer, n As Integer

　　m = 1

　　For n = 1 To 5

　　m = m * n

　　If m > 15 Then

　　Exit For

　　Else

　　n = n + 1

　　End If

　　Next n

　　Print m; n

　　End Sub

　　程序运行后，单击命令按钮Command1，输出结果为

　　(20)设有如下程序：

　　Private Sub Form_Click()

　　Dim a, k As Integer

　　Dim n As Integer, s As Integer

　　a = Array(1, 1, 1, 2, 2, 2)

　　For k = LBound(a) To UBound(a)

　　n = n + k

　　s = s + a(k)

　　Next

　　Print n; s

　　End Sub

　　程序运行后，如果单击窗体，则在窗体上输出的内容为：

　　(21)窗体上有一个文本框，用于接收正整数。为保证输入数据的合法性　　(即正整数)，可以在该数据输入结束后准备继续其他操作时进行数据的合法性检查。为实现上述目的，应选用的事件是

　　(22)设有如下程序：

　　Private Sub Command1_Click()

　　Dim a(10) As Integer

　　Dim i As Integer, n As Integer

　　n = 6

　　For i = 1 To n

　　a(i) = i * i

　　Next i

　　For i = 1 To n / 2

　　temp = a(i)

　　a(i) = a(n - i)

　　a(n - i) = temp

　　Next i

　　For i = 1 To n

　　Print a(i);

　　Next

　　End Sub

　　程序运行后，单击命令按钮Command1，输出结果为

　　(23)工程中包含Form1、Form2两个窗体，Form1是启动窗体，两个窗体上都有名称为 Label1的标签和名称为Command1的命令按钮，窗体外观分别如图1、图2所示：

　　Form1的事件过程如下：

　　Private Sub Command1_Click()

　　Form2.Show

　　End Sub

　　Form2中的事件过程如下：

　　Private Sub Command1_Click()

　　Label1.Caption = Form1.Label1.Caption

　　End Sub

　　关于以下程序，下面叙述中错误的是

　　(24)窗体上有一个名称为Dir1的目录列表框，一个名称为File1的文件列表框。当改变目录列表框的内容时，文件列表框的内容应该与之同步改变。为实现两控件同步操作，应该使用的事件过程是

　　(25)列表框List1中没有数据项，现编制如下程序：

　　Private Sub Command1_Click()

　　For i = 1 To 6

　　List1.AddItem i

　　Next i

　　For i = 5 To 3 Step -1

　　List1.RemoveItem i

　　Next i

　　End Sub

　　程序运行后，单击命令按钮Command1，则列表框List1中的数据项为

　　(26)一个工程文件中含有窗体Form1、Form2和标准模块Model1。如果Form1的声明部分有语句Private x As Integer，且Model1中有语句Public y As Integer，则下列说法中，正确的是

　　(27)下列关于文件及其操作的描述中，正确的是

　　(28)下列操作说明中，错误的是

　　(29)在窗体上画一个名称为CD1的通用对话框，并编写如下程序：

　　Private Sub Command1_Click()

　　CD1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc"

　　CD1.FilterIndex = 2

　　CD1.Action = 2

　　End Sub

　　运行程序，并单击命令按钮Command1，下面描述中正确的是

　　(30)下列关于Visual Basic菜单的叙述中，错误的是

　　(31)下列关于Sub Main过程的描述中，错误的是

　　(32)设有如下程序：

　　Private Sub Command1_Click()

　　Dim i As Integer

　　str1 = InputBox("输入一个字符串")

　　str2 = ""

　　i = 0

　　Do While i < Len(str1) / 2

　　str2 = str2 + Mid(str1, i + 1, 1)

　　str2 = str2 + Mid(str1, Len(str1) - i, 1)

　　i = i + 1

　　Loop

　　Print str2

　　End Sub

　　程序运行后，单击命令按钮Command1，在弹出的输入对话框中输入“abcdef”，则输出结果为

　　(33)命令按钮Command1的单击事件过程如下：

　　Private Sub Command1_Click()

　　Dim x As String

　　Dim y As String

　　x = InputBox("输入字母", "输入")

　　y = IIf((ucase9x) <> "A", "表达式1", "表达式2")

　　Print y

　　End Sub

　　运行程序，单击命令按钮，在弹出的输入对话框中输入“ a”，则以下描述中正确的是

　　(34)设有如下程序：

　　Sub proc(x() As Integer)

　　Static i As Integer

　　Do

　　x(i) = x(i) + x(i + 1)

　　i = i + 1

　　Loop While i < 2

　　End Sub

　　Private Sub Command1_Click()

　　Dim a(5) As Integer, i As Integer

　　For i = 0 To 4

　　a(i) = i + 1

　　Next i

　　Call proc(a)

　　Call proc(a)

　　For i = 0 To 4

　　Print a(i);

　　Next i

　　End Sub

　　程序运行后，单击命令按钮Command1，输出结果为

　　(35)以下程序将随机产生n个两位整数，并使用冒泡法将它们按递增顺序排序后输出。

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a() As Integer

　　Dim i As Integer, j As Integer

　　Randomize

　　n = InputBox("输入数据个数")

　　ReDim a(n)

　　For i = 1 To n

　　a(i) = Int(Rnd * 90) + 10

　　Next i

　　For i = 1 To n - 1

　　For j = 1 To n - i

　　If a(j) < a(j - 1) Then

　　temp = a(j): a(j) = a(j - 1): a(j - 1) = temp

　　End If

　　Next j

　　Next i

　　For i = 1 To n

　　Print a(i);

　　Next i

　　End Sub

　　运行以上程序，发现有错误，需要对j循环的开始语句进行修改。以下正确的修改是

　　二、填空题。

　　(1)某二叉树有5个度为2的结点，则该二叉树中的叶子结点数为 。

　　(2)设一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为 。

　　(3)对模块独立性度量的两个定性标准是耦合性与内聚性。描述模块间互相连接的紧密程度的是 。

　　(4)“软件系统”的系统结构图如下图所示：该系统的最大扇出数是 。

　　(5)数据库设计包括概念设计、 和物理设计。

　　(6)设有如下程序：

　　Option Base 0

　　Private Sub Command1_Click()

　　Dim 或【arr】

　　Dim i As Integer

　　arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

　　For i = 0 To 3

　　Print arr

　　Next

　　End Sub

　　当运行程序，并单击命令按钮后，窗体上显示5 4 3 2。请填空，使程序能够完成此项功能。

　　(7)在窗体上建立一个有4个元素、名称为Label1的标签数组，下标从0开始，各元素的Caption属性值依次为“等”、“级”、“考”、“试”;再画一个名称为Timer1的计时器控件，其 Interval属性设为1000.窗体如图所示。

　　程序运行时，从左到右反复显示这4个字，但每次只显示1个。请填空，使程序实现上述功能。

　　Dim i As Integer

　　Private Sub Form_Load()

　　For i = 0 To 3

　　Label1(i).Visible = False

　　Next

　　End Sub

　　Private Sub Timer1_Timer()

　　If i 3 Then

　　Label1(i).Visible = True

　　If i = 0 Then

　　Label1(3).Visible =

　　Else

　　Label1 .Visible = False

　　End If

　　i = i + 1

　　Else

　　i = 0

　　End If

　　End Sub

　　(8)窗体上有一个名称为Combo1的组合框，其中已经添加了若干项目。程序运行时，单击Command1命令按钮，会把选中的项目从组合框中删除。请填空。

　　Private Sub Command1_Click()

　　Dim str As String

　　Dim i As Integer

　　str = RTrim( .Text)

　　If str > "" Then

　　For i = 0 To

　　If Combo1.List(i) = str Then Combo1.RemoveItem

　　Next i

　　End If

　　End Sub

　　(9)设命令按钮的单击事件过程如下：

　　Private Sub Command1_Click()

　　Open "e:\file1.txt" For As #1

　　Print #1, "Testing"

　　Close #1

　　Open "e:\file1.txt" For Append As #1

　　#1, "ABCDEF"

　　Close #1

　　End Sub

　　程序的功能是：建立一个名称为file1.txt的文件，写入字符串“Testing”，关闭文件后再次打开，再写入字符串“ABCDEF”。请填空使程序完整。