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

1、国家二级（ VB）机试模拟试卷 82及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）算法的效率只与问题的规模有关，而与数据的存储结构无关 （ B）算法的时间复杂度是指执行算法所需要的计算工作量 （ C）数据的逻辑结构与存储结构是一一对应的 （ D）算法的时间复杂度与空间复杂度一定相关 2 下列叙述中正确的是 ( )。 （ A）线性表链式存储结构的存储空间一般要少于顺序存储结构 （ B）线性表链式存储结构与顺序存储结构的存储空间都是连续的 （ C）线性表链式存储结构的存储空间 可以是连续的，也可以是不连续的 （ D）以上说法均错误 3 某二叉树共有 12个节点，其中叶子节点只

2、有 1个。则该二叉树的深度为 (根节点在第 1层 )( ) （ A） 3 （ B） 6 （ C） 8 （ D） 12 4 对长度为 n的线性表作快速排序，在最坏情况下，比较次数为 ( )。 （ A） n （ B） n-1 （ C） n(n-1) （ D） n(n-1) 2 5 结构化程序设计中，下面对 goto语句使用描述正确的是 ( )。 （ A）禁止使用 goto语句 （ B）使用 goto语句程序效率高 （ C）应避免滥用 goto语句 （ D）以上说法均错误 6 下面不属于软件测试实施步骤的是 ( )。 （ A）集成测试 （ B）回归测试 （ C）确认测试 （ D）单元测试 7 下面不

3、属于软件需求分析阶段主要工作的是 ( )。 （ A）需求变更申请 （ B）需求分析 （ C）需求评审 （ D）需求获取 8 一般情况下，当对关系 R和 S进行自然连接时，要求 R和 S含有一个或者多个共有的 ( )。 （ A）记录 （ B）行 （ C）属性 （ D）元组 9 有三个关系 R， S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）选择 （ B）差 （ C）交 （ D）并 10 有表示公司和职员及工作的三张表，职员可在多家公司兼职。其中公司 C(公司号，公司名，地址，注册资本，法人代表，员工数 )，职员 s(职员号，姓名，性别，年龄，学历 )，工作 W(公司号

4、，职员号，工资 )，则表 W的键 (码 )为 ( )。 （ A）公司号，职员号 （ B）职员号，工资 （ C）职员号 （ D）公司号，职员号，工资 11 以下叙述中，错误的是 ( )。 （ A）标准模块不属于任何一个窗体 （ B）工程文件的扩展 名为 vbg （ C）窗体文件的扩展名为 frm （ D）一个应用程序可以有多个窗体 12 下列说法中，错误的是 ( )。 （ A）变量名长度不能超过 127个字符 （ B）变量名的第一个字符必须是字母 （ C）变量名不能使用保留字 （ D）变量名只能由字母、数字和下画线组成 13 双精度浮点数的类型说明符为 ( )。 （ A） （ B） # （ C）

5、 & （ D） 14 能正确表述 “x为大于等于 5并且小于 20的数 ”的 Visual Basic表达式是 ( )。 （ A） x =5 And x 20 （ B） x =5 Or x 20 （ C） 5 =x 20 （ D） 5 =x =20 15 下列运算符中，优先级别最高的是 ( )。 （ A） Not （ B） Is （ C） & （ D） And 16 Visual Basic源程序的续行符为 ( )。 （ A）冒号 (： ) （ B）分号 (； ) （ C）下画线 (_) （ D）连字符 (-) 17 下面能够将某个变量声明为局部变量的是 ( )。 （ A）在窗体模块的声明部分

6、，用关键字 Static声明这个变量 （ B）在窗体模块的声明部 分，用关键字 Dim声明这个变量 （ C）在需要使用这个变量的过程中，用关键字 Private声明这个变量 （ D）在需要使用这个变量的过程中，用关键字 Public声明这个变量 18 为了读取数据，需打开顺序文件 “D： data5 txt”，以下正确的命令是 ( )。 （ A） Open D： data5 txt For Input As #1 （ B） Open“D： data5 txt“For Input As #2 （ C） Open D： data5 txt For Output As #1 （ D） Open“D：

