1、国家二级（ VB）机试模拟试卷 43及答案与解析 一、选择题 1 设窗体上有 2个直线控件 Line1和 Line2，若使两条直线相连接，需满足的条件是 ( )。 （ A） Line1.X1 Line2.X2 且 Line1.Y1 Line2.Y2 （ B） Line1.X1 Line2.Y1 且 Line1.Y1 Line2.X1 （ C） Line1.X2 Line2.X1 且 Line1.Y1 Line2.Y2 （ D） Line1.X2 Line2.X1 且 Line1.Y2 Line2.Y2 2 设在窗体 上有一个名称为 Check1的复选框数组，并有以下事件过程： Private
2、Sub Check1_Click(Index As Integer) End Sub 则下面叙述中错误的是 ( )。 （ A）单击数组中任何复选框都会调用此事件过程 （ B）参数 Index的值等于单击数组中某个复选框的 Index属性的值 （ C）上面的过程是数组中第 1个复选框的事件过程 （ D）从过程的首部 (即第 1行 )无法确定数组中复选框的个数 3 下面列表框属性中，是数组的是 ( )。 （ A） ListCount （ B） Selected （ C） ListIndex （ D） MultiSelect 4 如果要在窗体上使用 2组单选按钮，每组都可以有一个被选中，则应该做的是
3、( )。 （ A）把 1组单选按钮画在窗体的左边，另 1组画在右边 （ B）先画 2组单选按钮，再画 2个框架控件把 2组单选按钮分别框起来 （ C）先画 2个框架控件，再把 2组单选按钮分别画在不同的框架中 （ D）因为 1个窗体中只有 1个单选按钮可以被选中，所以需要使用 2个窗体 5 窗体上有一个 Text1文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii KeyAscii 3 End Sub 程序运行时，在文本框中输入字符 “A“，则在文本框中实际显示的是 ( )。 （ A） A （ B）
4、B （ C） C （ D） D 6 窗体上有一个名称为 Text1的文本框，一个名称为 Command1的命令按钮。以下程序的功能是从顺序文件中读取数据： Private Sub Command1_Click() Dim s1 As String， s2 As String Open “c： d4.dat“ For Append As #3 Line Input #3， s1 Line Input #3， s2 Text1.Text s1 s2 Close End Sub 该程序运行时有错误，应该进行的修改是 ( )。 （ A）将 Open语句中的 For Append改为 For Input
5、 （ B）将 Line Input改为 Line （ C）将两条 Line Input语句合并为 Line Input #3， s1， s2 （ D）将 Close语句改为 Close #3 7 设有如下事件过程： Private Sub Command1_Click() For i 1 To 5 j i Do Print “*“ j j 1 Loop Until j 0 Next i End Sub 运行程序，输出 “*“的个数是 ( )。 （ A） 5 （ B） 15 （ C） 20 （ D） 25 8 设有如下事件过程： Private Sub Command1_Click() Dim
6、a a Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x 0 n UBound(a) For i 0 To n m 0 For j 0 To n If a(i) a(j)Then m m 1 End If Next j If mx Then x m： b a(i) Next i Print b End Sub 运行程序，输出是 ( )。 （ A） 2 （ B） 3 （ C） 5 （ D） 9 9 设窗体上有 2个文本框 Text1和 Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPre
7、ss(KeyAscii As Integer) If “A“ y x x y Loop fun x End Function 程序运行时的输出结果是 ( )。 （ A） 4 0 1 0 3 0 0 4 0 （ B） 0 3 3 5 1 3 5 1 2 （ C） 9 5 3 5 7 2 4 7 2 （ D） 9 3 3 5 7 3 5 7 2 11 设有下面的语句： Print IIf(x0， 1， IIf(x0 Then x 1 ElseIf x0 Then Print 1 ElseIf x0 Print 1 Case Is0 Then If x0 Then Print 1 ElseIf x0
8、 Then ch$ List1.List(n) List1.List(n) List1.List(n 1) List1.List(n 1) ch End If End Sub 程序运行时，选中 1个列表项，然后单击 Command1按钮，则产生的结果是( )。 （ A）若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 （ B）选中的列表项与它前面的列表项互换位置 （ C）若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置 （ D）选中的列表项与它后面的列表项互换位置 15 设有如下函数： Function DelSpace(ch As String)As In
9、teger Dim n%， st$， c$ st “ n 0 For k 1 To Len(ch) c Mid(ch， k， 1) If c b And Not (c d) Or d c的值是 （ A） 1 （ B） 0 （ C） True （ D） False 33 设在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码： Public a As Integer Private b As Integer 关于上述代码，以下叙述中错误的是
10、（ A）变量 x的作用域是整个工程 （ B）变量 y的作用域是 Form_Load过程 （ C）变量 a的作用域是整个工程 （ D）变量 b的作用域是整个标准模块 34 以下关于文件的叙述中，错误的是 （ A）顺序文件有多种打开文件的方式 （ B）读取顺序文件的记录时，只能从头至尾逐记录进行 （ C）顺序文件中各记录的长度是固定的 （ D）随机文件一般占用空间比较小 35 以下不属于 VB控件的是 （ A）框架 （ B）点 （ C）直线 （ D）形状 36 窗体上有一个名称为 Command1的命令按钮，一个名称为 Text1的文本框，其Text属性值为 “VB Programming“。运行
11、程序后，选中其中的 “VB“，并执行如下事件过程： Private Sub Command1_Click() Text1.SelText = “C+“ End Sub 则文本框中显示的内容为 （ A） VB （ B） VB Programming （ C）文本框被清空 （ D） C+ Programming 37 窗体上有一个名称为 VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的 Value增量值，应设置的属性是 （ A） LargeChange （ B） SmallChange （ C） Max （ D） Min 38 设窗体名称为 frmTest，为了在程序代码中将窗体的标题
12、改为 “等级考试 “，其代码应该是 （ A） frmTest.Caption = “等级考试 “ （ B） Form1.Caption = “等级考试 “ （ C） frmTest.Title = “等级考试 “ （ D） Form1.Title = “等级考试 “ 39 要将单选按钮 Opt1设为被选中，应设置的属性是 （ A） Value （ B） Selected （ C） Enabled （ D） SetFocus 40 窗体上有一个名称为 Combo1的组合框，为了引用 Combo1中最后一个列表项，应使用的表达式是 （ A） Combo1.List(ListCount) （ B）
13、Combo1.List(Combo1.ListCount - 1) （ C） Combo1.List(ListCount - 1) （ D） Combo1.List(Combo1.ListCount) 二、基本操作题 41 (1)在名称为 Form1的窗体上添加两个标签 (名称分别为 Labell和 Label2，标题分别为 “书名 ”和 “作者 ”)、两个文本框 (名称分别为 Text1和 Text2， Text属性均为空 )和一个命令按钮 (名称为 Command1，标题为 “显示 ”)，如图 1所示。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然
14、后单击命令按钮，则在窗体的标题栏上显示两个文本框中的内容，如图 2所示。要求程序中不得使用任何变量。 注意：存 盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个垂直滚动条 (名称为 VSeroll1)和一个水平滚动条 (名称为 HScmll1)，如图 1所示。在属性窗口中对两个滚动条设置如下属性： Min 1500 Max 6000 LargeChange 200 SmallChange 50 编写适当的事件过程。程序运行后，如果改变滚动条上的滚动框的位置，则可扩大或缩小窗体。程序运行后的窗体如图 2
15、所示。要求程序中不得使用任何变量。 注 意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，窗体中有两个图片框，名称分别为 P1、 P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为 C1，标题为 “发射 ”，还有一个计时器，名称为 Timer1。并给出了两个事件过程，但并不完整，要求： 设置 Timerl的属性，使其在初始状态下不计时； 设置 Timerl的属性，使其每隔 0 1秒调用 Timer事件过程一次； 去掉程序中的注释符，把程序中的
16、 ?改为正确的内容，使得在运行时单击 “发射 ”按钮，则航天飞机每隔 0 1秒向上移动一次，当到达 P2的下方时停止移动，如图所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，运行情况如图所示。程序的功能是计算下列表达式的值： z=(x+2)2+(x+3)3+(x+4)4+(x+N)N 其中 N和 x的值通过键盘分别输入到文本框 Text1、 Text2中。之后如果单击标题为 “计算 ”、名称为 Command1的命令按钮，则计算表达式的值 z，并将计算结果显示在名称为 Labell的标签中。 在给出的窗体文件中已经
17、添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用 运算符，而应使用函数 xn进行幂运算。程序至少运行一次，按照下图输入数据，使 X=10， N=5，单击 “计算 ”按钮，计算 z的值，并将结果显示在标签 Labell中，否则没有成绩。最后，程序按原文件名存盘。 四、综合应用题 43 在考生文件夹下有一个工程文件 sjt5 vbp，相应的窗体文件为 sjt5 frm，此外还有一个名为 datain txt的文本文件，其内容如下： 32 43 76 58 28 12 98 57 31 42 53
18、64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后，单击窗体，将把文件datain txt中的数据输入二维数组 Mat中，并且按 5行 5列的矩阵形式显示在窗体上，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并 能正确运行。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改的文件按文件名存盘。国家二级（ VB）机试模拟试卷 43答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 直线控件的 X
19、1、 Y1和 X2、 Y2 属性分别表示直线两个端点的坐标，即 (X1， Y1)和 (X2， Y2)。如果要使两条直线相连，显然这两条直线的某一端点的坐标相同才行。因此本题需要 Line1.X1 Line2.X1且 Line1.Y1 Line2.Y1，或 Line1.X1 Line2.X2 且 Line1.Y1 Line2.Y2，或 Line1.X2 Line2.X1且Line1.Y2 Line2.Y1，或 Line1.X2 Line2.X2 且 Line1.Y2 Line2.Y2。因此 A选项正确。 2 【 正确答案】 C 【试题解析】 控件数组具有相同的名称，它们以 Index属性值作为数
20、组元素的下标，以此来区别控件数组的各个成员。本题中，单击复选框数组中的任何一个都会调用同一个单击事件过程，因此 C选项叙述有误。在单击事件过程参数中，Index参数即是该复选框的 Index属性值。由于控件数组使用具有相同的名称且有相同的单击事件过程，因此从过程的首部无法确定数组中的复选框的个数。 3 【正确答案】 B 【试题解析】 在列表框控件中， Selected 属性是一个数组，各个元素的值为 True或 False，每个元素与列表框中的一项相对应，当元素值为 True时表明选择了该项，如为 False表示未选择。 ListCount属性值是一个数组，它列出列表框中表项的数量； List
21、Index 属性值表示已选中的表项的位置，表项位置由索引值指定，第一项索引值为 0，第二项为 1，以此类推； MultiSelect属性用来设置一次可以选择的表项是一项、多项、指定范围。 4 【正确答案】 C 【试题解析】 框架用于将窗体上的对象分组。使用两个框架就可以设置两组单选按钮，使每组都可以有一个被选中。必须先画框架，然后在框架内画出 需要成为一组的控件，才能使框架内的控件成为一个事件。如果在框架外画一个控件，然后把它拖到框架内，则该控件不是框架的一部分，移动框架时，该控件也不会跟着移动。 5 【正确答案】 D 【试题解析】 KeyPress 事件执行时，其中的 KeyAscii 参数
22、是所按键的 ASCII码，按下 “A“键， KeyAscii 的值为 65，在过程中 65 3 68，即 A字符后面的第 3个字符的 ASCII码值，即字符 “D“，因此在文本框中回显 “D“。 6 【正确答案】 A 【试题解析】 文件打开方式中的 Append意味着 打开的文件是顺序输出方式，也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此 Open “c：d4.dat“ For Append As #3 应该改为 Open “c： d4.dat“ For Input As #3。所以 A选项正确。 Clsoe语句中的文件号可以省略，这时会关闭所有打开的文件。 7 【正确答案】
23、B 【试题解析】 i 1时，输出 1个 *， i 2时，输出 2个 *， i 3时，输出 3个 *， i 4时输出 4个 *， i 5时输出 5个 *，因此总共输出 *的个数是 1 2 3 4 515。 8 【正确答案】 B 【试题解析】 本题程序中内层 For循环是统计具有相同值元素的个数，外层循环的功能则是，对数组中的所有元素进行统计，找出第 1个具有相同值的元素个数最多的那个元素值。数组组中元素值为 3的元素有 5个，元素值为 5的元素有 5个，元素值为 6的元素为 3个，元素值为 2的元素有 1个，元素值为 4的元素有 1个，元素值为 9的元素有 1个。因此第 1个具有相同元素值的最多
24、个的元素值是3。 9 【正确答案】 A 【试题解析】 KeyPress 事件的参数 KeyAscii 为所按键的 ASCII 码， Chr函数把这个 ASCII码转换为对应的字符，回车键的 ASCII码值是 13。程序中 KeyPress过程的功能是统计 Text1文本框中输入的字符串中 A Z之间字母的个数，按回车键后把个数值显示在 Text2文本框中。在 Text1文本框中输入 “Visual Basic 6.0“，其中 A Z的字母有 2个，按回车键后， Text2文本框中将会显示 2。 10 【正确答案】 B 【试题解析】 数组默认下标为 0，因此数组 a中的元素 a(0) 12， a
25、(1) 3， a(2) 8， a(3) 5， a(4) 10， a(5) 3， a(6) 5， a(7) 9， a(8) 2， a(9) 4。 k 1时， fun(a(k 1)， a(k)即 fun(a(0)， a(1)，即 fun(12,3)，过程中 x x y 12 3 9 3 6 3 3 3 0，函数返回 0； k 2时， fun(a(k 1)， a(k)即 fun(a(1)， a(2)，即 fun(3,8)， x y不成立，函数直接返回 3； k 3时， fun(a(k 1)， a(k)即 fun(a(2)， a(3)，即 fun(8,5)，过程中 x x y 85 3，函数返回 3；
26、 k 4时， fun(a(k 1)， a(k)即 fun(a(3)， a(4)，即 fun(5,10)， x y不成立，函数直接返回 5； k 5时， fun(a(k 1)， a(k)即 fun(a(4)， a(5)，即 fun(10,3)，过程中 x x y 10 3 7 3 4 3 1，函数返回 1； k 6时， fun(a(k 1)， a(k)即 fun(a(5)， a(6)，即 fun(3,5)， x y不成立，函数直接返回 3； k 7时， fun(a(k 1)， a(k)即 fun(a(6)， a(7)，即 fun(5,9)， x y不成立，函数直接返回 5； k 8时， fun(
27、a(k 1)， a(k)即 fun(a(7)， a(8)，即 fun(9,2)，过程中 x x y 92 7 2 5 2 3 2 1，函数返回 1； k 9时， fun(a(k 1)， a(k)即 fun(a(8)， a(9)，即 fun(2,4)， x y不成立，函数直接返回 2； 因此程序输出 0 3 3 5 1 3 5 1 2 。 11 【正确答案】 D 【试题解析】 IIF函数可用来执行简单的条件判断操作，它是 IfThenElse 结构的简写版本，格式如下： Result IIf(条件 ， True部分， Flase部分 ) 因此 Print IIf(x0,1， IIf(x0时输出 1， x不大于 0时，如果 x P2.Top P2.? Then P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height Else Timer1.Enabled = ? End If End Sub 程序结束 参考 第 1个？处填入： True
