[计算机类试卷]国家二级（VB）机试模拟试卷54及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 54及答案与解析 一、选择题 1 下列关于数据库设计的叙述中，正确的是 ( )。 （ A）在需求分析阶段建立数据字典 （ B）在概念设计阶段建立数据字典 （ C）在逻辑设计阶段建立数据字典 （ D）在物理设计阶段建立数据字典 2 数据库系统的三级模式不包括 ( )。 （ A）概念模式 （ B）内模式 （ C）外模式 （ D）数据模式 3 有三个关系 R， S和 T如下：则由关系 R和 S得到关系 T的操作是 ( )。（ A）自然连接 （ B）交 （ C）投影 （ D）并 4 下列选项中属于面向对象设计方法主要特征的是 ( )。 （ A）继承 （ B）自顶向下 （

2、 C）模块化 （ D）逐步求精 5 以下合法的 VB变量名是 ( )。 （ A） #_1 （ B） 123_a （ C） string （ D） x_123 6 以下关于 VB的叙述中，错误的是 ( )。 （ A） VB采用事件驱动方式运行 （ B） VB既能以解释方式运行，也能以编译方式运行 （ C） VB程序代码中，过程的书写顺序与执行顺序无关 （ D） VB中一个对象对应一个事件 7 有如下数据定义语句： Dim X， Y As Integer 以上语句表明 ( )。 （ A） X、 Y均是整型变量 （ B） X是整型变量， Y是变体类型变量 （ C） X是变体类型变量， Y是整型变量

3、（ D） X是整型变量， Y是字符型变量 8 以下关于控件数组的叙述中，正确的是 ( )。 （ A）数组中各个控件具有相同的名称 （ B）数组中可包含不同类型的控件 （ C）数组中各个控件具有相同的 Index 属性值 （ D）数组元素不同，可以响应的事件也不同 9 以下关于 VB文件的叙述中，错误的是 ( )。 （ A）标准模块文件不属于任何一个窗体 （ B）工程文件的扩展名为 .frm （ C）一个工程只有一个工程文件 （ D）一个工程可以有多个窗体文件 10 设 x为一整型变量，且情况语句的开始为： Select Case x，则不符合语法规则的Case子句是 ( )。 （ A） Cas

4、e Is20 （ B） Case 1 To 10 （ C） Case 050， Int(a3)， a Mod 2) 当 a 52时， x的值是 ( )。 （ A） 0 （ B） 1 （ C） 17 （ D） 18 12 设有如下数组定义语句： Dim a( 1 To 4， 3)As Integer 以下叙述中正确的是 ( )。 （ A） a数组有 18个数组元素 （ B） a数组有 20个数组元素 （ C） a数组有 24个数组元素 （ D）语法有错 13 以下叙述中错误的是 ( )。 （ A） Sub Main 是定义在标准模块中的特定过程 （ B）一个工程中只能有一个 Sub Main过程

5、 （ C） Sub Main 过程不能有返回值 （ D）当工程中含有 Sub Main过程时，工程执 行时一定最先执行该过程 14 关于随机文件，以下叙述中错误的是 ( )。 （ A）使用随机文件能节约空间 （ B）随机文件记录中，每个字段的长度是固定的 （ C）随机文件中，每个记录的长度相等 （ D） )随机文件的每个记录都有一个记录号 15 在名称为 Frame1的框架中，有两个名称分别为 op1、 op2的单选按钮，标题分别为 “单程 “、 “往返 “，如图所示。 以下叙述中，正确的是 ( )。 （ A）若仅把 Frame1的 Enabled属性设为 False，则 op1、 op2仍可

6、用 （ B）对于上图， op1.Value的值为 True （ C）对于上图，执行 Op1.Value False命令，则 “往返 “单选按钮被选中 （ D）对于上图，执行 Op1.Value 0命令，程序出错 16 以下能够设置控件焦点的方法是 ( )。 （ A） SetFocus （ B） GotFocus （ C） LostFocus （ D） TabStop 17 使用 Line控件在窗体上画一条从 (0,0)到 (600,700)的直线，则其相应属性的值应是 ( )。 （ A） X1 0， X2 600， Y1 0， Y2 700 （ B） Y1 0， Y2 600， X1 0， X

