1、国家二级（ VB）机试模拟试卷 45及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的 （ B）顺序存储结构只针对线性结构，链式存储结构只针对非线性结构 （ C）顺序存储结构能存储有序表，链式存储结构不能存储有序表 （ D）链式存储结构比顺序存储结构节省存储空间 2 数据流图中带有箭头的线段表示的是 ( )。 （ A）控制流 （ B）事件驱动 （ C）模块调用 （ D）数据流 3 在软件开发中，需求分析阶段可以使 用的工具是 ( )。 （ A） N S图 （ B） DFD图 （ C） PAD图 （ D）程序流
2、程图 4 在面向对象方法中，不属于 “对象 “基本特点的是 ( )。 （ A）一致性 （ B）分类性 （ C）多态性 （ D）标识唯一性 5 一间宿舍可住多个学生，则实体宿舍和学生之间的联系是 ( )。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 6 在数据管理技术发展的三个阶段中，数据共享最好的是 ( )。 （ A）人工管理阶段 （ B）文件系统阶段 （ C）数据库系统阶段 （ D）三个阶 段相同 7 有三个关系 R、 S和 T如下： 由关系 R和 S通过运算得到关系 T，则所使用的运算为 ( )。 （ A）笛卡尔积 （ B）交 （ C）并 （ D）自然连接 8 以下不能
3、输出 “Program“的语句是 ( )。 （ A） Print Mid(“VBProgram“， 3， 7) （ B） Print Right(“VBProgram“， 7) （ C） Print Mid(“VBProgram“， 3) （ D） Print Left(“VBProgram“， 7) 9 以下叙述中错误的是 ( )。 （ A）在通用过程中，多个形式参数之间可以用逗号作为分隔符 （ B）在 Print方法中，多个输出项之间可以用逗号作为分隔符 （ C）在 Dim语句中，所定义的多个变量可以用逗号作为分隔符 （ D）当一行中有多个语句时，可以用逗号作为分隔符 10 设 a 4，
4、b 5， c 6，执行语句 Print a“XYz“ （ B） VisualBasic “ “ Then word = word & c Else List1.AddItem word ？ = “ End If Next List1.AddItem word End Sub 程序结束 参考答案 第 1个？处填入： st 第 2个？处填入： c 第 3个？处填入： word 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件， 设置计时器 Interval属性为 100， Enabled属性设置为False。 步骤 2：分析并编写程序代码。 程序
5、提供代码 Private Sub Timer1_Timer() P1.? P1.Left + 20 End Sub 程序结 束 参考答案 ？处填入： Left = 需要考生编写的程序 Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base
6、 1 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & “in5.dat“ For Input As #1 For k = 1 To 100 Input #1, a(k) Text1 = Text1 + Str(a(k) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num = 0 If Len(Text1.Text) =
7、 0 Then MsgBox “请先执行 “读数据 “功能！ “ Else 考生编写 (功能：生成存放素数的数组 b ) 注意：请务必将数组 b 的元素个数存入变量 num中。 以下程序段将 b 数组的内容显示在 Text2中 For i = 1 To num Text2.Text = Text2.Text + Str(b(i) + Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & “out5.dat“ For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案