7、 data5 txt“For Output As #2 19 下列关于菜单项的描述中，错误的是 ( )。 （ A）菜单项不能响应 Click事件以外的其他事件 （ B）每个菜单项都可以被看作一个控件，具有相应的属性和事件 （ C）菜单项的索引号可以不连续 （ D）通过 Visible属性设置菜单项的有效性 20 单击窗体，可以弹出如图所示对话框的程序为 ( )。（ A） Private Sub Form_Click() x=InputBox(“输入界面 “， “请输入数据 “， 20) End Sub （ B） Private Sub Form_Click() x=InputBox(“请输入数

8、据 “， “输入界面 “， 20) End Sub （ C） Private Sub Form_Click() x=InputBox(“输入界面 “， “请输入数据 “， 20) End Sub （ D） Private Sub Form_Click() x=InputBox(“请输入数据 “， “输入界面 “， 20) End Sub 21 下列关于标签的描述中，错 误的是 ( )。 （ A）标签可以响应 Click事件 （ B）标签不能响应 DblClick事件 （ C）为了使标签的 WordWrap属性起作用，必须将其 AutoSize属性设置为 True （ D）标签上显示的文本就是

9、Caption属性的值 22 窗体上有 1个名称为 Label1的标签； 1个名称为 List1且含有若干表项的列表框。为了使得单击 List1中某个表项时，在 Label1中相应地显示该表项，应使用的程序代码为 ( )。 （ A） Private Sub List1_Click() Label1 Caption=List1 Index End Sub （ B） Private Sub List1_Click() Label1 Caption=List1 ListCount End Sub （ C） Private Sub List1_Click() Label1 Caption=List1

10、Text End Sub （ D） Private Sub List1_Click() Label1 Caption=List1 Selected End Sub 23 下列不属于计时器控件属性的是 ( )。 （ A） Enabled （ B） Interval （ C） Name （ D） Timer 24 下列描述中，错误的是 ( )。 （ A）图片框控件和图像框控件都支持 Print方法 （ B）设计阶段，可以通过 Picture属性把图形文件装入图片框 （ C）运行期间，可以用 LoadPicture甬数把图形文件装入图片框 （ D）运行期间，可以用 LoadPieture函数删除图片

11、框中的图形 25 如果将命令按钮的访问键设置为 “D”，以下不 会触发命令按钮 Click事件的操作是 ( )。 （ A）在命令按钮上单击鼠标左键 （ B）在命令按钮上单击鼠标右键 （ C）将焦点移至命令按钮上，并按 Enter键 （ D）按组合键 Alt+D 26 下列关于滚动条的叙述中，错误的足 ( )。 （ A）在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件 （ B）在滚动条内拖动滚动框时，会触发 Scroll事件 （ C）在滚动条内拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端的箭头时，会触发 Change事件 27 以下关于 控件的叙述中，正确的是

12、( )。 （ A）列表框包含了组合框的全部功能 （ B）列表框兼有组合框和文本框的功能 （ C）列表框和组合框具有完全不同的功能 （ D）组合框兼有列表框和文本框的功能 28 以下可以作为 “容器 ”的控件是 ( )。 （ A）框架 （ B）图像框 （ C）标签 （ D）命令按钮 29 判断单选按钮是否被选中的属性为 ( )。 （ A） Selected （ B） Checked （ C） Value （ D） Index 30 对于某些控件，只要将其 Style属性设置为 1，则可以在该控件上使用 Picture属性显示图片。以下不具备这一使用规则的控件是 ( )。 （ A）命令按钮 （ B

13、）单选按钮 （ C）复选按钮 （ D）框架 31 编写如下程序： Private Sub Command1_Click() Dim x As String， y As String x=Right(“abcd“， 2) y=Mid(“dcba“， 2， 3) If x y Then Print x+y Else Print y+x End If End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） cdcba （ B） cbacd （ C） cbacd （ D） cbcd 32 编写如下程序： Private Sub Command1_Click() Fo

