1、VB 笔试模拟试卷 9及答案与解析 1 在数据结构中,从逻辑上可以把数据结构分为 _。 ( A)动态结构和静态结构 ( B)紧凑结构和非紧凑结构 ( C)线性结构和非线性结构 ( D)内部结构和外部结构 2 若进栈序列为 1, 2, 3, 4,进栈过程中可以出栈,则下列不可能的一个出栈序列是 _。 ( A) 1, 4, 3, 2 ( B) 2, 3, 4, 1 ( C) 3, 1, 4, 2 ( D) 3, 4, 2, 1 3 排序方法中,将整个无序序列分割成若干小的子序列并分别进行插入排序的方法,称为 _。 ( A)希尔排序 ( B)冒泡排序 ( C)插入排序 ( D)选择排序 4 在顺序表
2、 (3, 6, 8, 10, 12, 15, 16, 18, 21, 25, 30)中,用二分法查找关键码值 11,所需的关键码比较次数为 _。 ( A) 2 ( B) 3 ( C) 4 ( D) 5 5 对于 n个结点的单向链表 (无表头结点 ),需要指针单元的个数至少为 _。 ( A) n-1 ( B) n ( C) n+1 ( D) 2n 6 在软件开发过程中,软件结构设计是描述 _。 ( A)数据存储结构 ( B)软 件体系结构 ( C)软件结构测试 ( D)软件控制过程 7 模块本身的内聚是模块独立性的重要性度量因素之一。在 7类内聚中,具有最强内聚的一类是 _。 ( A)顺序性内聚
3、 ( B)过程性内聚 ( C)逻辑性内聚 ( D)功能性内聚 8 数据存储和数据流都是 _,仅仅是所处的状态不同。 ( A)分析结果 ( B)事件 ( C)动作 ( D)数据 9 数据的完整性是指数据的正确性、有效性和 _。 ( A)可维护性 ( B)独立性 ( C)安全性 ( D)相容性 10 关系代数运算是以 _ 为基础的运算。 ( A)关系运算 ( B)谓词运算 ( C)集合运算 ( D)代数运算 11 以下为 Visual Basic学习版的控件的是 ( A)数据绑定控件 ( B) ActiveX控件 ( C)自动化管理器 ( D)报表控件 12 下列说法错误的是 ( A) Capti
4、on不是只读属性,运行时对象的名称可以通过代码改变 ( B)设置 Height或 Width的数值单位为 twip, 1twip=1/10point ( C) Icon属性用来设置窗体最小化时的图标 ( D) 用来激活属性窗口的快捷键是 F4键 13 如果设置窗体的 ControlBox属性值为 False,则 ( A) ControlBox 仍起作用 ( B)运行时还可以看到窗口左上角显示的控制框,可以单击该控制框进行窗体的移动和关闭等操作 ( C)窗口边框上的最大化和最小化按钮失效 ( D)窗口边框上的最大化和最小化按钮消失 14 在 PasswordChar属性中设置 #,但运行时仍显示
5、文本内容,原因是 ( A)文本框的 Locked 属性设置为 False ( B)文本框的 Locked 属性设置为 Tree ( C)文本 框的 Multiline的属性设置为 Fasle ( D)文本框的 Multiline的属性设置为 True 15 下列程序运行结果是 a=25: b=-45 i=Not a=b Print i ( A) -45 ( B) True ( C) 0 ( D)不能输出 16 如果一个变量未经定义就直接使用,则该变量的默认类型为 ( A) Variant ( B) Byte ( C) Boolean ( D) Integer 17 下列说法中,不正确的是 (
6、A) Cls方法中的对象,可以是窗体或图片框,如果省 略则清除当前窗体中显示的内容。 ( B)当前窗体中用 Picture属性装入的图形,不可以用 Cls方法清除 ( C) Move方法用来移动窗体和控件,不能改变大小 ( D) Cls可以清除由 Print方法显示的文本,并把光标移到对象的左上角 (0, 0) 18 在窗体上有个命令按钮,然后编写如下事件过程 m=InputBox(“enter the first integer“) n=InputBox(“enter the second integer“) Print n+m 程序运行后,单击命 令按钮,先后在两个输入框中分别输入 “1”
7、和 “5”,则输出结果为 ( A) 1 ( B) 51 ( C) 6 ( D) 15 19 当复选框被选中时,复选框的 Value属性的值为 ( A) 0 ( B) 1 ( C) 2 ( D) 5 20 当一个命令按钮的 Default属性为 True时,按何键与单击该命令按钮作用相同 ( A) Insert ( B)回车 ( C) Break ( D) Shift 21 下列程序段执行结果为 m=5 n=-6 If Not X 0 Then m=n-3 Else n=m+3 Print m-n;n-m ( A) -3 3 ( B) 5-9 ( C) 3-3 ( D) -65 22 下列程序段
8、的执行结果为 a=1 b=2 For I=1 To 3 f=a * b a=b b=f Print f Next I ( A) 2 3 6 ( B) 2 4 8 ( C) 2 3 4 ( D) 2 2 8 23 执行下面的程序后,输出的结果是 p=1 For j=1 To 4 p=p - 1:q=0 For k=1 To 4 p=p + 1: q=q + 1 Next k Next j Print p; q ( A) 1 4 ( B) 13 4 ( C) 12 8 ( D) 206 24 以下程序的输出结果为 Dim i, c(10), p(3) k=5 For i=0 To 10 c(i)
9、=i Next i For i=0 To 2 p(i) = c(i * (i + 1) Next i For i=0 To 2 k=k+p(i) * 2 Next i Print k ( A) 20 ( B) 21 ( C) 56 ( D) 32 25 下列程序段,在运行时最后输出的内容是 a=2 c=3 AAA: c=c * a If c 10 Then Print c GoTo AAA Else Print“10以内的奇数显示完毕 ” End If ( A) 3 ( B) 7 ( C) 9 ( D) 10以内的奇数显示完毕 26 使用语句 Dim F(2)As Integer声明数组 F之
10、后,以下说法正确的是 ( A) F数组中所有元素值都为 Empty ( B) F数组中的所有元素值不确定 ( C) F数组中的所有元素都为 0 ( D)执行 EraseF后, F数组中所有元素值都不为 0 27 要想在过程调用中返回两个结果,下面的过程定义语句合法的是 ( A) Sub Submit(ByVal n, ByVal m) ( B) Sub Submit(n, ByVal m) ( C) Sub Submit(n, m) ( D) Sub Submit(ByVal n, m) 28 单击一次命令结束后,下列程序的执行结果是 Private Sub Commandl_Click( )
11、 s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i Sat=Sum End Function ( A) 15 ( B) 25 ( C) 35 ( D) 45 29 有如下程序: Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer, m As Stri
12、ng Static y, n X=X + 1 y=y + 1 m=m “str2=“; str2 End Sub Function YAG (a()As Integer) Dim T#, i t=1 For i=LBound(A)To UBound(A) t=t * a(i) Next i YAG =t End Function 44 在窗体上有几个对象,运行程序时,当 对象得到焦点时,会触发【 】事件,当对象失去焦点时将触发【 】事件。 45 下面的程序的作用是利用随机函数产生 10个 100-300(不包含 300)之间的随机整数,打印其中 7的倍数的数,井求它们的总和,请填空。 Sub
13、TOF( ) Randomize Dim s As Double Dim a(10) As lnteger For i=0 To 9 【 】 Next For i=0 To 9 If【 】 Then Print a(i) s=s+a(i) 【 】 Next i Print Print “S=“ ; s End Sub VB 笔试模拟试卷 9答案与解析 1 【正确答案】 C 【试题解析】 逻辑结构反映数据元素之间的逻辑关系,线性结构表示数据元素之间一对一的关系,非线性结构表示数据元素之间一对多或多对一的关系。线性结构和非线性结构是根据数据元素之间关系的不同特性加以分类的,即是从逻辑上加以分类的。
14、 2 【正确答案】 C 【试题解析】 栈是一种后进先出表,选项 C中,先出栈的是 3,说明此时栈内 必然有 1, 2,由于 1先于 2进栈,所以 1不可能在 2之前出栈,故选项 C这种出栈序列是不可能的。 3 【正确答案】 A 【试题解析】 希尔排序法的基本思想是:将整个无序序列分割成若干小的子序列分别进行插入排序。 4 【正确答案】 C 【试题解析】 二分法查找是用查找的关键码与线性表的中间元素比较,然后根据比较结果来判断是结束查找,还是在左边或者右边子表按相同的方法继续查找。本题中,与 11比较的关键码分别为 15, 8, 10, 12,故比较次数为 4。 5 【正确答案】 C 【试题解析
15、】 在 n个结点的单向链表 (无表头结点 )中,每个结点都有一个指针单元 (即指针域 ),加上头指针,至少需要 n+1个指针单元。 6 【正确答案】 B 【试题解析】 从工程管理角度来看,软件设计分两步完成:概要设计和详细设计。概要设计 (又称结构设计 )将软件需求转化为软件体系结构、确定系统级接口、全局数据结构或数据库模式。 7 【正确答案】 D 【试题解析】 内聚性是一个模块内部各元素间彼此结合的紧密程度的度量。内聚是从功能角度来度量模块内的联系。内聚共有 7类,它们之的内聚性由弱到强排列顺序为:偶然内聚、逻辑内聚、时间内聚、过程内聚、通信内聚、顺序内聚和功能内聚。 8 【正确答案】 D
16、【试题解析】 数据流图有 4种成分:源点或终点、处理、数据存储和数据流。数据存储是处于静止状态的数据,数据流是处于运动小的数据。 9 【正确答案】 D 【试题解析】 数据模型应该反映和规定本数据模型必须遵守的、基本的、通用的完整性约束条件。完整性规则是给定的数据模型中数据及其联系所具有的制约和依存规则,用以限定符合数据模型的数据库状态及其状态的变化,以保证数据的正确性、有效性和相容性。 10 【正确答案】 C 【试题解析】 关系代数足以集合代数为基础发展起来的,它是以关系代数作为运算对象的一组高级运算的集合。它的基本操作是并、交、差、笛卡尔积,另外还包括针对数据库环境专门设计的操作,包括对关系
17、进行垂直分割 (投影 )、水平分割(选择 )、关系的结合 (连接 )等。 11 【正确答案】 A 【试题解析】 Visual Basic 学习版中包括内部控件、网格控件、数据绑定控件和 Tab 对象,所以数据绑定控件是 Visual Basic学习版中的控件;报表控件为专业版中的控件;而自动化管 理器是企业版的控制系统。 12 【正确答案】 B 【试题解析】 Caption 不是只读属性,在设计阶段可以在属性窗口中改变,也可以用代码在运行时改变,不同的运行状态可以有不同的 Caption属性值,所以选项 A)是正确的; Height和 Width的默认的单位是 twip, 1twip等于 1/
18、1440英寸,是 1点的 1/20,故选项 B)是不正确的; Icon 属性是用来设置窗体最小化图标的,所以选项 C)的表述是正确的;用来激活属性窗口的快捷键是 F4 键,所以选项 D)也是正确的。 13 【正确答案】 D 【试题解析】 如果窗体的 ControlBox 属性设置为 False,则窗口边框上的按钮都消失,选项 D)正确;并且窗口左上角的控制按钮也消失,不能用控制框来进行窗体的移动和关闭等操作,所以选项 B)是错误的;此时 ControlBox属性不起作用,所以选项 A)也是错误的。 14 【正确答案】 D 【试题解析】 选项 A)和 B)中, Locked 属性是决定控件是否失
19、效,不符合本题的本意;而 MultiLine属性决定文本框是否可以输入多行文本,如果设置为 True,则 Pass- wordChar失效,所以选项 C)错 误,选项 D)正确。 15 【正确答案】 B 【试题解析】 这是关于运算符优先级的实例,在该题中,从右到左优先级依次降低,先把变量 b 的值赋值给变量 a,再进行非运算,然后再把结果赋值给 i,所以正确答案为选项 B)。 16 【正确答案】 A 【试题解析】 在 Visual Basic中,系统提供了多种数据类型,有字符串类型、数值型、货币型、布尔型,日期型等,此外还有一种变体类型, Variant是一种特殊的数据类型, Variant变
20、量中可以存放任何类型的数据,如数值、文本字符串、日期和时间等,向 Variant变量赋值时不必进行任何转换,系统将自动进行必要的转换。如果变量未经定义就直接使用,则该变量为 Variant类型。 17 【正确答案】 C 【试题解析】 在 Visual Basic中,可以用 Cls方法清除用 Print方法在窗体显示的文本或图片框中显示的图形,并把光标定位到对象的左上角,所以选项 D)是正确的; Cls方法不能清除用 Picture属性装入的图形,所以选项 B)是正确的;用Move方法可以移动控件和窗体,并可以调节对象的大小,所以选项 C)不正确;Cls方法中的对象可以是窗体或图片框 ,如果省略
21、对象,则清除当前窗体内显示的内容,所以选项 A)正确。 18 【正确答案】 B 【试题解析】 在默认的情况下, InputBox的返回值是一个字符串,而不是变体类型。如果没有事先声明返回值变量的类型,或声明为变体类型,则当把函数的返回值赋给这个变量时, Visual Basic将是把它作为字符串来处理。因此当需要用InputBox 函数输入数据,并且需要输入的数值参加运算时,必须在进行运算前用Val函数 (或其他函数 )把它转换为相应类型的数值,否则有可能会得到不正确的结果。如果正确地声明了返回值的 变体类型,则可不必进行类型转换;由于本题没有事先声明 m、 n 变量,所以, m、 n 所获得
22、的为字符 “1”和 “5”,所以输出 n+m时是 “51”。 19 【正确答案】 B 【试题解析】 复选框也称检查框,它的 Value属性值可以设置或返回 0, 1, 2。 0:表示没有选中复选框。 1:表示选中该复选框。 2:表示该复选框被禁止,显示为灰色。 20 【正确答案】 B 【试题解析】 在一个窗体中,只能有一个命令按钮的 Default 属性设为 True,当一个命令按钮的 Default属性被设置为 True时,单击该命令按钮与按回车键的作用是相同的。 21 【正确答案】 A 【试题解析】 把程序具体分析一下,可得:程序开始时分别执行 m, n 赋值 5, - 6。 If语句 N
23、ot m 0相当于 m =0,现在 m得值为 5比 0大,所以条件值为False,执行 Else语句 n=m+3,此时 n 为 8,执行 Print方法,即输出 m-n 和 n-m的值, m-n=-3, nm=3 ,所以最后输出结果应该如选项 A)所示。 22 【正确答案】 B 【试题解析】 本题考查的是 For循环结构语句,程序段的运行过程为:开始a=1, b=2。 For循环中步长缺省值为 1,循环变量 I的初值为 1,终值为 3,所以此循环结构可以循环 3次。 第一次循环后,结果为: f=2, a=2, b=2; 第二次循环后,结果为: f=4, a=2, b=4; 第三次循环后,结果为
24、: f=8, a=4, b=8; 所以每循环一次,便输出 f当前值,循环 3次即便输出 3个 f值分别为 2, 4,8。 23 【正确答案】 B 【试题解析】 本题是一个多重循环语句,是 ForNext 结构的两重迭用,根据“拔皮法 ”,一层一层分析可知,最后 p=13, q=4。 24 【正 确答案】 B 【试题解析】 第一个循环对数组 c( )进行赋值,第二个循环对数组 p( )进行赋值,第三个循环对 k 进行累加, k的初值等于 5,第一次循环 k=k+p(0)*2=5 ,第三次循环 k=k+p(2)*2=21 并输出。 25 【正确答案】 D 【试题解析】 在本题中使用了 If 语句与
25、 GoTo语句,来控制结构。当 c 10时输出 c,并继续运行;当大于 10时,显示 “10以内的奇数显示完毕。 ”并结束程序。因为 c =c*a,c和 a都是正数,总有大于 10的时候,所以最后输出的一定是 “10以内的奇数显示完 毕 ”。 26 【正确答案】 C 【试题解析】 所谓数组就是能够保存具有数据类型的多个数值的存储空间,当声明一个数组后,在没有给它赋值前,整型数组中的所有元素值为 0,所以 C)是正确的; Erase语句的作用是释放动态数组所占的内存空间,所以 D)选项也不正确。 27 【正确答案】 C 【试题解析】 题目的意思是在调用过程后,返回两个结果,那么定义此过程时,应设
26、两个参数,且参数传递应用传址方式,也就是引用,而 “ByVal“关键字加在形参前面,则表示形参与实参结合方式为传值。所以, 4个选项中只有 选项 C)符合题意。 28 【正确答案】 C 【试题解析】 在被调用过程中,有这样的语句 “StaticSum”,因为变量 Sum是局部变量,局部变量除了可以用 Dim语句声明外,还可用 Static语句将变量声明为静态变量,它在程序运行过程中可保留变量的值。具体过程分析如下: 调用 Sat(1),在被调过程中 N=1,执行 For Next循环, Sat(1)=Sum=1; 调用 sat(2),在被调过程中 N=2,执行 For Next循环, Sat(
27、2)=Sum=4; 调用 Sat(3),在被调过程中 N=3,执行 For Next循环, Sat(3)=Sum=10; 调用 Sat(4),在被调过程中 N=4,执行 For Next循环, Sat(4)=Sum=20; 不难看出,最后输出的结果 S值应为 1+4+10+20=35,所以选项 C)是正确的。 29 【正确答案】 D 【试题解析】 当 i=1时,调用函数过程 DS,由于 y, n为静态变量值保存,执行x =x+1; y=y + 1后 x=1, y=1执行 m=m &“*“: n=n&“#“后, m=“*“, n =“#“;当 I=2时同上,只是 y=2, n=“#“。输出结果
28、如选项 D)所示。 30 【正确答案】 C 【试题解析】 事件过程 N的作用是输出两个数中最大的,它调用了 IIF函数,条件部分是 (x y),如果满足,那么 N的值即为 x的值,否则为 y的值。在 Sub 过程中,定义了两个变量 a, b,并赋给它们初值 15, 2,并调用 Print函数,输出N(a, b)的值,因为 x y,所以输出 15。 31 【正确答案】 A 【试题解析】 第一次调用被调过程 Gopd,主调过程把实参 x, x, z的地址分别传给形参 x, y, z,此时形参 x, y, z值分别为 4, 4和 3,执 行语句 x=3 * z+1后,形参 x值变为 10,此时相对应
29、的实参 x也变为 10执行语句 y=2*z后,形参 y值变为 6,则相对应的实参 x值变为 6;执行 z=x+y后 ,形参 z值应为 12,当然这次调用后,程序代码输出的数值为 6, 6, 12;第二次调用被调过程 Gopd,主调过程把实参 x, x, z的地址分别传给形 参 x, y, z,此时实参 x的值为 6而不是1,所以此时形参 x, y, z值分别为 6, 2和 2,执行语句 x=3*z+1 后,形参 x值为7,相对实参 x值也相应的变 为 7;执行语句 y=2*z后,形参 y 值变为 4,相应的实参 y值也变为 4;执行 x=x+y后,形参 z值变为 11,相应的实参 y的值变为1
30、1,而形参 y和 z的地址 相同,最后它们值都应为 11,所以此次调用后,程序输出的数值为 7, 11和 11。 32 【正确答案】 C 【试题解析】 事件过程是测试两个参数 (KeyCode和 Shift)是否同时满足给定的条件,如果满足则输出相应的信息;题目中是同时按下转换键 Ctrl 和功能键 F6,所以满足给定的条件,则输出信息 Press Ctrl+F6,故正确的答案是选项 C)。 33 【正确答案】 A 【试题解析】 首先,设置标题属性用 Dialog Title属性, 4个选项都一样,所以这个不是区别;再看方法,选项 A)用的是 ShowOpen方法, 即打开对话框,所以是正确的
31、;选项 B)用的是 ShowFont方法,是字体设置对话框,不符合本题的意思,不正确;选项 C)用的是 Show方法,但是 对话框没有此方法,所以也不正确;最后选项 D)是用的 ShowColor方法,是颜色选择对话框,不符合本题的意思。 34 【正确答案】 A 【试题解析】 此题考核的是有关菜单的基础知识。菜单分为下拉式菜单和弹出式菜单两种。要打开某界面上的菜单,首先要进入该界面 ,此处 界面上指窗体,所以菜单总与窗体相关联。 Visual Basic中有专门的设计菜单环境,那就是菜单编辑器,可以用菜单编辑器设计用户需 要的菜单,方便用户的操作。 35 【正确答案】 B 【试题解析】 打开文
32、件的命令是 Open,其常用的形式如下: Open“文件名 ”For模式 As #文件号 Len=记录长度 ;因为本题是要新建一个文件,所以在 For后面的 “模式 ”为 “Output,它的意思是为了写操作而建立文件 (打开文件 ),而模式为“Input”时,该文件必须已经存在,否则,会产生一个错误。所以选 项 D)和选项 C)不正确;文件名必须是文件地址的全称,因为文件在 D盘目录下,所以要在文件名中出现 “D: ”字符,所以选项 A)也不正确,正确的只有选项 B)。 36 【正确答案】 交换排序 【试题解析】 常见的排序方法有插入排序 (包括简单插入排序法和希尔排序法等 )、交换排序 (
33、包括冒泡排序和快速排序法等 )和选择排序 (包括简单选择排序和堆排序等 )。注意:常见的排序方法及其作用机制和区别。 37 【正确答案】 上溢 【试题解析】 入队运算是指在循环队列的队尾加入一个新元素。这个运算有两个基本操作:首 先将队尾指针进一 (即 rear=rear + 1),并当 rear=m + 1 时置rear=1;然后将新元素插入队尾指针指向的位置。当循环队列非空 (s=1)时且队尾指针等于队头指针时,说明循环队列已满,不能进行入队运算,这种情况称为 “上溢 ”。 38 【正确答案】 封装 【试题解析】 面向对象技术中包括以下几个基本概念,即对象、类、方法、消息、继承和封装,其中
34、封装是一种信息隐蔽技术,目的在于将对象的使用者对象的和设计者分开。 39 【正确答案】 输出结果 【试题解析】 注意:测试的基本方法和步 骤。 40 【正确答案】 关系运算 【试题解析】 在关系模型的数据语言中,一般除了运用常规的集合运算, (并、交、差、笛卡尔积等 )外,还定义了一些专门的关系运算,如投影、选择、连接等。前者是将关系 (即二维表 )看成是元组的集合,这些运算主要是从二维表的行的方向来进行的;后者主要是从二维表的列的方向来进行的运算。两者统称为关系代数。 41 【正确答案】 Shift或 Ctrl 【试题解析】 有时候,可能需要对多个控件进行选择,例如移动多个控件、删除多个控件
35、等。选择多个控件有两种方法,一种是,按住 Shift键或 Ctrl键,不要松开,然后单击每个要选择的控件;另一种是,把鼠标光标移动到窗体中适当得位置,然后拖动鼠标画出一个虚线矩形,在该矩形内的控件即被选择。注意:控件的画法。 42 【正确答案】 指数 【试题解析】 浮点数也称实型数或实数,是带有小数部分的数值,它由 3部分组成:符号、指数和尾数。单精度浮点数和双精度浮点数的指数分别用 “E”(或 “e”)和“D”(或 “d”)来表示。注意:用户自定义的数据类型。 43 【正确答案】 strl=24 str2=720 【试题解析】 程序首 先调用循环语句为数组 a、 b赋值,其中 a(i)=I;
36、 b(i)=I,且数组 a的上下界分别为 1和 4,数组 b的上下界分别为 2和 6;接着将数组 a作为参数调用 YAG过程,在 YAG过程中,定义了两个变量 t及 I, I作为循环语句For的变量,它的初始值和终值分别为数组的上下界,循环体为 t=t * a(i),即将a(i)的值乘以 t,然后再赋给 t,当循环结束后,程序返回的就是数组 a中的各元素的积;同理程序将注意:对象参数。数组 b 作为参数传递给 YAG过程后返回数组b 中各元素的积,运行程序结束后,输出结果为: strX=24 str2=720。 44 【正确答案】 GotFocus , LostFocus 【试题解析】 在 V
37、isual Basic中,焦点是接收用户鼠标或键盘输入的能力,当对象得到焦点时,它可以接收用户的输入;当得到焦点时会触发 GotFocus 事件,当失去焦点时会触发 LostFocus 事件。注意: SetFocus 方法的使用。 45 【正确答案】 a(i)=Int(Rnd * 200+100) , a(i) Mod 7=0 , End If 【试题解析】 求随机数要用到随机函数 Rnd,所以在程序中调用了 Rnd函数,100 300之间的随机函数表示为: a(i)=Int(Rnd * 200+100);求某个数的倍数要用到取模运算符 Mod,本题中求 7的倍数,所以表示为: a(i) Mod 7=0;对于条件语句,有 If开头的必须有 End If结尾, Select Case开头的,必须要用 End Select结尾,所以本题中应添加 End If。