7、2 700 （ C） X1 0， X2 0， Y1 600， Y2 700 （ D） Y1 0， Y2 0， X1 600， X2 700 18 设有窗体的 Form_MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) If(Button And 3) 3 Then Print “检查按键 “ End If End Sub 关于上述过程，以下叙述中正确的是 ( )。 （ A）按下鼠标左键时，在窗体上显示 “检查按键 “ （ B）按下鼠

8、标右键时，在窗体上显示 “检查按键 “ （ C）同时按下鼠标左、右键时，在窗体上显示 “检查按键 “ （ D）不论做何种操作，窗体上都不会显示 19 窗体上有一个名称为 CD1的通用对话框，一个名称为 Command1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1.Filter “All File|*.*|Text File|*.txt|PPT|*.ppt“ CD1.FilterIndex 2 CD1.InitDir “C： “ CD1.FileName “default“ CD1.ShowSave End Sub 关于上述过程，以下叙述中正

9、确的是 ( )。 （ A）默认过滤器为 “*.ppt“ （ B）指定的初始目录为 “C： “ （ C）打开的文件对话框的标题为 “default“ （ D）上面事件过程实现保存文件的操作 20 以下关于窗体的叙述中，错误的是 ( )。 （ A） Hide方法能隐藏窗体，但窗体仍在内 存中 （ B）使用 Show方法显示窗体时，一定触发 Load事件 （ C）移动或放大窗体时，会触发 Paint事件 （ D）双击窗体时，会触发 DblClick事件 21 下列控件中，没有 Caption属性的是 ( )。 （ A）单选按钮 （ B）复选框 （ C）列表框 （ D）框架 22 将数据项 “Stud

10、ent“添加到名称为 List1的列表框中，并使其成为列表框第一项的语句为 ( )。 （ A） List1.AddItem “Student“， 0 （ B） List1.AddItem “Student“， 1 （ C） List1.AddItem 0， “Student“ （ D） List1.AddItem 1， “Student“ 23 下列针对框架控件的叙述中，错误的是 ( )。 （ A）框架是一个容器控件 （ B）框架也有 Click和 DblClick事件 （ C）框架也可以接受用户的输入 （ D）使用框架的主要目的是为了对控件进行分组 24 若窗体上有一个名为 Command1

11、的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5)As Integer For k 1 To 5 arr(k) k Next k prog arr() For k 1 To 5 Print arr(k)； Next k End Sub Sub prog(a()As Integer) n UBound(a) For i n To 2 step 1 For j 1 To n 1 if a(j) 0 Then count(n) count(n) 1 End If Next k m count(0) For k 1 To 25 If m10 T

12、hen Exit For Next Text1.Text Str(n) End Sub 程序运行后， 单击命令按钮，在文本框中显示的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 28 设有如下的程序段： n 0 For i 1 To 3 For j 1 To i For k j To 3 n n 1 Next k Next j Next i 执行上面的程序段后， n的值为 ( )。 （ A） 3 （ B） 21 （ C） 9 （ D） 14 29 在窗体上画一个名称为 Command1的命令按钮，一个名称为 Label1的标签，然后编写如下事件过程： Private

13、Sub Command1_Click() s 0 For i 1 To 15 x 2 * i 1 If x Mod 3 0 Then s s 1 Next i Label1.Caption s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是 ( )。 （ A） 1 （ B） 5 （ C） 27 （ D） 45 30 阅读程序： Private Sub Form_Click() x 50 For i 1 To 4 y InputBox(“请输入一个整数 “) y Val(y) If y Mod 5 0 Then a a y x y Else a a x End If Next i

14、 Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、 24、 35、 46，输出结果为( )。 （ A） 100 （ B） 50 （ C） 120 （ D） 70 31 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10， 10)As Integer Dim i As Integer， j As Integer For i 1 To 3 For j 2 To 4 array1(i， j) i j Next j Next i

