1、二级 VISUAL+BASIC-65 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列链表中，其逻辑结构属于非线性结构的是_。（分数：2.50）A.二叉链表B.循环链表C.双向链表D.带链的栈2.设循环队列的存储空间为 Q(1:35)，初始状态为 front=rear=35。现经过一系列入队与退队运算后，front=15，rear=15，则循环队列的元素个数为_。（分数：2.50）A.15B.16C.20D.0 或 353.下列关于栈的叙述中，正确的是_。（分数：2.50）A.栈底元素一定是最后入栈的元素B.栈顶元素一定是最先入栈的元
2、素C.栈操作遵循先进后出的原则D.以上三种说法都不对4.在关系数据库中，用来表示实体间联系的是_。（分数：2.50）A.属性B.二维表C.网状结构D.树状结构5.公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员。则实体部门和职员间的联系是_。（分数：2.50）A.1:1 联系B.m:1 联系C.1:m 联系D.m:n 联系6.有两个关系 R 和 S 如下： （分数：2.50）A.选择B.投影C.自然连接D并7.数据字典(DD)所定义的对象包含于_。（分数：2.50）A.数据流图(DFD 图)B.程序流程图C.软件结构图D.方框图8.软件需求规格说明书的作用不包括_。
3、（分数：2.50）A.软件验收的依据B.用户与开发人员对软件要做什么的共同理解C.软件设计的依据D.软件可行性研究的依据9.下列属于黑盒测试方法的是_。（分数：2.50）A.语句覆盖B.逻辑覆盖C.边界值分析D.路径分析10.下列不属于软件设计阶段任务的是_。（分数：2.50）A.软件总体设计B.算法设计C.制定软件确定测试计划D.数据库设计11.以下叙述中错误的是_。（分数：2.50）Avbp 文件是工程文件，一个工程可以包含.bas 文件Bfrm 文件时窗体文件，一个窗体可以包含.bas 文件Cvbp 文件是工程文件，一个工程可以由多个.frm 文件组成Dvbg 文件是工程组文件，一个工程
4、组可以由多个工程组成12.以下叙述中错误的是_。（分数：2.50）A.在 Visual Basic 的窗体中，一个命令按钮是一个对象B.事件是能够被对象识别的状态变化或动作C.事件都是由用户的键盘操作或鼠标操作触发的D.不同的对象可以具有相同的方法13.设 x=3.3，y=4.5，表达式 x-Int(x)+Fix(y)的值是_。（分数：2.50）A.3.5B.4.8C.4.3D.4.714.窗体上有一个名称为 command1 的命令按钮，其中部分代码如下： Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer Ca
5、ll calc(a,n) End Sub CaIc 过程的首行应该是_。（分数：2.50）A.Sub calc(x() As Integer, n As Integer)B.Public Sub calc(x() As Integer)C.Private Sub calc(a(n)As Integer, n As Integer)D.Public Sub calc(a As Integer, n As Integer)15.设有如下程序： Sub f(x As Integer, ByVal y As Integer) x=2*x y=y+x End Sub Private Sub Comman
6、d1_Click() Dim a As Integer, b As Integer a=6:b=35 Call f(a,b) Print a,b End Sub 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：2.50）A.6 47B.12 47C.6 35D.12 3516.以下叙述中正确的是_。（分数：2.50）A.窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B.在工程中只有启动窗体可以建立菜单C.窗体名称必须与窗体文件的名称相同D.程序一定是从某个窗体开始执行的17.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程代码如下： Private Su
7、b Command1_Click() Static x As Variant n=0 x=Array(1,2,3,4.5,6,7,8,9,10) While n=4 x(n)=x(n+5) Print x(n) n=n+1 Wend End Sub 运行程序，单击命令按钮 Command1，窗体上显示的是_。（分数：2.50）A.1 2 3 4 5B.6 7 8 9 10C.2 3 4 5 6D.6 2 3 4 518.窗体上有一个名称为 Label1 的标签和一个名称为 Command1 的命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() x=
8、InputBox(“输入 x:“,0) y=InputBox(“输入 y:“,0) Label1.Caption=x+y End Sub 运行程序，单击命令按钮，在输入对话框中分别输入 2、3，运行的结果是_。（分数：2.50）A.程序运行有错误，数据类型不匹配B.程序运行有错误，InputBox 函数的格式不对C.在 Label1 中显示 5D.在 Label1 中显示 2319.窗体上有一个名称为 Shape1 的形状控件和由三个命令按钮组成的名称为 cmdDraw 的控件数组。窗体外观如下图所示(从上到下的 3 个命令按钮的下标值分别为 0、1、2)。有事件过程如下： （分数：2.50）
9、A.Case 2 分支有错，此 Case 后面表达式的值应该与赋给 Shape1.Shape 的值一致B.程序运行有错，控件数组的下标应该从 1 开始C.Index 是形状控件的参数D.程序正常运行，形状控件被显示为圆形20.如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如 9632 是降序数，而 8516 则不是降序数)，现编写如下程序，判断输入的正整数是否为降序数。 Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n=InputBox(“输入一个正整数“) s=Trim(Str(n) For i=2
10、 To Len(s) If Mid(s,i-1,1)Mid(s,i,1) Then Exit For Next If i=Len(s) Then flag=True Else flag=False If flag Then Print n; “是降序数“ Else Print n; “不是降序数“ End If End Sub 运行以上程序，发现有错误，需要剥给 flag 变量赋值的 If 语句进行修改。以下正确的修改是_。（分数：2.50）A.If i=Len+1 Then flag=False Else flag=TrueB.If i=Len+1 Then flag=True Else f
11、lag=FalseC.If i=Len-1 Then flag=False Else flag=TrueD.If i=Len-1 Then flag=True Else flag=False21.现有以下程序： Private Sub Command1_Click() c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 ElseIf i Mod 7=0 Then c2=c2+1 End If Next Print c1+c2 End Sub 此程序运行后输出的是 1100 范围内_。（分数：2.50）A.同时能被 3 和 7 整除的整数个数B.
12、能被 3 或 7 整除的整数个数(同时被 3 和 7 整除的数只记一次)C.能被 3 整除，而不能被 7 整除的整数个数D.能被 7 整除，而不能被 3 整除的整数个数22.设菜单编辑器中的各菜单项的属性设置如下表所示： 序号 标题 名称 复选 有效 可见 内缩符号 1 File File 无 2 Open OpenFile 1 3 Save SaveFik 1 4 Exit EndOfAll 1 5 Help ShowHelp 1 针对上述属性设置，以下叙述中错误的是_。（分数：2.50）A.属性设置有错，存着“标题”与“名称”重名现象B.运行程序，序号为“3”的菜单项不显示C.运行程序，序
13、号为“4”的菜单项不可用D.运行程序，序号为“5”的菜单项前显示“”23.窗体上有一个名称为 Command1 的命令按钮，并有如下程序： Private Sub Command1_Click() x=15 Do While x0 x=x-3 x=IIf(Int(x/5)=x/5,x+2,x) Loop Print x End Sub 程序运行后，单击命令按钮 Command1，输出结果是_。（分数：2.50）A.0B.-1C.-2D.-324.以下关于通用对话框的叙述中，错误的是_。（分数：2.50）A.若没有指定 InitDir 属性值，则起始目录为当前目录B.用一个通用对话框控件可以建立
14、几种不同的对话框C.FileTitle 属性指明了文件对话框中所选择的文件名D.文件对话框属性 FilterIndex 指定默认过滤器，它是一个从 0 开始的整数25.窗体上有一个名称为 Command1 的命令按钮，并有如下程序： Private Sub Command1_Click() Dim m As Integer,n As Integer m=InputBox(“输入第一个数“) n=InputBox(“输入第二个数“) Do While mn Do While mn m=m-n Loop Do While nm n=n-m Loop Loop Print m End Sub 该程序
15、的功能是_。（分数：2.50）A.求数值 m 和 n 的最大公约数B.求数值 m 和 n 的最小公倍数C.求数值 m 和 n 中的较大数D.求数值 m 和 n 中的较小数26.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程及有关函数过程如下： Private Sub Command1_Click() Dim n As Integer n=add(5,10) Print n End Sub Function add(v1 As Integer,v2 As Integer，Optional v3)As Integer If Not IsMissing(v3)Then add=v1
16、+v2+v3 Else add=v1+v2 End If End Function 运行程序，单击命令按钮，以下叙述中正确的是_。（分数：2.50）A.程序不能正常运行，因为函数 add 的参数定义有错B.程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配C.程序能正常运行，结果是在窗体上显示 15D.程序能正常运行，结果是在窗体上显示 510v327.目录列表框 Path 属性所表示的含义是_。（分数：2.50）A.当前驱动器或指定驱动器上的路径B.当前驱动器或指定驱动器上的某目录下的文件列表C.根目录下的文件列表D.指定路径下的文件列表28.以下关于函数过程的叙述中错误的是_。（
17、分数：2.50）A.函数过程一定有返回值B.函数过程一定有参数C.函数过程可以在窗体模块和标准模块中定义D.函数过程参数的类型与返回值的类型无关29.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Public Enum s a=4 b=3 End Enum Private Sub Command1_Click() Dim x As Integer x=a If x=3 Then MsgBox “Pass!“ End Sub 运行程序，其结果是_。（分数：2.50）A.运行错误，因为 Enum 定义有错B.运行错误，因为 x=a 类型不匹配C.运行正常结束，不显示任何信
18、息D.运行正常，显示内容为“Pass!”的信息框30.设有如下程序： Option Base 1 Private Sub Form_Click() Dim a(5) As String, i As Integer For i=1 To 5 a(i)=Chr(Asc(“A“)+i) Call f(a,i) Next i End Sub Sub f(ta() As String, n As Integer) Dim i As Integer For i=1 To n Print ta(i) Next i Print End Sub 对上述程序，以下叙述中正确的是（分数：2.50）A.程序有错，因为
19、在过程 f 的定义中数组参数格式不正确B.程序可正常运行，输出内容的第一行是一个字母“A”C.程序可正常运行，输出内容的第一行是一个字母“B”D.程序可正常运行，输出内容的第一行是数字 6531.窗体上有一个名称为 Picture1 的图片框控件，一个了名称为 Timer1 的计时器控件，其 Interval 属性值为 1000。要求每隔 5 秒图片框右移 100。现编写程序如下： Private Sub Timer1_Timer() Static n As Integer n=n+1 If(n/5)=Tnt(n/5)And Picture1. LeftForm1.Width Then Pic
20、ture1.Left=Picture1.Left+100 End If End Sub 分析以上程序，以下叙述中正确的是_。（分数：2.50）A.程序中没有设置 5 秒的时间，所以不能 5 秒移动图片框一次B.此程序运行时图片框位置保持不动C.此程序运行时图片框移动方向与题目要求相反D.If 语句条件中的“Picture1.LeftForm1.Width”用于限制图片框移动的范围32.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Intege
21、r Dim s As Double s=0:i=1:j=0:k=-1 Do While i6 s=s+k*(j/i) i=i+1 j=j+1 k=-k Loop Print s End Sub 以上程序所计算的表达式是_。（分数：2.50）A.1/2-2/3+3/4-4/5B.-1/2+2/3-3/4+4/5C.1-1/2+2/3-3/4+4/5D.-1+1/2-2/3+3/4-4/533.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim a,b(2,3)As Integer a=Array(3,7,5,1
22、1,31,43,17,62,9,23,37,41) i=0 Do While i=Ubound(a) For j=0 To 2 For k=0 To 3 b(j,k)=a(i) i=i+1 Next Next Loop Print b(2,2) End Sub 运行程序，窗体上显示的是_。（分数：2.50）A.43B.17C.37D.2334.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1_Click() Dim s As String Open “c:/File1.txt“ For Input As #1 Open “c:/Fil
23、e2.txt“ For Input As #2 Do While Not EOF(1) Input #1,s Print #2,s Loop Close #1,#2 End Sub 关于上述程序，以下叙述中错误的是_。（分数：2.50）A.程序把 File1.txt 文件的内容存放到 File2.txt 文件中B.程序中打开了两个随机文件C.程序中打开了两个顺序文件D.“EOF(1)”中的“1”对应于 File1.txt 文件35.以下关于文件及相关操作的叙述中错误的是_。（分数：2.50）A.以 Append 的方式打开的文件可以进行读写操作B.文件记录的各个字段的数据类型可以不同C.随机文
24、件各记录的长度是相同的D.随机义件可以通过记录号直接访问文件中的指定记录36.设 a=4，b=3，c=2，d=1，下列表达式的值是_。 ab+1 Or cd And b Mod c（分数：2.50）A.TrueB.1C.-1D.037.以下可以作为 Visual Basic 变量名的是_。（分数：2.50）A.A#AB.counstAC.3AD.AA38.设 x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是_。（分数：2.50）A.Print A=x+yB.Print “A=“;x+yC.Print “A=“+Str(x+y)D.Print “A=“ “是降序数“ Else Pri
25、nt n; “不是降序数“ End If End Sub 运行以上程序，发现有错误，需要剥给 flag 变量赋值的 If 语句进行修改。以下正确的修改是_。（分数：2.50）A.If i=Len+1 Then flag=False Else flag=TrueB.If i=Len+1 Then flag=True Else flag=False C.If i=Len-1 Then flag=False Else flag=TrueD.If i=Len-1 Then flag=True Else flag=False解析：解析 判断一个数是否是降序数，则需要按从高位到低位的顺序，从该数的第 2
26、位开始，依次与前一位相比，也就是第 2 位与第 1 位比较，第 3 位与第 2 位比较，以此类推，如果后一位比前一位大，则不符合要求，退出。题目中的 For 语句即是该功能的实现。当最后一位比较完，并且比前一位小，说明该数为降序数，此时 i 的值变为 Len(s)+1；如果比前一位大。则说明该数不是降序数，直接退出 For 语句，i 的值仍未为 Len(s)。对于降序数，执行完 For 语句后，i 的值为 Len(s)+1，此时通过 If 语句进行判断，如果 i 的值等于 Len(s)+1，则是降序数，flag=True；否则不是降序数，flag=False。21.现有以下程序： Privat
27、e Sub Command1_Click() c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 ElseIf i Mod 7=0 Then c2=c2+1 End If Next Print c1+c2 End Sub 此程序运行后输出的是 1100 范围内_。（分数：2.50）A.同时能被 3 和 7 整除的整数个数B.能被 3 或 7 整除的整数个数(同时被 3 和 7 整除的数只记一次) C.能被 3 整除，而不能被 7 整除的整数个数D.能被 7 整除，而不能被 3 整除的整数个数解析：解析 在 For 语句中，如果 i 的值能被 3
28、 整除，则 c1 的值加 1；如果 i 的值能被 7 整除，则 c2的值加 1。如果 i 的值同时能被 3 和 7 整除，满足被 3 整除的条件，则只执行 c1=c1+1，不会再执行c2=c2+1，可见，同时被 3 和 7 整除的数只记一次。22.设菜单编辑器中的各菜单项的属性设置如下表所示： 序号 标题 名称 复选 有效 可见 内缩符号 1 File File 无 2 Open OpenFile 1 3 Save SaveFik 1 4 Exit EndOfAll 1 5 Help ShowHelp 1 针对上述属性设置，以下叙述中错误的是_。（分数：2.50）A.属性设置有错，存着“标题”
29、与“名称”重名现象 B.运行程序，序号为“3”的菜单项不显示C.运行程序，序号为“4”的菜单项不可用D.运行程序，序号为“5”的菜单项前显示“”解析：解析 名称则用于标识一个对象，名称不能重复。标题只起显示的作用，标题与名称之间没有联系，两者可以重名。“可见”属性值用于设置菜单项是否显示，“有效性”属性值用于设置菜单项是否可用，所以序号为 1、2、4、5 的菜单项显示，序号为 3 的菜单项不显示；序号为 1、2、3 的菜单项可用，序号为 4、5 的菜单项不用。利用“复选”属性值可以设置菜单项旁的符号是否显示，用于指明某个菜单项是否处于活动状态。23.窗体上有一个名称为 Command1 的命令
30、按钮，并有如下程序： Private Sub Command1_Click() x=15 Do While x0 x=x-3 x=IIf(Int(x/5)=x/5,x+2,x) Loop Print x End Sub 程序运行后，单击命令按钮 Command1，输出结果是_。（分数：2.50）A.0B.-1 C.-2D.-3解析：解析 本题的关键是要读懂 Do While 循环中的 IIf 函数，该函数的条件是 Int(x/5)=x/5。对于正数，Int()函数与 Fix()函数的功能相同，只取整数部分，条件 Int(x/5)=x/5 说明 x/5 与其取整的结果相同，则 x/5 的结果只能
31、是正数，也就是说 x 要能被 5 整除。可见，本题 IIf 函数的功能是判断 x 是否能被 5 整除，如果可以，则 x=x+2；否则，x 的值不变。 x 的初始值为 15，执行 Do While 循环时满足 x0 的条件，执行 x=x-3=12，12 不能被 5 整除，x=12 不变；满足循环条件，第二次执行循环语句，x=9，不能被 5 整除，x=9 不变，以此类推，直到 x=3；x=3，执行循环语句，x=0，能被 5 整除，则 x=2；x=2 依然满足循环条件，执行循环语句，x=-1，不能被 5 整除，x=-1 不变。此时，不满 x0 的循环条件，循环结束，输出 x 的值-1。24.以下关于
32、通用对话框的叙述中，错误的是_。（分数：2.50）A.若没有指定 InitDir 属性值，则起始目录为当前目录 B.用一个通用对话框控件可以建立几种不同的对话框C.FileTitle 属性指明了文件对话框中所选择的文件名D.文件对话框属性 FilterIndex 指定默认过滤器，它是一个从 0 开始的整数解析：解析 InitDir 属性用于指定对话框中显示的起始目录，如果没有设置 InitDir 属性值，则显示当前目录，并不是将起始目录设置为当前目录。25.窗体上有一个名称为 Command1 的命令按钮，并有如下程序： Private Sub Command1_Click() Dim m A
33、s Integer,n As Integer m=InputBox(“输入第一个数“) n=InputBox(“输入第二个数“) Do While mn Do While mn m=m-n Loop Do While nm n=n-m Loop Loop Print m End Sub 该程序的功能是_。（分数：2.50）A.求数值 m 和 n 的最大公约数 B.求数值 m 和 n 的最小公倍数C.求数值 m 和 n 中的较大数D.求数值 m 和 n 中的较小数解析：解析 本题要理解嵌套 Do While 的功能。如果 m 不等于 n，则执行内层循环，退出循环的条件和m=n。输入的 m、n 的
34、值有三种情况：m=n，mn，mn。如果 m=n，则直接跳过循环，输出 m 的值。下面对 mn 的作进一步的分析，mn 的情况与之类似。 mn，循环执行嵌套的第一个循环，m=m-n，直到 m=n，设循环执行了 x 次，则 m=m-xn，令 a=m=m-xn，为执行第一个循环后的 m 值。如果 a=n，有 n=m-xn，整理得 m=(x+1)n，则 m 说明 m 是 n 的整数倍，输出结果为 n。如果 an，执行嵌套的第二个循环，n=n-a，直到 a=n，设循环执行了 y 次，则 n=n-ya，令 b=n-ya，如果 a=b，有 a=n-ya，(y+1)a=n，n/a=y+1，a=m-xn=m-x
35、(y+1)a，m/a=xy+x+1，可见 a 是m、n 的最大公约数。如果 ba，也就是 mn 的情况，继续。 如果认为上述解析难于理解，可代入具体的数据来计算，例如，令 m=24，n=9。26.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程及有关函数过程如下： Private Sub Command1_Click() Dim n As Integer n=add(5,10) Print n End Sub Function add(v1 As Integer,v2 As Integer，Optional v3)As Integer If Not IsMissing(v3)T
36、hen add=v1+v2+v3 Else add=v1+v2 End If End Function 运行程序，单击命令按钮，以下叙述中正确的是_。（分数：2.50）A.程序不能正常运行，因为函数 add 的参数定义有错B.程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配C.程序能正常运行，结果是在窗体上显示 15 D.程序能正常运行，结果是在窗体上显示 510v3解析：解析 参数表中，用关键字 Optional 标识的是可选参数，并通过 IsMissing 函数测试调用时是否传送可选参数。本题 Add 函数过程参数 v3 是可选的。命令按钮的单击事件过程中调用了过程 add，只
37、给了前两个实参值，因此通过 IsMissing 函数判断没有给可选参数 v3 传值，返回 v1+v2 的值作为结果。27.目录列表框 Path 属性所表示的含义是_。（分数：2.50）A.当前驱动器或指定驱动器上的路径 B.当前驱动器或指定驱动器上的某目录下的文件列表C.根目录下的文件列表D.指定路径下的文件列表解析：解析 目录列表框 Path 属性用来设置或返回当前驱动器或指定驱动器的路径。文件列表框则用来显示当前驱动器或指定驱动器上的某目录下的文件列表。28.以下关于函数过程的叙述中错误的是_。（分数：2.50）A.函数过程一定有返回值B.函数过程一定有参数 C.函数过程可以在窗体模块和标
38、准模块中定义D.函数过程参数的类型与返回值的类型无关解析：解析 函数过程即 Function 过程，要通过函数名给出返回值。不管是 Sub 过程，还是 Function过程，参数都不是必须的，根据需要可有可无。29.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Public Enum s a=4 b=3 End Enum Private Sub Command1_Click() Dim x As Integer x=a If x=3 Then MsgBox “Pass!“ End Sub 运行程序，其结果是_。（分数：2.50）A.运行错误，因为 Enum 定义有错B
39、.运行错误，因为 x=a 类型不匹配C.运行正常结束，不显示任何信息D.运行正常，显示内容为“Pass!”的信息框 解析：解析 枚举变量，是用 Enum 类型定义的变量。变量和参数都可以定义为 Enum 类型。Enum 类型中的元素被初始化为 Enum 语句中指定的常数值。所赋给的值可以包括正数和负数，且在运行时不能改变。Enum 语句只能在模块级别中出现。定义 Enum 类型后，就可以用它来定义变量，参数或返回该类型的过程。本题中，枚举类型数据中定义了两个元素 a、b，值分别为 4、3。在 command1 单击事件过程中可以直接使用 a 的值。30.设有如下程序： Option Base
40、1 Private Sub Form_Click() Dim a(5) As String, i As Integer For i=1 To 5 a(i)=Chr(Asc(“A“)+i) Call f(a,i) Next i End Sub Sub f(ta() As String, n As Integer) Dim i As Integer For i=1 To n Print ta(i) Next i Print End Sub 对上述程序，以下叙述中正确的是（分数：2.50）A.程序有错，因为在过程 f 的定义中数组参数格式不正确B.程序可正常运行，输出内容的第一行是一个字母“A”C.
41、程序可正常运行，输出内容的第一行是一个字母“B” D.程序可正常运行，输出内容的第一行是数字 65解析：解析 Option Base 1 语句指定数组的下标从 1 开始。For 语句中，a(i)=Chr(Asc(“A“)+i)用于将大写字母 A 之后的第 i 个字符赋给 a(i)。循环语句共执行了 5 次。第 1 次循环中，i=1，a(1)=“B“，其他元素没有赋值，调用 f 过程，输出前 i 个元素，这里就是 a(1)，即“B”；第 2 次循环中，i=2，a(2)=“C“，调用 f 过程，输出前 2 个元素 a(1)和 a(2)，即 B 和 C；以此类推，第 5 次循环中，i=5，a(5)=
42、“F“，调用 f 过程，输出前 5 个元素值，即“B”、“C”、“D”、“E”、“F”。31.窗体上有一个名称为 Picture1 的图片框控件，一个了名称为 Timer1 的计时器控件，其 Interval 属性值为 1000。要求每隔 5 秒图片框右移 100。现编写程序如下： Private Sub Timer1_Timer() Static n As Integer n=n+1 If(n/5)=Tnt(n/5)And Picture1. LeftForm1.Width Then Picture1.Left=Picture1.Left+100 End If End Sub 分析以上程序，
43、以下叙述中正确的是_。（分数：2.50）A.程序中没有设置 5 秒的时间，所以不能 5 秒移动图片框一次B.此程序运行时图片框位置保持不动C.此程序运行时图片框移动方向与题目要求相反D.If 语句条件中的“Picture1.LeftForm1.Width”用于限制图片框移动的范围 解析：解析 计时控件的 Interval 属性用于设置触发计时器事件的间隔，单位为毫秒，本题设置为1000，即每秒触发计时器事件一次。5 秒的间隔就要触发计时器事件 5 次。在计时器事件中用静态变量 n来记录触发的次数，如果能被 5 的整数倍，则右移 100。题目中给出的程序是正确的。如图图片框移出了窗体的显示区域，
44、则无法看到，因此在条件语句中设置“Picture1.LeftForm1.Width”来限制图片框移动的范围，使其左端不至于看不到。32.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim s As Double s=0:i=1:j=0:k=-1 Do While i6 s=s+k*(j/i) i=i+1 j=j+1 k=-k Loop Print s End Sub 以上程序所计算的表达式是_。（分数：2.50）A.1/2-
45、2/3+3/4-4/5 B.-1/2+2/3-3/4+4/5C.1-1/2+2/3-3/4+4/5D.-1+1/2-2/3+3/4-4/5解析：解析 本题中 k 用于设置正负号，每执行一次循环体变号一次。初始时 s=0，k=-1，i=1，j=0；第 1 次循环，s=0+0=0，i=2，j=1，k=1；第 2 次循环，s=0+1/2=1/2，i=3，j=2，k=-1；第 3 次循环，s=1/2 2/3，i=4，j=3，k=1；第 4 次循环，s=1/2-2/3+3/4，i=5，i=4，k=-1；第 5 次循环时 s=1/2-2/3+3/4-4/5，i=6，j=5，k=1；不满足 i6 的条件，循
46、环结束。其实，通过第 2 次循环的结果就可以判断哪个选项是正确的。33.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim a,b(2,3)As Integer a=Array(3,7,5,11,31,43,17,62,9,23,37,41) i=0 Do While i=Ubound(a) For j=0 To 2 For k=0 To 3 b(j,k)=a(i) i=i+1 Next Next Loop Print b(2,2) End Sub 运行程序，窗体上显示的是_。（分数：2.50）A.43B.1
47、7C.37 D.23解析：解析 Ubound 函数用于计算数组的上界，本题数组的下标从 0 开始，共 12 个元素，所以数组的上界为 11。Do While 循环中 For 循环刚于将 a(i)a(i+11)的值赋给 b(j，k)。当 i=0 时，嵌套 For 循环将 a(0)a(11)的值赋给了 b(0，0)b(2，3)，即 b(0，0)=a(0)，b(0，1)=a(1)，b(0，2)=a(2)，b(0，3)=a(3)，b(1，0)=a(4)，b(1，1)=a(5)，b(2，2)=a(10)，b(2，3)=a(11)，执行完 For 循环，i 的值为 12，退出 Do While 循环。因此
48、 b(2，2)=a(10)=3734.窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1_Click() Dim s As String Open “c:/File1.txt“ For Input As #1 Open “c:/File2.txt“ For Input As #2 Do While Not EOF(1) Input #1,s Print #2,s Loop Close #1,#2 End Sub 关于上述程序，以下叙述中错误的是_。（分数：2.50）A.程序把 File1.txt 文件的内容存放到 File2.txt 文件中B.程序中打开了两个随机文件 C.程序中打开了两个顺序文件D.“EOF(1)”中的“1”对应于 File1.txt 文件解析：解析 很显然，本题选项 B 和 C 是矛盾的，有一个选项必然是错误的。这里就要弄清楚打开随机文件和顺序文件的区别。打开随机文件的一般格式为： Open “文件名称“ For Random As#文件号Len=记录长度 Random 指明打开的是随机文件。打开一个随机文件后即可以进行写操作，也可以进行读操作，不
