[计算机类试卷]国家二级(VB)机试模拟试卷35及答案与解析.doc
《[计算机类试卷]国家二级(VB)机试模拟试卷35及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级(VB)机试模拟试卷35及答案与解析.doc(35页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级( VB)机试模拟试卷 35及答案与解析 一、选择题 1 在窗体上画一个名称为 Command1的命令按钮,然后编写如下程序代码: Dim x As Integer Private Sub MySub() Static x As Integer Dim y As Integer x = x + 10 y = y + 10 Print “x=“; x; “y=“; y; End Sub Private Sub Form_Load() x = 50 End Sub Private Sub Command1_Click() Call MySub MySub Print “x=“; x End
2、 Sub 程序运行时,单击 Command1,则在窗体上输出的结果是 ( A) x=10 y=10 x=60 y=10 x=60 ( B) x=60 y=10 x=70 y=10 x=70 ( C) x=60 y=10 x=70 y=10 x=50 ( D) x=10 y=10 x=20 y=10 x=50 2 在窗体上画个文本框(名称分别为 Text1和 Text2),一个命令按钮(名称为Command1)。并定义以下记录类型和变量: Private Type Teacher ID As Integer Name As String * 10 End Type Dim Teach As Te
3、acher 程序运行后,在 Text1中输入编号( ID),在 Text2中输入姓名( Name),然后单击命令按钮,则把两个文本框中的内容写入随机文件 d:f1.txt。以下能够正确实现上述功能的事件过程是 ( A) Private Sub Command1_Click() Open “d:f1.txt“ For Random As #1 Len = Len(Teach) Teach.ID = Val(Text1.Text) Teach.Name = Text2.Text Put #1, 1, Teach Close #1 End Sub ( B) Private Sub Command1_
4、Click() Open “d:f1.txt“ For Random As #1 Len = Len(Teach) Teach.ID = Val(Text1.Text) Teach.Name = Text2.Text Put #1, Teach.ID, Teach.Name Close #1 End Sub ( C) Private Sub Command1_Click() Open “d:f1.txt“ For Random As #1 Len = Len(Teach) Teach.ID = Val(Text1.Text) Teach.Name = Text2.Text Write #1,
5、1, Teach Close #1 End Sub ( D) Private Sub Command1_Click() Open “d:f1.txt“ For Random As #1 Len = Len(Teach) Teach.ID = Val(Text1.Text) Teach.Name = Text2.Text Write #1, Teach.ID, Teach.Name Close #1 End Sub 3 在窗体上画 2个名称分别为 Label1和 Label2的标签,然后编写如下程序代码: Sub S(L As Label, ByVal a As Integer) L.Capti
6、on = “1234“ a = a * a End Sub Private Sub Form_Load() Label1.Caption = “ABCD“ Label2.Caption = 10 End Sub Private Sub Form_Click() Dim a As Integer a = Val(Label2.Caption) S Label1, a Label2.Caption = a End Sub 运行程序,单击窗体,在两个标签中显示的内容分别是 ( A) ABCD和 10 ( B) 1234和 100 ( C) ABCD和 100 ( D) ABCD和 100 4 在窗体
7、上画一个名称为 Command1的命令按钮,一个名称为 Text1的文本框数组(含个文本框,下标从开始),然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For Each TextBox In Text1 Text1(i) = Text1(i).Index n = 10 * (n + Val(Text1(i).Text) i = i + 1 Next Print n End Sub 运行程序,单击命令按钮 Command1,则在窗体上的输出结果是 ( A) 0123 ( B) 123 ( C) 12
8、34 ( D) 1230 5 有如下通用过程: Function Fs(ByVal n As Long) As Long Dim k As Long k = 1 n = Abs(n) Do While n k = k * (n Mod 10) n = n 10 Loop Fs = k End Function 编写如下事件过程: Private Sub Form_Click() Dim a As Long Dim b As Long a = InputBox(“请输入一个数 “) a = CLng(A) b = Fs(A) Print b End Sub 程序运行后,单击窗体,在输入对话框中输
9、入 567,输出结果为 ( A) 56 ( B) 67 ( C) 210 ( D) 18 6 在窗体上画一个名称为 Command1的命令按 钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer, s As Integer s = 0 For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) a(i, j) = (i - 1) * 3 +
10、j If i = j Then s = s + a(i, j) End If Next j, i Print s End Sub 程序运行时,单击 Command1,则在窗体上输出的结果是 ( A) 15 ( B) 26 ( C) 34 ( D) 19 7 设某二叉树的后序序列为 CBA,中序序列为 ABC,则该二叉树的前序序列为 ( A) BCA ( B) CBA ( C) ABC ( D) CAB 8 下列叙述中正确的是 ( A)存储空间不连续的所有 链表一定是非线性结构 ( B)结点中有多个指针域的所有链表一定是非线性结构 ( C)能顺序存储的数据结构一定是线性结构 ( D)带链的栈与队
11、列是线性结构 9 算法时间复杂度的度量方法是 ( A)算法程序的长度 ( B)执行算法所需要的基本运算次数 ( C)执行算法所需要的所有运算次数 ( D)执行算法所需要的时间 10 设循环队列为 Q(1: m),初始状态为 front=rear=m。现经过一系列的入队与退队运算后, front=rear=1,则该循环队列中的元素个数为 ( A) 1 ( B) 2 ( C) m-1 ( D) 0或 m 11 计算机软件的构成是 ( A)源代码 ( B)程序和数据 ( C)程序和文档 ( D)程序、数据及相关文档 12 下面不属于软件设计阶段任务的是 ( A)软件的详细设计 ( B)软件的总体结构
12、设计 ( C)软件的需求分析 ( D)软件的数据设计 13 下面属于黑盒测试方法的是 ( A)边界值分析法 ( B)基本路径测试 ( C)条件覆盖 ( D)条件 -分支覆盖 14 下列叙述中正确的是 ( A)算法的效率只与问题的规模有关,而与数据的存储结构无关 ( B)算法的时 间复杂度是指执行算法所需要的计算工作量 ( C)数据的逻辑结构与存储结构是一一对应的 ( D)算法的时间复杂度与空间复杂度一定相关 15 下列叙述中正确的是 ( A)线性表链式存储结构的存储空间一般要少于顺序存储结构 ( B)线性表链式存储结构与顺序存储结构的存储空间都是连续的 ( C)线性表链式存储结构的存储空间可以
13、是连续的,也可以是不连续的 ( D)以上说法均错误 16 某二叉树共有 12个结点,其中叶子结点只有 1个。则该二叉树的深度为(根结点在第 1层) ( A) 3 ( B) 6 ( C) 8 ( D) 12 17 对长度为 n的线性表作快速排序,在最坏情况下,比较次数为 ( A) n ( B) n-1 ( C) n(n-1) ( D) n(n-1)/2 18 结构化程序设计中,下面对 goto语句使用描述正确的是 ( A)禁止使用 goto语句 ( B)使用 goto语句程序效率高 ( C)应避免滥用 goto语句 ( D)以上说法均错误 19 一般情况下,当对关系 R和 S进行自然连接时,要求
14、 R和 S含有一个或者多个共有的 ( A)记录 ( B)行 ( C)属性 ( D)元组 20 下列关于菜单项的描述中,错 误的是 ( A)菜单项不能响应 Click事件以外的其他事件 ( B)每个菜单项都可以被看作一个控件,具有相应的属性和事件 ( C)菜单项的索引号可以不连续 ( D)通过 Visible属性设置菜单项的有效性 21 对于某些控件,只要将其 Style属性设置为 1,则可以在该控件上使用 Picture属性显示图片。以下不具备这一使用规则的控件是 ( A)命令按钮 ( B)单选按钮 ( C)复选按钮 ( D)框架 22 编写如下程序: Private Sub Command1
15、_Click() Dim x As Integer, y As Integer x = 10 y = 20 Call fun1(x, y) Print x; y End Sub Private Function fun1(ByVal m As Integer, n As Integer) As Integer m = m * m n = n + n End Function 程序运行后,单击命令按钮 Comma ( A) 10 25 ( B) 10 40 ( C) 100 25 ( D) 100 40 23 编写如下程序: Private Sub Command1_Click() Dim x
16、As Integer, y As Integer x = 1: y = 1 Do y = x * y If y 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x 0 Print n 10 Mod 10; Print n Mod 10; n = n 100 Loop Print s End Sub 程序运行后,单击命令按钮 Command1,并输入数值 123456,则输出结果为 ( A) 6 5 4 3 2 1 ( B) 5 6 3 4 1 2 ( C) 6 4 2 5 3 1 ( D) 6 1 5 2 4 3 27 在
17、窗体上画一个名称为 Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() n 0 For i 0 To 10 X 2 * i 1 If X Mod 3 0 Then n n 1 Next i Print n End Sub 运行程序,单击命令按钮,则窗体上显示的是 ( )。 ( A) 1 ( B) 3 ( C) 5 ( D) 7 28 窗体上有名称为 Command1的命令按钮,名称分别为 Label1、 Label2、 Label3的标签。编写如下程序: Private x As Integer Private Sub Command1_C
18、lick() Static y As Integer Dim z As Integer n 5 z z n y y n x x y Label1 x Label2 y Label3 z End Sub 运行程序,连续 3次单击命令按钮后, 3个标签中分别显示的是 ( )。 ( A) 5 5 5 ( B) 15 10 5 ( C) 15 15 15 ( D) 30 15 5 29 命令按钮 Command1的事件过程如下: Private Sub Command1_Click() Dim arr(5, 5)As Integer Dim i As Integer, j As Integer For
19、 i 1 To 4 For j 2 To 4 arr(i, j) i j Next j Next i Print arr(1, 3) arr(3, 4) End Sub 执行上述过程,输出结果是 ( )。 ( A) 6 ( B) 7 ( C) 11 ( D) 12 30 现有程序如下: Option Base 1 Private Sub Form_Click() Dim x(5, 6)As Integer, y(5)As Integer For i 1 To 5 For j 1 To 6 x(i, j) Int(Rnd * 9 1) Next j Next i Call f(5, 6, x,
20、y) For i 1 To 5 Print y(i); Next i End Sub Sub f(m As Integer, n As Integer, a()As Integer, b()As Integer) For i 1 To m b(i) 0 For j 1 To n b(i) b(i) a(i, j) Next j Next i End Sub 关于上述程序,以下叙述中正确的是 ( )。 ( A)调用过程语句有错,参数不匹配 ( B)程序有错,数组下标越界 ( C) y数组中保存的是 x数组每行数据之和 ( D) x数组中数据的取值范围是 1 10 31 窗体上有一个名称为 Lab
21、el1的标签;一个名称为 Timer1的计时器,其 Enabled和 Interval属性分别为 True和 1000。编写如下程序: Dim n As Integer Private Sub Timer1_Timer() ch Chr(n Asc(“A“) Label1.Caption ch n n 1 n n Mod 4 End Sub 运行程序,将在标签中 ( )。 ( A)不停地依次显示字符 “A“、 “B“、 “C“、 “D“,直至窗体被关闭 ( B)依次显示字符 “A“、 “B“、 “C“、 “D“各一次 ( C)每隔 1秒显示字符 “A“一次 ( D)每隔 1秒依次显示 26个英
22、文字母中的一个 32 窗体上有一个名称为 Command1的命令按钮,一 个名称为 Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x Val(InputBox(“输入数据 “) Text1 Str(x fun(x) fun(x) End Sub Private Function fun(ByRef n As Integer) If n Mod 3 0 Then n n n Else n n * n End If fun n End Function 对于上 述程序,以下叙述中错误的是 ( )。 ( A)语句 fu
23、n n 有错,因为 n是整型, fun没有定义类型 ( B)运行程序,输入值为 5时,文本框中显示 655 ( C)运行程序,输入值为 6时,文本框中显示 42 ( D) ByRef表示参数按址传递 33 设工程文件中包名称分别为 Form1、 Form2的两个窗体,且 Form1的菜单属性设置如下: 窗体 Form1中的程序如下: Dim Flag As BooleanPrivate Sub Form_Load() Flag TrueEnd SubPrivate Sub mnu1_Click(index As Integer) If Index 1 Then If Flag True The
24、n Form2.show mnu1(1).Caption “隐藏窗体 2“ Flag False Else Form2.Hide mnu1(1).Caption “显示窗体 2“ Flag True End If End If If Index 2 Then EndEnd Sub关于上述程序,以下叙述中错误 的是 ( )。 ( A) Index属性的值可以用来区分控件数组元素 ( B) Index为 1的菜单项的标题可能会改变 ( C)两个名称均为 Mnu1的菜单项构成一个控件数组 ( D)语句 Form2.Hide将 Form2卸载 34 有如下程序: Private Sub Command
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 模拟 35 答案 解析 DOC