15、 Text1.Text array1(2， 3) array1(3， 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 ( )。 （ A） 15 （ B） 14 （ C） 13 （ D） 12 32 在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() d 0 c 10 x Array(10， 12， 21， 32， 24) For i 1 To 5 If x(i)c Then d d x(i) c x(i) Else d d c End If Next i Print d

16、 End Sub 程 序运行后，如果单击命令按钮，则在窗体上输出的内容为 ( )。 （ A） 89 （ B） 99 （ C） 23 （ D） 77 33 假定有以下通用过程： Function Fun(n As Integer)As Integer x n * n Fun x 11 End Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer For i 1 To 2 y Fun(i) Print y； Next i End Sub 程序运行后，单击命令按钮，在窗

17、体上显示的内容是 ( )。 （ A） 1 3 （ B） 10 8 （ C） 10 7 （ D） 0 5 34 设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x 20 y 2 f x * y End Function 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x 10 y 5 y f(x) Print x； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ( )。 （

18、A） 10 5 （ B） 20 40 （ C） 20 5 （ D） 10 40 35 下列叙述中正确的是 ( )。 （ A）循环队列是队列的一种链式存储结构 （ B）循环队列是队列的一种顺序存储结构 （ C）循环队列是非线性结构 （ D）循环队列是一种逻辑结构 36 下列关于线性链表的叙 述中，正确的是 ( )。 （ A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 （ B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续 （ C）进行插入与删除时，不需要移动表中的元素 （ D）以上说法均不正确 37 一棵二叉树共有 25个结点，其中 5个是叶子结点，则

19、度为 1的结点数为( )。 （ A） 16 （ B） 10 （ C） 6 （ D） 4 38 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是 ( )。 （ A）外模式 （ B）内模式 （ C）概 念模式 （ D）逻辑模式 39 在满足实体完整性约束的条件下 ( )。 （ A）一个关系中应该有一个或多个候选关键字 （ B）一个关系中只能有一个候选关键字 （ C）一个关系中必须有多个候选关键字 （ D）一个关系中可以没有候选关键字 40 有三个关系 R、 S和 T如下：则由关系 R和 S得到关系 T的操作是 ( )。（ A）自然连接 （ B）交 （ C）除 （ D）并 二、基本操作题

20、41 (1)在名称为 Form1，标题为 “测试 ”的窗体上添加一个名称为 Frame1、标题为 “字体 ”的框架。在框架内再添加 两个名称分别为 Opt1和 Opt2、标题分别为 “隶书 ”和“宋体 ”的单选按钮。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上用名称为 shape1的形状控件添加一个直径为 1000(高、宽均为 1000)的圆；再添加两个标题分别是 “垂直线 ”和 “水平线 ”，名称分别为 Cornmand1、 Command2的命令按钮，如图所示。然后

21、编写两个命令按钮的 Click事件过程。程序运行后，如果单击 “垂直线 ”命令按 钮，则圆的内部用垂直线填充；如果单击 “水平线 ”命令按钮，则圆的内部用水平线填充。 注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。其功能是随机产生 20个 01000范围内的整数，放入一个数组中，然后输出这 20个整数中小于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Comm

22、andl，标题为 “输出小于 500的整数之和 ”)，即可求出这些整数的和，并显示在窗体上 (如图所示 )。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个文本框和一个命令按钮。当程序运行后，单击命令按钮，即可计算出 0一 100范围内所有偶数的平方和，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun中

23、实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间填入编写的若干语句。最后将修改后的文件按原文件名存盘。 四、综合应用题 43 在考生文件夹 中有一个工程文件 sjt5 vbp。该程序的功能是：分别统计 77数组四周元素之和及四周元素中能够被 7整除的元素的个数，并将统计结果在相应的标签中显示。请仔细阅读已有程序，然后在标出的位置编写适当的程序，以实现上述的功能。 要求：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名进行

24、存盘。 国家二级（ VB）机试模拟试卷 54答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 数据字典是在 需求分析阶段建立，在数据库设计过程中不断修改、充实和完善的。 2 【正确答案】 D 【试题解析】 数据库系统的三级模式是概念模式、外模式和内模式，所以选择D。 3 【正确答案】 A 【试题解析】 自然连接是一种特殊的等值连接，它要求两个关系中进行比较的分量必须是相同的属性组，并且在结果中把重复的属性列去掉，所以根据 T 中元组可以判断 R和 S做的是自然连接操作。 4 【正确答案】 A 【试题解析】 面向对象基本方法的基本概念有对象、类和实例、消息、继承与多态性，所以选择 A。