14、r i=1 To 4 Print Space(12-3*i)； For j=1 To i Print j； Next j For k=i-1 To 1 Step-1 Print k； Next k Print Next i End Sub程序运行后，单击命令按钮 Command1，输出结果为 ( )。33 编写如下程序： Private Sub Command1_Click() Dim m As Integer， n As Integer m=2： n=1 Select Case m Case 1 Select Case n Case 1 Print“AAA“ Case 2 Print“BBB

15、“ End Select Case 2 Print“CCC“ End Select End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） AAA （ B） BBB （ C） CCC （ D） 1 34 编写如下程序： Private Sub Command1_Click() Dim 13 As Integer Static s As Integer For n=1 To 3 s=s+n Next Print s End Sub 程序运行后，第三次单击命令按钮 Command1时，输出结果为 ( )。 （ A） 3 （ B） 6 （ C） 9 （ D） 18

16、 35 编写如下程序： Private Sub Command1_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 程序运行 后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 10 25 （ B） 10 40 （ C） 100 25 （ D） 100 40 36 编写如下程序： P

17、rivate Sub Command1_Click() Dim x 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 =10 End Sub 运行程序，循环实际执行次数为 ( )。 （ A） 0 （ B） 2 （ C） 3 （ D） 4 37 窗体上有 2个名称分别为 Text1和 Text2的文本框。编写如下程序： Private Sub Form_Load() Text1 Text=“ Text2 Text=“ End Sub P

18、rivate Sub Command1_Click() Print Text1 Text+Text2 Text End Sub 程序运行后，在 Text1和 Text2中依次输入 100和 200，并单击命令按钮Command1，则输出结果为 ( )。 （ A） 100 （ B） 200 （ C） 300 （ D） 100200 38 编写如下程序： Dim num As Integer， r As Integer， n As Integer， i As Integer Dim arr(5)As Integer Private Sub Command1_Click() num=12； r=2

19、Call Sub1(num， r， n) For i=n To 1 Step-1 Print arr(i)； Next i End Sub Sub Sub1(d As Integer， r As Integer， k As Integer) k=0 Do While d 0 k=k+1 arr(k)=d Mod r d=d r Loop End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 1 1 0 0 （ B） 0 0 1 1 （ C） 0 1 0 1 （ D） 1 0 1 0 39 编写如下程序： Private Sub Command1|_Clic

20、k() Dim n As Long， s As String n=InputBox(“输入一个数 “) Do While n 0 Plint 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 40 编写如下程序： Private Sub Command1_Click() Dim a(3， 3)As I

