1、国家二级（ VB）机试模拟试卷 176及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）循环队列是队列的一种链式存储结构 （ B）循环队列是队列的一种顺序存储结构 （ C）循环队列是非线性结构 （ D）循环队列是一种逻辑结构 2 下列关于线性链表的叙述中，正确的是 ( )。 （ A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致 （ B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续 （ C）进行插入与删除时，不需要移动表中的元素 （ D）以上说法均不正确 3 一棵二又树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为 (
2、)。 （ A） 16 （ B） 10 （ C） 6 （ D） 4 4 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是 ( )。 （ A）外模式 （ B）内模式 （ C）概念模式 （ D）逻辑模式 5 在满足实体完整性约束的条件下 （ A）一个关系中应该有一个或多个候选关键字 （ B）一个关系中只能有一个候选关键字 （ C）一个关系中必须有多个候选关键字 （ D）一个关系中可以没有候选关键字 6 有三个关系 R、 S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）自然连接 （ B）交 （ C）除 （ D）并 7 下面描述中，不属于软件危机表现的是 ( )。 （
3、 A）软件过程不规范 （ B）软件开发生产率低 （ C）软件质量难以控制 （ D）软件成本不断提高 8 下面不属于需求分析阶段任务的是 ( )。 （ A）确定软件系统的功能需求 （ B）确定软件系统的性能需求 （ C）需求规格说明书评审 （ D）制定软件集成测试计划 9 在黑盒测试方法中，设计测试用例的主 要根据是 ( )。 （ A）程序内部逻辑 （ B）程序外部功能 （ C）程序数据结构 （ D）程序流程图 10 在软件设计中不使用的工具是 ( )。 （ A）系统结构图 （ B） PAD图 （ C）数据流图 (DFD图 ) （ D）程序流程图 11 以下变量名中合法的是 ( )。 （ A）
4、x-2 （ B） 12abc （ C） sum_total （ D） print 12 已知 a=6， b=15， c=23，则语句 Print Sgn(a+b Mod 6-c a)&a+b的输出结果为( )。 （ A） 6 （ B） 16 （ C） 31 （ D） 121 13 以下叙述中错误的是 ( )。 （ A）续行符与它前面的字符之间至少要有一个空格 （ B） Visual Basic中使用的续行符为下划线 (一 ) （ C）以撇号 ()开头的注释语句可以放在续行符的后面 （ D） Visual Basic可以自动对输入的内容进行语法检查 14 以下关于多重窗体程序的叙述中，错误的是
5、( )。 （ A）对于多重窗体程序，需要单独保存每个窗体 （ B）在多重窗体程序中，可以根据需要指定启动窗体 （ C）在多重 窗体程序中，各窗体的菜单是彼此独立的 （ D）用 Hide方法不仅可以隐藏窗体，而且还可以清除内存中的窗体 15 以下关于文件的叙述中，错误的是 ( )。 （ A）顺序文件中的记录是一个接一个地顺序存放 （ B）随机文件中记录的长度是随机的 （ C）文件被打开后，自动生成一个文件指针 （ D） EOF函数用来测试是否到达文件尾 16 下面不是键盘事件的是 ( )。 （ A） KeyDown （ B） KeyUp （ C） KeyPress （ D） KeyCode 17
6、 语句 Dim Arr(一 2 To 4) As Integer所定义的数组的元素个数为 ( )。 （ A） 7个 （ B） 6个 （ C） 5个 （ D） 4个 18 为了使窗体左上角不显示控制框，需设置为 False的属性是 ( )。 （ A） Visible （ B） Enabled （ C） ControlBox （ D） Caption 19 窗体上有 1个名称为 Text1的文本框， 1个名称为 Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为 ( )。 （ A） Private Sub Label1_Click
7、() Label1 Caption=Text1 Text End Sub （ B） Private Sub Label1_Change() Label1 Caption=Text1 Text End Sub （ C） Private Sub Text1_Click() Label1 Caption=Text1 Text End Sub （ D） Private Sub Text1_Change() Label1 Caption=Text1 Text End Sub 20 对窗体上名称为 Command1的命令按钮，编写如下事件过程： Pnvate Sub Command1_Click() Mo
8、ve 200， 200 End Sub 程序运行时，单击命令按钮，则产生的操作是 ( )。 （ A）窗体左上角移动到距屏幕左边界、上边界各 200的位置 （ B）窗体左上角移动到距屏幕右边界、上边界各 200的位置 （ C）窗体由当前位置向左、向上各移动 200 （ D）窗体由当前位置向右、向下各移动 200 21 为了每秒钟发生一次计时器事件，可以将 Interval属性设置为 ( )。 （ A） 1 （ B） 10 （ C） 100 （ D） 1000 22 能够将组合框 Combo1中最后一个数据项删除的语句为 ( )。 （ A） Combo1 Removehem Combo1 IAst
9、Count （ B） Combo1 RemoveItem Combo1 ListCount-1 （ C） Combo1 RemoveItem Combo1 List1ndex （ D） Combo1 Removehem Combo1 ListIndex-1 23 用来设置文字字体是否为粗体的属性是 ( )。 （ A） FontItalic （ B） FontUnderline （ C） FontSize （ D） FontBold 24 以下不能触发滚动条 Change事件的操作是 ( )。 （ A）拖动滚动框 （ B）单击两端的滚动箭头 （ C）单击滚动框 （ D）单击滚动箭头与滚动框之间的
10、滚动条 25 确定图片框 Picture1在窗体上位置的属性是 ( )。 （ A） Width和 Height （ B） Left和 Top （ C） Width和 Top （ D） Height和 Left 26 以下不属于单选按钮的属性是 ( )。 （ A） Caption （ B） Name （ C） Min （ D） Enabled 27 以下关于图片框控件的说法中，错误的是 ( )。 （ A）可以通过 Print方法在图片框中输出文本 （ B）图片框控件中的图形可以在程序运行过程中被清除 （ C）图片框控件中可以放置其他控件 （ D）用 Stretch属性可以自动调整图片框中图形的大
11、小 28 为了清除列表框中指定的项目，应使 用的方法是 ( )。 （ A） Cls （ B） Clear （ C） Remove （ D） RemoveItem 29 假定 Picture1和 Text1分别为图片框和文本框的名称，则下列错误的语句是( )。 （ A） Print 25 （ B） Picture1 Print 25 （ C） Text1 Print 25 （ D） Debug Print 25 30 设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 在窗体上
12、画一个名为 Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件 Person txt中写入一条记录。下列能够完成该操作的事件过程是 ( )。 （ A） Private Sub Command1_Click() Dim B As Books Open“c： Person txt“For Output As #1 B Name=InputBox(“输入姓名 “) B TelNum=InputBox(“输入电话号码 “) Write #1， B Name B TelNum Close #1 End Sub （ B） Private Sub Command1_Cl
13、ick() Dim B As Books Open“c： Person txt“For Input As #1 B Name=InputBox(“输入姓名 “) B TelNum=InputBox(“输入电话号码 “) Print#1， B Name， B TelNum Close#1 End Sub （ C） Private Sub Command1_Click() Dim B As Books Open“c： Person txt“For Output As #1 B Name=InputBox(”输入姓名 ”) B TelNum=InputBox(”输入电话号码 ”) Write #1
14、B Close #1 End Sub （ D） Private Sub Command1 Click() Open“c： Person txt“For Input As #1 Name=InputBox(“输入姓名 “) TelNum=InputBox(“输入电话号码 “) Prim #1， Name， TelNum Close #1 End Sub 31 运行如下程序： Private Sub Command1_Click() Dim a(5， 5)As Integer For i=1 To 5 For j=1 To 4 a(i， j)=i*2+j If a(i， j) 7=a(i， j)
15、7 Then n=n+1 End If Next j Next Print n End Sub n的值是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 32 窗体上有单选钮和列表框控件。单击名称为 Option1、标题为 “国家 ”的单选钮，向列表框中添加国家名称，如下图所示。Option1的单击事件过程如下： Private Sub Option1_Click() Dim arr arr=Array(“中国 “， “日本 “， “德国 “， “美国 “， “澳大利亚 “) List1 Clear For i=0 To Ubound(art) List1 AddItem a
16、rr(i) Next End Sub 以下关于上述代码的叙述中，正确的是 ( )。 （ A）程序有错，没有声明数组的维数及上下界 （ B）只有一维数组才能使用 Array为数组赋初值 （ C） For循环的终值应为 ListCount一 1 （ D） For循环的初值应为 1 33 现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox(“输入： “) Select Case x Case“A“To“C“ Print“考核通过 !“ Case“D“ Print“考核不通过 !“ Case Else Print“输入数据不合法 !“ End
17、 Select End Sub 执行程序，在输入框中输入字母 “B”，则以下叙述中正确的是 ( )。 （ A）程序运行错 （ B）在窗体上显示 “考核通过 !” （ C）在窗体上显示 “考核不通过 !” （ D）在窗体上显示 “输入数据不合法 !” 34 窗体上有三个水平 滚动条，名称分别为 HSRed、 HSGreen和 HSBlue，取值范围均是 0 255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。程序代码如下： Dim color(3)As Integer Private Sub Form_Load() Call fill(color
18、() End Sub Private Sub fill(c()As Integer) Form1 BaekColor=RGB(e(1)， e(2)， c(3) End Sub Private Sub HSRed Change() color(1)=HSRed Value Call fill(color() End Sub Private Sub HSGreen_Change() color(2)=HSGreen Value Call fill(color() End Sub Private Sub HSBlue_Change() color(3)=HSBlue Value Call fill(
19、color() End Sub 关于以上程序，如下叙述中错误的是 ( )。 （ A） color是窗 体级整型数组 （ B）改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变 （ C） 3个滚动条 Change事件过程中只设置了一个 color数组元素的值，调用 fill过程失败 （ D） fill函数定义中的形式参数是数组型参数 35 命令按钮 Command1的单击事件过程如下： Private Sub Command1_Click() x=10 Print f(x) End Sub Private Function f(y As Integer) f=y*y End Functi
20、on 运行上述程序，如下叙述中正确的是 ( )。 （ A）程序运行出错， x变量的类型与函数参数的类型不符 （ B）在窗体上显示 100 （ C）函数定义错，函数名 f不能又作为变量名 （ D）在窗体上显示 10 36 窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程： Private Sub Text1_KeyUp(KeyCode As Integer， Shift As Integer) Print Text1 Text； End Sub 运行程序，并在文本框中输入 “123”，则在窗体上的输出结果为 ( )。 （ A） 123 （ B） 112 （ C） 12123
21、（ D） 112123 37 窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x， y， z X=InputBox(“请输入第 1个整数 “) Y=InputBox(“请输入第 2个整数 “) Do Until x=y If xy Then x=xy Else y=yx Loop Print x End Sub 运行程序，单击命令按钮，并输入 2个整数 169和 39，则在窗体上显示的内容为 ( )。 （ A） 11 （ B） 13 （ C） 23 （ D） 39 38 窗体上有 1个名称为 Command1的
22、命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m=InputBox(“请输入字符串 “) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp=“ i=1 sLen=Len(s) Do While iMod+&顺序计算。计算过程： Sgn(6+15Mod 623 6)&6+15=Sgn(6+35)&21=Sgn(4)21=1&21=“121“。故选项 D正确。 说明：字符串连接符两边的操作数不管是字符型还是数值型
23、，系统首先要将其转换为字符型，然后进行连接。 13 【正确答案】 C 【试题解析】 续行符 “一 ”与前面的内容至少要保留一个空格，并且续行符只能出现在行尾，后面不能有注释。故选项 C错误。 14 【正确答案】 D 【试题解析】 用 Hide方法只是隐藏窗体，不卸载窗体，所以不会清除内存中的窗体。故选项 D错误。 15 【正确答案】 B 【试题解析】 随机文件中记录的长度是固定的、相等的，不是随机的。故选项 B错误。 16 【正确答案】 D 【试题解析】 KeyCode是 KeyDown、 Keyup键盘事件的参数，不是键盘事件，它返回的是按键相应的 ASCII字符代码。故选项 D错误。 17
24、 【正确答案】 A 【试题解析】 本题是定义了一个一维数组，下标是一 2to 4，所 以数组元素的个数是 4一 (一 2)+1=7，故选 A。 18 【正确答案】 C 【试题解析】 窗体的 Visible属性是设置窗体可见不町见； Enabled属性是设置可用不可用； Caption属性是用来设置窗体标题栏上显示的内容； ControlBox属性是设置窗体左上角是否显示控制框，当属性值为 True时，显示控制框，否则False时，不显示。故选项 C正确。 19 【正确答案】 D 【试题解析】 题意是在文本框中输入信息，会影响标签上显示的内容，所以触发的是文本框 Text1的事件，要在文本框 T
25、ext1的事件过程中写代码，因此排除 A、B选项。又因为标签上显示的内容会随着文本框中输入信息变化，因此要在 Text1的 Change事件过程写代码。故 D选项正确。 20 【正确答案】 A 【试题解析】 Move方法是窗体的移动方法，其中 200， 200是窗体左上角的坐标(X， Y)。坐标系是以屏幕左上角为原点，向右为 x轴正方向，向下为 Y轴正方向。所以本题中窗体左上角移动到距屏幕左边界、上边界各 200的位置。故 A选项正确。 21 【正确答案】 D 【试题解析】 计时器控件的 Interval属性值以 毫秒为单位，设置为 1000则计时器事件每 1秒钟发生一次。 22 【正确答案】
26、 B 【试题解析】 组合框的 Removehem方法与列表框删除指定项目的方法相同，格式为： Removeltem(索引值 )，而列表中的项目索引值从 0开始，因此最后一项的索引值为 ListCount一 1。 23 【正确答案】 D 【试题解析】 FontItalic用来设置文字是否为斜体， FontUndetLine用来设置文字是否加下划线， FontSize用来设置文字的字号， FontBold用来设置文字是否为粗体。 24 【正确答案】 C 【试题解析】 改变滚动框的位置后会触发 Change事件，拖动滚动框、单击滚动箭头、单击滚动箭头与滚动框之间的滚动条都会改变滚动框的位置。 25
27、【正确答案】 B 【试题解析】 确定图片框在窗体上位置的属性是 Left和 Top它们使用的是相对坐标，以窗体为参考点。 26 【正确答案】 C 【试题解析】 单选按钮没有 Min属性，滚动条控件的属性中有 Min属性。 27 【正确答案】 D 【试题解析】 可以通过 Print方法在图片框中输出文件，图片框中的图形 可以在程序运行过程中通过载入空文件的方法清除，图片框控件可以作为父控件，即可以放置其他控件， Stretch属性用来自动调整图片框中图形内容的大小。 28 【正确答案】 D 【试题解析】 清除列表框中的指定内容要使用 Removeltem方法，格式为：RemoveItem(索引值
28、 )，只要指定要清除项目的索引值就可以清除指定项目。如果要清除列表框中的全部内容可以使用 Clear方法。 29 【正确答案】 C 【试题解析】 Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或 打印机上输出信息。其一般格式为： 对象名称 Print表达式表 ， |； 其中对象名称可以是窗体 (Form)、图片框 (PictureBox)或打印机 (Printer)，也可以是立即窗口 (Debug)。如果省略对象名称，则在当前窗体上输出。 30 【正确答案】 A 【试题解析】 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先，在顺序文件中打开文件写入
29、数据的打开方式为： Open文件名 For Output As #文件号。因此 B、 C选项排除，只看 A、 D选 项。 写入顺序文件 Print#语语句格式为： Print#文件号，变量名，变量名 ， write语句的的格式与 Print语句一样： Write#文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名成员名， Books类型变量 B成员 Name和 TelNum赋值和引用应该是 B Name、B TelNum，因此 A选项正确。 31 【正确答案】 B 【试题解析】 VB中 “ ”是浮点除法运算符， “ ”是整数除法运算符程序中的条件
30、表达式 a(i， j) 7=a(i， j) 7成立时说明这个数能够被 7整除，程序即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i=1时为 (3， 4， 5， 6)， i=2时为 (5， 6， 7， 8)， i=3时为 (7， 8， 9， 10)， i=4时为 (9， 10， 11， 12)， i=5时为(11， 12， 13， 14)，其中能够被 7整除的数有 7、 7、 14共 3个。因此答案为 B。 32 【正确答案】 B 【试题解析】 程序没有错误。数组变量定义时可以不用声明上下界。 List控件列表项的索引从 0开始。 Array函数只适用于一组数组，只能对一维数组进行
31、初始化，不 能对二维数组或多维数组进行初始化。因此叙述正确的是 B选项。 33 【正确答案】 B 【试题解析】 程序中 Ucase函数将输入的字母转换为大写，然后通过 select多分支控制语句选择输出不同信息，当输入字母在 “A”到 “C”之间时，显示 “考核通过 !”，输入的是 “D”时显示 “考核不通过 !”，如果输入的是 “A”到 “D”之外的其他字符则显示 “输入数据不合法 !”。程序中输入字母 “B”，因此会显示 “考核通过 !”。 34 【正确答案】 C 【试题解析】 当用 Dim语句定义数组时，该语句把数值数组中的全部 元素都初始化为 0，而把字符串数组中的全部元素都初始化为空
32、串。因此 color数组中的元素初始值都为 0，没有空值，过程调用不会失败。 C选项叙述错。 35 【正确答案】 A 【试题解析】 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为Variant类型，由于过程中参数类型为 Integer，所以程序运行时会提示 “ByRef参数类犁不符 ”错误。 A选项正确。只在按钮事件中工 Dim x as Integer就可以解决问题，或者 f过程中的 y as Integer改为 ByVal y as inleger也可以解决。 36 【正确答案】 D 【试题解析】 Keyup事件是在松开按钮时发生。按下 1松开时，文本框中显示1，执行 Key
33、up事件过程，在窗体上显示文本框内容，即 1。按下 2松开时，文本框中显示 12，执行 KeyUp事件过程，在窗体上 1后面接着现在显示文本框的内容，即窗体上显示为 112。按下 3松开时，文本框中显示 123，执行 KeyUp事件过程，在窗体上 112后面接着显示文本框的内容，即在窗体上显示为 112123。 37 【正确答案】 B 【试题解析】 程序中 Do循环比较输入的两个数的大小 ，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入 169和 39，则x=16939=130， 130y即 13039，因此 x=13039=91，如此循环 x=91一39=5239
34、=13，此时 1339为假，执行 y=yx=39一 13=26，循环 y=2613=13，此时 x、 y都为 13，循环结束，因此窗体上显示为 13。 38 【正确答案】 A 【试题解析】 过程 pick_str的功能是对输入的字符串的字符重新组合，通过 Do循环从原字符串中头尾开始各取一个字符重新组合，循环 次数小于等于原字符串长度整除 2的值。当输入字符串是 “basic”时，字符串长度为 5，循环次数为 52=2次，因此取出的字符依次是 “b”， “c”， “a”， “i”。即 “bcai”，因此答案为 A。 39 【正确答案】 D 【试题解析】 在过程 m中 s被定义为静态变量，因此它
35、的值只在第一次调用过程时初始化，以后再调用都不再初始化，而是保留之前的值。 m过程的功能是根据参数值累加，因此第 1次单击时， m(1)+m(2)+m(3)=1+3+6=10，此时变量 s的值，即过程 m的值为 6，第 2次单击时， m(1)+m(2)+m(3)=7+9+12=28。因此答案为 D。 40 【正确答案】 C 【试题解析】 程序中 5次循环 x的值分别为 1 1， 1 1 2=1 (1*2)， 1 1 2 3=1 (1*2*3)， 1 1 2 3 4=1 (1*2*3*4)， 1 1 2 3 4 5=1(1*2*3*4*5)，可以看出 x值就是 1 i!，因此过程的功能就是计算
36、1+1 2!+13!+1 4!+1 5!。因此选项 C正确。 二、基本操作题 41 【正确答案】 (1)步骤 1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表 1和 表 2。 步骤2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1 Visible=True Label1 Caption=Text1 Text Text1 Visible=False End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3。步骤 2：编写程序代码。参考答案 Priva
37、te Sub HScroll1_Change() Text1 Height=HScroll1 Value Text1 Width=1 2*Text1 Height End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)文本框的 Text属性用于设置文本框中显示的文本。标签的Caption属性可设置其标题。 Visible属性用于设置控件或菜单项在程序运行时是否可见。 (2)通过调整滚动条滑块的位置即可改变其 Value属性的值，滚动条的 Max和Min属性为滚动条所能表示的最大值和最小值， LargeChange属性用于设置当单击滑块与两侧箭头间区域时 Va
38、lue属性值的改变量， SmallChange属性用于设置当单击滚动条两侧箭头时 Value属性值的改变量。当改变滚动条滑块位置后将触发其 Change事件。 文本框的高度和宽度分别由其 Height属性值和 Width属性值设定。 三、简单应用题 42 【正确答案】 (1)步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() If List1 ListCount=0 Then Exit Sub End If If List1 List1ndex=一 1 Then List
39、1 List1ndex=0 Else If List1 ListIndexList1 ListCount-1 Then List1 ListIndex=List1 LisIndex+1 Else List1 List1ndex=0 End If End If End Sub 步骤 3：调试并运行 程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Dim t As Integer Private Sub Command1_Click() t=60*Val(Text1 Text) Timer
40、1 Enabled=True End Sub Private Sub Timer_Timer() Dim m s As Integer If t=0 Then Timer1 Enabled=False MsgBox“时间到 !“ Else t=t-1 m=Int(t 60) s=t Mod 60 Label4 Caption=“剩余 “&m&“分 “&s&“秒 “ End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)本题考查 List控件的属性使用， ListCount为列表框中列表的项数； ListIndex为被选中的列表项的索引号， Li
41、st1ndex值为一 1表示没有列表项被选中； L,istCount为列表项的总个数，最后一项表示为 List1 ListCount一 1。程序中使用三个 if语句，判断三种不同情况。 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)本题考查计时器控件的使用，窗体上计时器控件的 Enabled属性初始值被设置为 False，所以需要在单击按钮时，将 Enabled属性设置为 True，全局变量 t是输入的时间 (单位为：分 )转换为秒数，在 Timer事件代码中，判断 t是否小 于等于0，如果小于等于 0，则弹出提示框，否则将 t减 1，将剩余秒数 t换算成剩余分钟数 m和剩余秒数
42、 s。 四、综合应用题 43 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(7， 7)As Integer Private Sub Form_Load() read End Sub Public 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 CommandLC
43、lick() Dim Sum As L0ng =考生编写程序开始 = =考生编写程序结束 = Save End Sub Public Sub Save() Open App Path&“ out5 txt“For Output As #1 Print #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+l ElseIf a(1， i)Mod 7=0 Then n=n+l Els
44、elf 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， 1)+a(1， 7) Next sum=suma(1， 1)一 a(1， 7)一 a(7， 1)一 a(7， 7) lblSecond=sum 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 根据题意将考生文件夹内数 据文件读入到一个二维数组，在Command1 Click事件过程中， Mod函数用于判断数组中四周元素的值是否能被 7整除，运用 If判断语句，实现变量 n对于被 7整除的数的统计。通过 For循环语句，统计四周元素之和，需要注意，对于四个角的值累加了两次，所以要减去。