25、 5 【正确答案】 D 【试题解析】 VB 中变量的命名规则为： 必须以字母或汉字开头 由字母、汉字、数字或下划线组成 不能使用 VB已经占用的关键字。 #_1中 #是类型符号，变量名中不能用 VB 保留符号。故不合法。 123_a以数字开头不合法。 string是VB 的关键字，也不合法。故 D选项正确。 6 【正确答案】 D 【试题解析】 VB 中一个对象可以对应一个或多个事件，事件可由用户或系统触发，触发后执行相应的事件过程。不过，不一定一个对象的所有事件过程都执行，响应哪个事件过程就执行哪个。故 D选项错误。 7 【正确答案】 C 【试题解析】 用 Dim可同时定义多个变量，但变量要分

26、别声明其数据类型，如果不声明数据类型，默认是 Variant变体型变量。本题中，变量 X定义时没声明数据类型，所以为 Variant型变量，变量 Y是整型变量。故 C选项正确。 8 【正确答案】 A 【试题解析】 控件数组中各控件具有相同的名称，而且类型是相同的，但 Index属性值不同。数组中各控件响应的事件是相同，用 Index属性值来区分每个控件。故 A选项正确， B、 C、 D选项错误。 9 【正确答案】 B 【试题解析 】 工程文件的扩展名为 .vbp，故 B 选项错误。 10 【正确答案】 C 【试题解析】 Select Case 语句中表达式的形式可以是：常量或变量 ；若干符合条

27、件的值用 “， “隔开；表达式 1 to 表达式 2 ； Is 关系表达式。 本题中选项 A、 B和 D都符合语法规则。 选项 C中 Is关系表达式语法错误，它可以是 Is0 或 Is50， 17， 0),5250结果为 True，所以 IIF函数返回 17，则 x值为17，故选 C。 12 【正确答案】 C 13 【正确答案】 D 【试题解析】 VB 工程的启动对象有： Sub Main 过程 (在标准模块中定义 )、窗体(在多个窗体可选一个窗体启动 )，我们可以通过在 “工程属性 “对话框中设置启动对象来实现，设置哪个就用哪个启动。所以当工程中含有 Sub Main过程时，工程执行不一定最

28、先执行该过程，也可以通过窗体启动。故选项 D错误。 14 【正确答案】 A 【试题解析】 随机文件中的每一行是一条记录，每条记录的长度是固定的、相等的，并且都有一个记录号。 Open 语句中的 Len 用于指定记录长度，当指定长度小于记录实际长度时将产生错误；大于实际长度时，可以写入，但浪费空间，所以随机文件占据磁盘空间较大，故选项 A错误。 15 【正确答案】 B 【试题解析】 当 Frame1的 Enabled 属性设为 False后，框架 Frame1变为不可用，它里面放的两个单项按钮也就变为不可用，故 A选项错误； 当 Op1.Value为 False时， “单程 “和 “往返 “单项

29、按钮都处于未选中状态，故 C选项错误； Op1.Value的值为 0，即为 False，语句正确，没有程序错误，故 D选项说法错误； 根据图可只， “单程 “单选按钮处于选中状态， Op1.Value的值为 True，故 B选项正确。 16 【正确答案】 A 【试题解析】 GotFocus 和 LostFocus 是控件获得焦点和失去焦点时触发的两个事件； TabStop 是控件的属性； SetFocus 方法是控件设置、获得焦点的方法。故选 A。 17 【正确答案】 A 【试题解析】 X1、 Y1、 X2、 Y2属性是直线的起点、终点坐标。故选 A。 18 【正确答案】 C 19 【正确答案

30、】 B 【试题解析】 通用对话框的 FilterIndex 属性为 1时表示默认过滤器为第 1个文件类型，为 2时表示为第 2个文件类型。 InitDir属性值指定通用对话框的初始目录。 FileName属性表示对话框中默认的文件名。 ShowSave方法表示打开另存为对话框，执行保存文件的操作。 20 【正确答案】 B 【试题解析】 窗体的 Load 事件是把窗体装入工作区的事件，即装入内存，然后窗体才显示出来，使用 Hide方法可以使窗体隐藏，但窗体仍在内存中，使用Show方法能使窗体显示出来。当窗体被移动或放大时，或者窗口移动时覆盖了一个窗体时，触发 Paint事件。双击窗体时会触发窗体