21、nteger Dim i As Integer， j As Integer For i=1 To 3 For i=1 To 3 If i 1 And i 1 Then a(i， j)=a(a(i-1， j-1)， a(i， j-1)+1 Else a(i， j)=i * j End If Next j Next i For i=1 To 3 For j=1 To 3 Print a(i， j)； Next j Print Next i End Sub 程序运行后，单击命令按钮 Command1，输出结果为 ( )。 （ A） 1 2 3 2 3 1 3 2 3 （ B） 1 2 3 2 1 1

22、 3 1 1 （ C） 1 2 3 2 0 0 3 0 0 （ D） 1 2 3 2 2 2 3 3 3 二、基本操作题 41 在名称为 Form1，标题为 “测试 ”的 窗体上添加一个名称为 Frame1、标题为 “字体 ”的框架。在框架内再添加两个名称分别为 Opt1和 Opt2、标题分别为 “隶书 ”和“宋体 ”的单选按钮。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。42 在名称为 Form1的窗体上用名称为 Shape1的形状控件添加一个其直径为1000(高、宽均为 1000)的圆；再添加两个标

23、题分别是 “垂直线 ”和 “水平线 ”，名称分别为 Command1、 Command2的命令按钮，如图所示。然后编 写两个命令按钮的Click事件过程。程序运行后，如果单击 “垂直线 ”命令按钮，则圆的内部用垂直线填充；如果单击 “水平线 ”命令按钮，则圆的内部用水平线填充。注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 43 在考生文件夹下有一个工程文件 sjt3 vbp，包含 2个窗体，名称分别为Form1、 Form2。窗体上已有部分控件，请在 Form1窗体

24、上再添加 1个名称为 Text1的文本框， Text属性为空， Enable属性设置为 False(如图所示 )，输入字符时文本框内将显示字符 “*”。 程序功能如下： 单击 Form1窗体的 “输入密码 ”按钮，则 Text1文本框 Enable属性变为 True，且获得焦点。 输入密码后单击 Form1窗体的 “密码校验 ”按钮，则判断 Text1中输入内容是否为小写字符 “abc”，若是，则 Form1窗体消失，显示 Form2窗体；若密码输入错误，则提示重新输入，若三次密码输入错误，则退出系统。 单击 Form2窗体的 “返回 ”按钮，则 form2窗体消失，显示。 Form1窗体 。

25、 Form2窗体的控件和程序已给出，但Form1窗体的程序不完整，请将程序中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序将按照原文件名进行存盘。 44 在考生文件夹下有一个工程文件 sjt4 vbp，窗体如图所示。程序功能如下： 单击 “读数据 ”按钮，则考生文件夹下 in4 dat文件的内容 (该文件中仅含有字母和空格 )在 Text1文本框中显示。 在 Text1中选取部分文本，单击 “统计 ”按钮，则以不区分大小写字母的方式，自动统计选中文本中单词 “the”出现的次数，并将统计结果显示在 Text2文本框内。

26、请将 “统计 ”按钮的 Click事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述功能。 *注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序 按原文件名进行存盘。四、综合应用题 45 考生文件夹下的工程文件 Sjt5 vbp中有 1个初始文本为空的文本框 Text1， 2个标题分别是 “读数据 ”和 “计算 ”的命令按钮；请添加 1个标题为 “各行最小数的平均值为 ”的标签 Label2，再添加 1个初始文本为空的文本框 Text2，如图所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 int5 dat文件的内容读入 20行 5列的二维数组 a中，同时在

27、Text1文本框内显示。 单击 “计算 ”按钮，程序则自动统计二维数组中各行的最小数，并将这些最小数的平均值 显示在 Text2文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请编写 “计算 ”按钮的 Click事件过程实现上述的功能。 *注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “计算 ”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名进行存盘。 国家二级（ VB）机试模拟试卷 82答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 算法的效率与问题的规模和数据的存储结构都有关， A错误。算法的时间复杂度，是指

28、执行算法所需要的计算工作量， B正确。由于数据元素在计算机存储空问中的位置关系可能与逻辑关系不同，因此数据的逻辑结构和存储结构不是一一对应的， C错误。算法的时间复杂度和空间复杂度没有直接的联系， D错误。 2 【正确答案】 C 【试题解析】 线性表的顺序存储结构具备如下两个基本特征： 线性表中的所有元素所占的存储空间是连续的； 线性表中各数据元素在存储空间中是按逻辑顺序依次存放的。用一组任意的存储单元来依次存放线性表的节点，这组存储单元既可以是连续的，也可以是不连续的，甚至是零散分布在内存中的任意位置上的。因此 C正确。 3 【 正确答案】 D 【试题解析】 二叉树中，度为 0的节点数等于度

29、为 2的节点数加 1，即 112=n0-1，叶子节点即度为 0， n0=1，则 n2=0，总节点数为 12=n0+n1+n2=1+n1+0，则度为 1的节点数 n1=11，故深度为 12，选 D。 4 【正确答案】 D 【试题解析】 快速排序最坏情况就是每次选的基准数都和其他数做过比较，共需比较 (n-1)+(n-2)+1=n(n -1) 2，故选 D。 5 【正确答案】 C 【试题解析】 结构化程序设计中，要注意尽量避免 goto语句的使用，故选 C。 6 【正确答案】 B 【试题解析】 软件测试主要包括单元测试、集成测试、确认测试和系统测试。 7 【正确答案】 A 【试题解析】 需求分析阶

30、段的工作可概括为 4个方面： 需求获取； 需求分析； 编写需求规格说明书； 需求审评。 8 【正确答案】 C 【试题解析】 自然连接是一种特殊的等值连接，它满足下面的条件： 两关系问有公共域； 通过公共域的等值进行连接，故选 C。 9 【正确答案】 B 【试题解析】 关系 T是关系 R的一部分，并且是关系 R 10 【正确 答案】 A 【试题解析】 由于职员可以在多家公司兼职，表 w的键 (码 )应为公司关系和职员关系的主码，即公司号和职员号。 11 【正确答案】 B 【试题解析】 工程文件的扩展名为 vbp。 12 【正确答案】 A 【试题解析】 变量的命名规则是： 必须以字母开头，由字母、

31、汉字、数字或下画线组成； 不能在变量名中出现句点 “ ”、空格或者嵌入字符，例如 !、 、 #、 $、 &等； 长度不得超过 255个字符； 不能使用组成 Visual Basic语言的关键字，包括预定义语句 (例如 If、 For等 )、函数 ( Abs、 Sqr等 )和操作符 (Or、 Mod等 )。 13 【正确答案】 B 【试题解析】 ：整型； #：双精度实型； &：长整型； ：货币型。 14 【正确答案】 A 【试题解析】 选项 B表述的是 x为大于等于 5或者小于 20的数，不符合题意；选项 C、选项 D的表达式不符合 VisualBasic的逻辑表达式格式，是错误的。 15 【正

32、确答案】 C 【试题解析】 运算符的优先顺序是：算术运算符关系运算符逻辑运算符。 算术运算符的优先顺序是： - (*与 ) Mod (+与 -)。 关系运算符的优先顺序是： = (或 ) ( ) ( =) ( =) ( ) IsLike。 逻辑运算符的优先顺序是：非 (Not)与 (And)或 (Or)异或 (Xor)等价 (Epv)蕴含 (Imp)。 16 【正确答案】 C 【试题解析】 Visual Basic源程序的续行符为下画线 (_)。 17 【正确答案】 C 【试题解析】 Visual Basic中变量的作用域分为 3类。局部变量：在过程内用Dim语句或用 Static语句声明的变

33、 量，只能在本过程中使用。窗体模块级变量：在 “通用声明 ”段中用 Dim语句或用 Private语句声明的变量，可被本窗体模块的任何过程访问。全局变量：在 “通用声明 ”段中用 Public语句声明的变量，可被本应用程序的任何过程或函数访问。 18 【正确答案】 B 【试题解析】 打开顺序文件的基本格式为： Open“文件名称 ”For Mode As#文件号。 “文件名称 ”表示要打开的文件的路径。 Mode为打开模式： OutPut用于输出； Append用于追加写入； Input用于读取。 文件号为打开文件时指定的句柄 (即文件号 )。 19 【正确答案】 D 【试题解析】 Visib

34、le属性用来设置窗体或控件的可见性。 20 【正确答案】 B 【试题解析】 由图中所示对话框可知 InputBox方法使用了 3个参数：第一个参数用于显示信息为 “输入界面 ”；第二个参数用来显示对话框的标题为 “输入界面 ”；第三个参数是默认输入值为 “20”。所以选项 B正确。 21 【正确答案】 B 【试题解析】 标签可以响应 Click事件和 DblClick事件，因此选 B。 22 【正确答案 】 C 【试题解析】 单击 List1中某个表项时触发 Last1_Click()事件。标签的 Caption属性用于设置标签中所要显示的内容。列表框的 text属性为 List1中表项的正文

35、，通过这个属性可以得到被选中的项目。因此选 C。 23 【正确答案】 D 【试题解析】 计时器控件属性包括 Enabled、 Interval和 Name。 Timer是事件。因此选 D。 24 【正确答案】 A 【试题解析】 图片框控件可以作为其他控件的容器，可以使用 Print方法在其中显示文本，而图像框不具有这 些功能。 25 【正确答案】 B 【试题解析】 命令按钮获取焦点的方法可以通过按 Tab键，鼠标单击对象或对对象使用 Setfocus方法。 A， C， D都让命令按钮获得焦点并触发 Click事件。 26 【正确答案】 A 【试题解析】 与滚动条控件相关的事件主要是 Scrol

36、l事件和 Change事件。当拖动滚动条内的滚动滑块时，触发 Scroll事件，单击滚动条两端的箭头或单击滚动条前后的空白区域不触发 Scroll事件；当改变活动滑块的位置时，触发 Change事件。故选 A。 27 【正确答案】 D 【试题解析】 组合框 (30mboBox)控件是列表框和文本框组成的控件，具有列表框和文本框的功能，并具有文本框和列表框的大部分属性。它可以像列表框一样，让用户通过鼠标选择需要的项目，也可以像文本框那样，用键入的方法选择项目。因此选 D。 28 【正确答案】 A 【试题解析】 窗体控件、框架控件和图片框控件可以作为其他控件的容器。因此选 A。 29 【正确答案】

37、 C 【试题解析】 Value属性值决定单选按钮的选中状态： 0为未选， 1为选中， 2为不可用 (以灰色呈现 )。 30 【正 确答案】 D 【试题解析】 框架控件不具备 Style属性。 31 【正确答案】 A 【试题解析】 Right(“abcd”， 2)从字串的右边截取 2个字符 “cd”， Mid(“dcba”，2， 3)从第二个字符开始截取 3个字符 “cba”，然后判断 x和 y的大小。 32 【正确答案】 C 【试题解析】 Print Space(12-3*i)语句为打印空格符。根据变量 i的值变化，打印的个数不同。 For循环的执行根据变量值进行相应的打印。 33 【正确答案

38、】 C 【试题解析】 select Case语句后面跟的是条件。根据条件执行相应的分支语句。m=2，因此执行 Select Case m中的 Case 2分支语句。 34 【正确答案】 D 【试题解析】 stafic修饰的变量在事件退出后保留原值。三次单击命令按钮Command1相当于对 s进行了三次累加赋值。 35 【正确答案】 B 【试题解析】 函数 fun1(ByVal m As Integer， n As Integer)中 m通过 ByVal指定为值传递， n为引用传递。传递给该函数的实参会被改变。 36 【正确答案】 C 【试题解析】 x初值为 1。第一次先执行循环然后判断条件。在

39、循环体中， x被加 3，执行完第 2次时 x=7。执行第三次时， y=28，满足条件 y 10，执行 Exit Do跳出循环。 37 【正确答案】 D 【试题解析】 单击命令按钮 Command1，触发 Command1_Click()事件， Print语句连续输出文本框 Text1和 Text2的 text值。 38 【正确答案】 A 【试题解析】 Subl函数对全局数组 arr元素赋初值， Sub1函数参数传递均为默认的引用传递。因此执行完后 n值被修改。 Command1_Click()事件中的 F0r循环对 a玎数组元素进行倒序输出。 39 【正确答案】 B 【试题解析】 Print语

40、句对输入的数值 n=123456进行处理并打印。第一条语句打印 n的十位数，第二条语句打印 n的个位数。然后对 N执行求余运算。 40 【正确答案】 A 【试题解析】 第一个 For循环对数组 a(3， 3)元素赋初值，根据循环体内的条件数组元素获得初值。第二个 For循环进行数组元素的打印。 二、基本操作题 41 【正确答案】 【操作步骤】 步骤 1：按照题目要 求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表 1。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 首先通过窗体的 Caption属性设置窗体的标题，其次通过框架的Name和 Caption属性设

41、置框架的名称和标题，最后通过单选按钮的 Name和Caption属性设置命令按钮的名称和标题。 42 【正确答案】 【操作步骤】 步骤 1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表 2和表 3。步骤 2：编写程序代码。 参考答案 Privalte Sub Command1_Click() Shape1 Fillstyle=3 End Sub Private Sub Command2_Click() shape1 Fillstyle=2 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 FillStyle属性用于返回设置一个形状控

42、件的填充样式。 Shape属性用来设置形状控件的形状， 0：矩形 (默认设置 )， 1：正方形， 2：椭圆， 3：圆，4：圆角矩形， 5：圆角正方形。 三、简单应用题 43 【正确答案】 【操作步骤 】 步骤 1：打开本题工程文件，添加一个名称为 Text1的文本框，初使文本内容为空， Enabled属性设置为 False，并将其 PasswordChar属性设置为 “*”。 步骤 2：分析并编写程序代码。 程序提供代码如下： 窗体 1的代码 Dim n As Integer Private Sub Command1_Click() Text1 Enabled=? Text1 SetFocus

43、 End Sub Private Sub Command2_Click() If Text1 Enabled=False Then MsgBox“请先使用 输入密码 功能 !“ Else If Text1 “?“Then n=n+1 If?=3 Then MsgBox“三次密码输入错误，你无权进入本系统 !“ End Else MsgBox“第 “+Str(n)+“次密码输入错误，请重试 !“ Text1=“ Text1 SetFocus End If Else Text1 Enabled=False Text1=“ ？ Hide ？ Show End If End If End Sub 窗体

44、 2的代码 Private Sub Command1_Click() Form2 Hide Form1 Show End Sub 参考答案： 第 1个 ?处填入： True 第 2个 ?处填入： abc 第 3个 ?处填入： n 第 4个 ?处填入： Form1 第 5个 ?处填入： Form2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 根据题意，通过文本框的 Name、 Text、 Enabled、 PasswordChar属性设置文本框，单击 “输入密码 ”按钮， Text的 Enabled属性设置为 True，并通过 SetFocus方法使文本框获得焦点。 输入

45、密码后单击 Form1窗体的 “密码校验 ”按钮，则判断 Text1中输入内容是否为小写字符 “abc”，若密码正确，通过 Hide方法隐藏 Form1窗体，并通过 Show显示 Form2窗体；若密码输入错误，则提示重新输入，变量 n用于累积输入次数，三次密码输入错误，则退出系统。 44 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码如下： option Base 1 Dim s Ad string Private Sub Command1_C3ick() Open App Path&“ in4?dat“For Input As #1

46、s=Input(LOF(1)， #1) Close#1 Text1 Text=s End Sub Private Sub Command2_Click() Dim m As Integer If Len(s)=?Then MsgBox“请先使用 读数据 功能 !“ Else If Text1 ?=0 Then MsgBox“请先选中文本 !“ Else t=“ For i=1 To Text1 SelLength c=Mid(Text1 SelText， i， 1) If c “Then t=t+c Else If?=“the“ Then m=m+1 End If t=“ End If Nex

47、t i ?=Str(m) End If End If End Sub 参考答案： 第 1个 ?处填入： 0 第 2个 ?处填入： SelLength 第 3个 ?处填入： kase$(t) 第 4个 ?处填入 ： Text2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 单击 “读数据 ”按钮，运用文件操作将考生文件夹下 in4 dat文件的内容显示在 Text1文本框中。在 Command2_Click事件过程中，否则运用 Len()函数判断文本框中是否有字符，如果 Len(s)=0那么弹出 MsgBox对话框 “请先使用读数据 功能 !”，否则运用 SelLength

48、属性判断文本框中是否有字符被选中，如果SelLength属性 0，那么弹出 MsgBox对话框 “请先选中文本 !”。 在 Text中 选中部分文本，并单击 “统计 ”按钮，通过 LCase函数使统计不区分大小写字母，判断选中文本中是否出现单词 “the”，并统计这个单词的出现的次数，将结果显示在 Text2文本框内。 四、综合应用题 45 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，添加一个标题为 “各行最小数的平均值为 ”的标签Label2，再添加一个初始内容为空的文本框 Text2。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20，

49、 5)As Integer Private Sub Command1_Click() Open App Path “ in5 chit“For Input As #1 For i=1 To 20 For j=1 To 5 Input #1， a(i， j) Text1=Textl+Str(a(i， j)+Space(2) Next j Text1=Text1+Chr(13)+Chr(10) Next i Close #1 End Sub Private Sub Command2_Click() 考生编写 End Sub Private Sub Form_Unload(Cancel As hteger) Open App Path “ out5 dat“For Output As #1 Print #1， Text2