31、的 DblClick 事件。 21 【正确答案】 C 【试题解析】 列表框控件没有 Caption属性。 22 【正确答案】 A 【试题解析】 List 控件的 AddItem方法的语法是： AddItem(String， index)。其中 index是列表框中列表项的索引值，第一项的索引值为 0。 23 【正确答案】 C 【试题解析】 框架是一个容器控件，用于将屏幕上的对象分组。框架常用的事件是 Click和 DblClick，它不接受用户输入，不能显示文本和图形，也不能与图形相连。 24 【正确答案】 B 【试题解析】 程序对数组元素赋初值为 1、 2、 3、 4、 5。 Ubound函

32、数返回数组可用的最大下标，过程 prog的功能是遍历数组对数组中的元素进行排序，由条件a(j)a(j 1)可知程序是将数组按从大到小排序。当用数组作为过程的参数时，使用的是 “传地址 “方式，因此程序输出的是排序后的数组元素值，即 5、 4、 3、 2、1。 25 【正确答案】 D 【试题解析】 根据题中的程序代码可知， ch 为输入字符串的大写状态，第一个For循环是依次取出字母， n为取出字母与 “A“字符的 ASCII码差值，然后再赋给数组 count()；第二个 For循环是找出数组 count()中的最小值，因此，最后窗体上输出的结果为 3，即选项 D。 26 【正确答案】 C 【试

33、题解析】 默认情况下， InputBox 的返回值是一个字符串，因此程序中 a“123“， b “456“， b a “456“ “123“ “456123“。因此 C选项正确。另 外，使用字符连接运算符 “ “时，如果连接的是字符串和数值，可根据返回值类型判断，若返回值类型为字符串，则它将数值转换成字符串后与另一字符串连接成新字符串返回；若返回值类型为数值，则它要求字符串中只能包含数字，而不能有其他字符，否则报 “类型不匹配 “的错误。 27 【正确答案】 B 【试题解析】 程序中 For循环的结束有两种情况，一种是循环完指定的次数，一种是达到一定的条件后直接退出循环。由于在循环体中循环变量

34、 i的值被修改： i i 3，因此，每次循环开始时 i的取值为 0,4,8， i为 8时执行 i i 3 11， n n 1 3，这时 i的值大于 10，退出 For循环，因此 For循环执行了 3次，即 n的值为 3。所以在文本框中会显示 3。 28 【正确答案】 D 【试题解析】 程序是三层的 For循环，内层的循环次数由外一层的循环变量的值决定。因此程序执行过程如下： i 1时，第二层循环执行 1次，第三层循环执行 3次， n 3 i 2时，第二层循环执行 2次，第三层循环执行 3次 2次， n 3 3 2 8 i 3时，第二层循环执行 3次，第三层循环执行 3次 2次 1次， n 8

35、3 21 14 因此答案为 D。 29 【 正确答案】 B 【试题解析】 s 变量用来计数，如果 x Mod 3 0即如果能被 3整除则计数增加1。程序中 x的取值为 1、 3、 5、 7、 9、 11、 13、 15、 17、 19、 21、 23、 25、 27、29，其中是 3的整数倍的数有 3、 9、 15、 21、 27共 5个，因此 s的值为 5。 30 【正确答案】 A 【试题解析】 程序的作用是输入的数如果是 5的倍数就累加，如果不是就与每次加 50或与上次是 5的倍数的那个数相累加。因此最终 a的值是 15 15 35 35100。 31 【正确答案】 D 【试题解析 】 程

36、序中通过 For循环为数组中部分元素赋值，没有赋值的元素值将默认为 0。循环中 i 2， j 3时， array1(i， j) i j，即 array1(2,3) 5， i 3， j 4时， array1(3,4) 3 4，即 array1(3,4) 7。 5 7 12，因此程序文本框中显示值是 12。 32 【正确答案】 C 【试题解析】 程序中 Option Base 1语句指定数组下标下限从 1开始。程序通过赋初值定义变量 x为含有 5个元素的数组，元素值依次为 10， 12， 21， 32， 24。 For循环的功能是把 这 5个元素中大于 10 且大于前一个元素的值累加到变量d 中，

37、如果小于等于 10 或前一个元素则从变量 d 减去 10或前一个元素的值。因此d 0 10 12 21 32 32 23。 33 【正确答案】 C 34 【正确答案】 B 【试题解析】 过程 f中形参变量 x没有指定传递方式，则默认按地址传递，会影响实参值。而变量 y在按钮事件过程和 f过程中都是局部变量只在本过程中起作用。因此执行 y f(x)后， x值在过程中被改变为 20，而 y被赋为过程返回值 40。因此程序窗体上会显示 20和 40。 35 【正确答案】 B 【试题解析】 在实际应用中，队列的顺序存储结构一般采用循环队列的形式。 36 【正确答案】 C 【试题解析】 一般来说，在线性

38、表的链式存储结构中，各数据结点的存储序号是不连续的，并且各结点在存储空间中的位置关系与逻辑关系也不一致。线性链表中数据的插入和删除都不需要移动表中的元素，只需改变结点的指针域即可。 37 【正确答案】 A 【试题解析】 根据二叉树的性质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为 2的结点多一个，所以本题中度为 2的结点是 5 1 4个，所以度为 1的结点 的个数是 25 5 4 16个。 38 【正确答案】 B 【试题解析】 数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数

39、据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 39 【正确答案】 A 【试题解析】 实体完整性约束要求关系的主键中属性值不能为空值，所以选择A。 40 【正确答案】 C 【试题解析】 如 果 T R/S，则 T称为 R除以 S 的商。在除运算中 T 的域由 R中那些不出现在 S 中的域所组成，对于 T 中的任一有序组，由它与关系 S 中每个有序组所构成的有序组均出现在关系 R中。所以本题选择 C。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属

40、性见表 3.120。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表 3.121和表 3.122。步 骤 2：编写程序代码。参考答案 Private Sub Command1_Click() Shape1.FillStyle = 3End SubPrivate Sub Command2_Click() Shape1.FillStyle = 2End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文

41、件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(20) As Integer Dim Sum As Integer Randomize For i = 1 To 20 arrN(i) = Int(Rnd * ？ ) Next i Sum = ? For i = 1 To 20 If ? Then Sum = ? End If Next i Print Sum End Sub 程序结束 参考答案 第 1个？处填入： 1000 第 2个？处填入： 0 第 3个？处填入： arrN(i)500

42、 第 4个？处填入： Sum+arrN(i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path & “ & “outtxt.txt“ For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun() End Function Private Sub Command1_Click() d = Fun() Text1.Text = d SaveData End Sub

43、程序结束 参考答案 Function Fun() Dim s As Long, i As Integer s = 0 For i = 0 To 100 If i Mod 2 = 0 Then s = s + i 2 End If Next i Fun = s End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(7, 7) As Integer Private Sub Form_Load() read End Sub Public

44、Sub read() Open App.Path & “Data5.txt“ For Input As #1 Do While Not EOF(1) For i = 1 To 7 For j = 1 To 7 Input #1, a(i, j) Next j Next i Loop Close #1 End Sub Private Sub Command1_Click() Dim Sum As Long 考生编写程序开始 考生编写程序结束 Save End Sub Public Sub Save() Open App.Path & “out5.txt“ For Output As #1 Pri

45、nt #1, lblFirst.Caption, lblSecond.Caption Close #1 End Sub 程序结束 参考答案 Dim i As Integer, n As Integer For i = 1 To 7 If a(i, 1) Mod 7 = 0 Then n = n + 1 ElseIf a(1, i) Mod 7 = 0 Then n = n + 1 ElseIf a(7, i) Mod 7 = 0 Then n = n + 1 ElseIf a(i, 7) Mod 7 = 0 Then n = n + 1 End If Next i lblFirst = n For i = 1 To 7 sum = sum + a(1, i) + a(i, 1) + a(7, i) + a(i, 7) Next sum = sum - a(1, 7) - a(1, 7) - a(7, 1) - a(7, 7) lblSecond = sum 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。