1、二级 VISUAL+BASIC 笔试 56 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列程序段的执行结果为 A=0： B=1 Do A=A+B B=B+1 Loop While A10 Print A；B（分数：2.00）A.105B.A BC.01D.10 302.下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt=”abcdef， Print Pat(FirStr) End Sub Private Function Pat(xStr As S
2、tring)As String Dim TempStr As String，strLen As Integer tempStr=” strLen=Len(xStr) i=1 Do While i=Len(xStr)-3 tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1) i=i+1 Loop Pat=tempStr End Function（分数：2.00）A.abcdefB.aPDecdC.fedcbaD.defabc3.阅读下面的程序段： For i=1 To 3 Forj=i To 3 For k=1 To 3 a=a+i Next
3、k Nextj Next i 执行上面的 3 重循环后，a 的值为（分数：2.00）A.3B.9C.14D.304.下面程序运行时，内层循环的循环总次数是 For M=1 To 3 For N=0 TO M1 Next N Next M（分数：2.00）A.6B.5C.3D.45.在窗体中添加一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i
4、 Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是（分数：2.00）A.22B.24C.26D.286.在窗体中添加一个名称为 Command1 的命令按钮、一个名称为 Label1 的标签，编写如下代码： Option Base 1 Private Sub Command1_Click( ) a=Array(23，34，25，46，35) End Sub 过程的功能是求数组 a 中是奇数的元素的个数，并把结果显示在标签中。为实现此功能，省略号处的程序段应该是（分数：2.00）A.For i=0 T0 4 If a(Mod 20 Then b=b+1 End lf N
5、ext i Label1.Caption=bB.For i=0 To 4 If a(Mod2=0 Then b=b+1 End lf Next i Label1.Caption=bC.For i=1 To 5 If a(Mod 2 Then b=b+1 End lf Next i Label1.Caption=bD.For=0 To 5 If a(Mod 2=0 Then b=b+1 End lf Next i Label1.Caption=b7.软件需求分析阶段的工作可以分为四个方面：需求获取、需求分析、编写需求分析说明书和（分数：2.00）A.阶段性报告B.需求评审C.总结D.都不正确8.
6、设有下列二叉树： （分数：2.00）A.ABCDEFB.BDAECFC.ABDCEFD.DBEFCA9.下面程序段的输出结果为 Print“10+20=“ PrintlO+20 Print“20+20=“ PrinflO+20（分数：2.00）A.10+20=30 20+20=40B.10+20= 30 20+20= 40C.10+20 20+20D.10+20=30 20+20= 4010.Sub 过程与 Function 过程最根本的区别是（分数：2.00）A.Sub 过程可以用 Call 语句直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有形参，Sub
7、 过程不可以C.Sub 过程不能返回值，而 Function 过程能返回值D.两种过程参数的传递方式不同11.执行下面的程序段，x 的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub（分数：2.00）A.5B.6C.7D.812.用黑盒技术测试用例的方法之一为（分数：2.00）A.因果图B.逻辑覆盖C.循环覆盖D.基本路径测试13.在窗体中添加一个通用对话框 Commondialog1 和一个命令按钮 Command1，当单击按钮时，打开颜色对话框，能实现此功能的程序段是（分
8、数：2.00）A.Private Sub Command1Click( ) Commondialog1.ShowOpen End SubB.Private Sub Command1_Click( ) Commondialog1.ShowColor End SubC.Private Sub Command1_Click( ) Commondialog1.ShowOpen Commondialog1.ShowFont End SubD.Private Sub Command1_Click( ) Commondialog1.ShowColor Commondialog1.ShowHelp End S
9、ub14.假定窗体上有一个文本框，名为 txt1，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为（分数：2.00）A.Txt1.MultiLine=True Txt1.ScrollBars=0B.Txt1.MuhiLine=True Txt1.ScrollBars=2C.Txt1.MuhiLine=False Txt1.ScrollBars=0D.Txt1.MuhiLine=False Txt1.ScrollBars=315.在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click( ) Forj=1 To 3 Pr
10、int Tab(3*j)11*(2*j-1)； Next j Print End Sub 程序的执行结果为（分数：2.00）A.11B.33C.11 33D.11 33 5516.下列程序执行后，n 的值为 n=0 For I=1 To 200 If I Mod 4=0 Then n=n+1 Next I（分数：2.00）A.5050B.50C.51D.3317.实体联系模型中，实体与实体之间的联系不可以是（分数：2.00）A.一对一B.多对多C.一对多D.一对零18.在数据库管理系统提供的数据语言中，负责数据的查询及增、删、改等操作的是（分数：2.00）A.数据定义语言B.数据转换语言C.数
11、据操纵语言D.数据控制语言19.执行以下语句后，输出的结果是 a=“Good“ b=“Afternoon“ Print a$+b$ Print a$中间 6 次，a 值每次加 2；最后 3 次，a 值每次加 3。故结果为 30。4.下面程序运行时，内层循环的循环总次数是 For M=1 To 3 For N=0 TO M1 Next N Next M（分数：2.00）A.6 B.5C.3D.4解析：解析 当 M=1 时，ForN 循环一次，当 M=2 时，ForN 循环 2 次，当 M=3 时，ForN 循环 3 次。注意，在 For 循环的初值等于终值的情况下，For 循环也会执行一次。5.
12、在窗体中添加一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是（分数：2.00）A.22B.24C.26D.28 解析：解析 根据题意，For 循环在 i 为 4 和 1 时分别执行 1 次 For 循环语句，第 1 次执行时 j 值为1，a(为 8；第 2 次执行时
13、，j 值为 10，a(i)值为 2，故最终用 Print 输出。时，s 的值为 20 加 8。注意，本题事先声明了 Option Basel，故数组 s 的下标下界为 1。6.在窗体中添加一个名称为 Command1 的命令按钮、一个名称为 Label1 的标签，编写如下代码： Option Base 1 Private Sub Command1_Click( ) a=Array(23，34，25，46，35) End Sub 过程的功能是求数组 a 中是奇数的元素的个数，并把结果显示在标签中。为实现此功能，省略号处的程序段应该是（分数：2.00）A.For i=0 T0 4 If a(Mod
14、 20 Then b=b+1 End lf Next i Label1.Caption=bB.For i=0 To 4 If a(Mod2=0 Then b=b+1 End lf Next i Label1.Caption=bC.For i=1 To 5 If a(Mod 2 Then b=b+1 End lf Next i Label1.Caption=b D.For=0 To 5 If a(Mod 2=0 Then b=b+1 End lf Next i Label1.Caption=b解析：解析 由于“Option Basel”，故数组下标下界为 1，所以可以据此排除 A、B、 D，答案
15、为 C。同时要注意 If 的控制条件为“a(i)Mod2o”，表示当 a(i)为奇数时。7.软件需求分析阶段的工作可以分为四个方面：需求获取、需求分析、编写需求分析说明书和（分数：2.00）A.阶段性报告B.需求评审 C.总结D.都不正确解析：解析 需求分析的四个方面是：需求获取、需求分析、编写需求分析说明书和需求评审。8.设有下列二叉树： （分数：2.00）A.ABCDEFB.BDAECFC.ABDCEFD.DBEFCA 解析：解析 二叉树的遍历分为先序、中序、后序三种不同方式。本题要求后序遍历，其遍历顺序应该为：后序遍历左子树后序遍历右子树访问根结点。按照定义，后序遍历序列是 DBEFCA
16、。9.下面程序段的输出结果为 Print“10+20=“ PrintlO+20 Print“20+20=“ PrinflO+20（分数：2.00）A.10+20=30 20+20=40 B.10+20= 30 20+20= 40C.10+20 20+20D.10+20=30 20+20= 40解析：解析 Print 后的语句如果以分号结束，表明 Print 输出的字符不会换行，后面的 Print 语句会把要显示的字符紧挨着前面的 Print 语句所显示的字符。同时 Print 具有简单的计算功能，即先把含有运算符的式子计算出结果之后再输出结果，故本题选 A。10.Sub 过程与 Functio
17、n 过程最根本的区别是（分数：2.00）A.Sub 过程可以用 Call 语句直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有形参，Sub 过程不可以C.Sub 过程不能返回值，而 Function 过程能返回值 D.两种过程参数的传递方式不同解析：解析 在 Visual Basic 中有两类过程，一类是系统提供的内部函数的事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用，而第二类过程中，我们现在涉及最多的是子过程。它们的共同点都是完成某种特定功能的一组程序代码；不同的是函数是带有返回值的特殊过程，所以函数过程定义时有返回值的类型说明。11.
18、执行下面的程序段，x 的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub（分数：2.00）A.5B.6 C.7D.8解析：解析 For 循环首先把初值赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就停止执行循环体，跳出循环体，执行 Next 后面的语句；否则执行一次循环体，然后把循环变量+步长的值赋给循环变量，重复上述过程。据此如果 For 循环的终值等于初值，For 循环也会执行一次循环。本题中当For 执行第五次循环后，i 的值为 5，此时系统还会返回，令 i=
19、5+1 并判断此时的 i 值是否大于 5，大于5，故退出循环体。所以此时的 i 值为 6，故选 B。12.用黑盒技术测试用例的方法之一为（分数：2.00）A.因果图 B.逻辑覆盖C.循环覆盖D.基本路径测试解析：解析 黑盒测试主要方法有等价值划分法、边界值分析法、错误推测法、因果图法等。白盒测试的主要方法有逻辑覆盖、基本路径测试循环覆盖等。因此只有 A 属于黑盒测试。13.在窗体中添加一个通用对话框 Commondialog1 和一个命令按钮 Command1，当单击按钮时，打开颜色对话框，能实现此功能的程序段是（分数：2.00）A.Private Sub Command1Click( ) C
20、ommondialog1.ShowOpen End SubB.Private Sub Command1_Click( ) Commondialog1.ShowColor End Sub C.Private Sub Command1_Click( ) Commondialog1.ShowOpen Commondialog1.ShowFont End SubD.Private Sub Command1_Click( ) Commondialog1.ShowColor Commondialog1.ShowHelp End Sub解析：解析 Visual Basic 主要提供了打开文件、保存文件、颜色
21、、字体、打印、帮助等通用对话框，其对应的方法分别为 ShowOpen、ShowSave、ShowColor、ShowFont、ShowPrInter、ShowHelp。14.假定窗体上有一个文本框，名为 txt1，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为（分数：2.00）A.Txt1.MultiLine=True Txt1.ScrollBars=0B.Txt1.MuhiLine=True Txt1.ScrollBars=2 C.Txt1.MuhiLine=False Txt1.ScrollBars=0D.Txt1.MuhiLine=False Txt1.
22、ScrollBars=3解析：解析 Multine 如果设置为 True，可以使用多行文本，即在文本框中输入或输出文本时可换行，并在下一行接着输入或输出。Scmllbars 用来确定文本框中没有滚动条，可以取 0、1、2、3 四个值，其含义分别为：0 表示没有滚动条；1 表示只有水平滚动条；2 表示只有垂直滚动条；3 表示同时具有水平滚动条和垂直滚动条。15.在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1_Click( ) Forj=1 To 3 Print Tab(3*j)11*(2*j-1)； Next j Print End Sub 程序的执行结
23、果为（分数：2.00）A.11B.33C.11 33D.11 33 55 解析：解析 可以使用排除法，由于存放在 For j 循环，所以输出结果排除 A 与 B 项，同时由于第一个Print 方法的最后有 j，所以输出结果不会换行显示，故排除 C，答案为 D。注意 Tab(n)表示把光标移到由参数 n 指定的位置。16.下列程序执行后，n 的值为 n=0 For I=1 To 200 If I Mod 4=0 Then n=n+1 Next I（分数：2.00）A.5050B.50 C.51D.33解析：解析 根据题意，在 Forl 的 200 次循环中，每遇到一次 I 为 4 的倍数，变量
24、n 就加 1。在 1 到200 之间，有 50 个数是 4 的倍数。17.实体联系模型中，实体与实体之间的联系不可以是（分数：2.00）A.一对一B.多对多C.一对多D.一对零 解析：解析 实体联系模型中实体与实体之间的联系有一对一(11)，一对多或多对一(1m 或 m1)，多对多(mn)，其中一对一是最常用的关系。18.在数据库管理系统提供的数据语言中，负责数据的查询及增、删、改等操作的是（分数：2.00）A.数据定义语言B.数据转换语言C.数据操纵语言 D.数据控制语言解析：解析 在数据库管理系统提供的数据语言中，数据操作语言负责数据的查询及增、删、改等操作。19.执行以下语句后，输出的结
25、果是 a=“Good“ b=“Afternoon“ Print a$+b$ Print a$二可以使用访问键,即首先按 Alt 键激活菜单，然后按 T 键选择“工具”菜单，此时打开“工具菜单”便可以使用方向键进行选择；三便是用鼠标选择。本题答案 B 与 C 的表达的意思一致，A 用了快捷键。D 不能打开任何菜单与功能。28.单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，a) End Sub Func
26、tion Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function（分数：2.00）A.20B.22C.28 D.30解析：解析 主调过程 Command1_Click 输出的是 Sec Proc(c，b，a)的返回值，调用过程 Sec Proc 时，主调过程分别把实参 c、b、a 地址传给形参 x、y、
27、z，此时在过程 Sec Proc 中， Sec Proc=Fir Proc(a，c，b)+c。由此看出，程序段执行此语句时，将调用过程 Fir Proc。把实参 a、c、b 的地址分别传给形参 x、y、z，此时在过程 Fir Proc 中，Fir Proc=2*x+y+3*z，所以 Fir Proc(a，c，b)=6+4+15=25，SecProc(a，c，b)=25+3=28。29.单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Pr
28、int x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub（分数：2.00）A.12 32B.2 32 C.2 3D.12 3解析：解析 函数过程在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 1) 传址的结合过程时：当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任
29、何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 2) 传值的结合过程时：当调用一个过程时，系统将实参的值赋值给形参并断开了联系，被调用过程中的操作时在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 Proc 中有两个形参，其中第一个形参 n 为传址方式，第二个形参 m 为传值方式。主调过程分别把实参 x、y 传递给Proc，所以当过程调用结束后，实参 x 的值应随着被调过程变化而变化，而实参 y 值在主调函数中始终不变，所以输出 y 的值仍为 32；在被调过程中“n=n Mod l
30、0“被调用时，相当于“x=x Mod 10”，所以 x 的值最终为 32，最后输出结果如选项 B 所示。30.改变驱动器列表框的 Drive 属性值将激活的事件是（分数：2.00）A.Change B.ScrollC.KeyDownD.KeyUp解析：解析 当改变 Drive 属性时，将激活 Change 事件。KeyDown 与 KeyUp 事件只有在按下键和放开的时候才会被触动。31.以下语句的输出结果是 Print Format $(1234.467，“000.00.00“)（分数：2.00）A.1234.567B.12，34.567C.01，234.57 D.1234.57解析：解析
31、解题的关键是对格式说明字符的正确理解。0 表示一个数字位，0 的个数决定了显示区段的长度，多余的位以。补齐；小数点与。结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理；逗号起到分位的作用，即从小数点左边一位开始，每 3 位用一个逗号分开，其中逗号可以放在小数点左边的任何位置，但不要放在头部，也不要紧靠小数点。据此，本题显示的结果为 01，234.57。32.利用 E-R 模型进行数据库的概念设计，可以分成三步：首先设计局部 E-R 模型，然后把各个局部 E-R模型综合成一个全局的模型，要得到最终的 E-R 模型，还要对全局 E-R 模型进行（分数：2
32、.00）A.简化B.结构化C.最小化D.优化 解析：解析 在概念设计中，按照模块的划分画出各个模块的 ER 图，然后把这些图合成一张 E-R 图作为全局模型，最后应该对全局 E-R 图进行优化，看是否有重复和不合理的地方。不能只进行简单的合并。33.有如下程序： Private Sub Command1_Click( ) a$=“A WORKER IS OVER THERE“ x=Len(a ) For i=1 To x-1 b$=Mid $(a $，i，2) If b $=“ER“Then s=s+1 Next i Pdnt s End Sub 程序运行后的输出结果是（分数：2.00）A.1
33、B.2C.3 D.4解析：解析 Mid(a，i，2)表示从字符串 a的第 i 个字符开始向后截取 2 个字符。由于“A WORKER IS OVER THERE中有三个“ER”，故 s=s+1 将被执行 3 次，即 s 最后的值为 3。34.下列关于队列的叙述中正确的是（分数：2.00）A.在队列中只能插人数据B.在队列中只能删除数据C.队列是先进先出的线性表 D.队列是先进后出的线性表解析：解析 对队列可以进行插人和删除数据的操作，只是插入数据只能在队尾，删除数据只能在队头。所以队列是先进先出的线性表。35.源程序中应包含一些内部文档，以帮助阅读和理解程序，源程序的内部文档包括选择合适的标识
34、符、注释和（分数：2.00）A.程序的视觉组织 B.尽量不用或少用 GOTO 语句C.检查输入数据的有效性D.设计良好的输出报表解析：解析 源程序文档化主要包括三个方面的内容：标识符的命名、程序中添加注释以及程序的视觉组织。二、B填空题/B(总题数：10，分数：20.00)36.一般来说，算法可以用顺序、选择和U 【1】 /U三种基本控制结构组合而成。（分数：2.00）填空项 1:_ （正确答案：循环）解析：解析 算法一般由顺序、选择和循环三种基本控制结构组合而成。37.按照逻辑结构分类，数据结构可分为线性结构和非线性结构，队列属于U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案
35、：线性结构）解析：解析 队列有且只有一个根结点，而且每一个结点最多有一个前件，也最多有一个后件，满足线性结构的条件，所以属于线性结构。38.按数据流的类型，结构化设计方法有两种设计策略，它们是变换分析设计和U 【3】 /U。（分数：2.00）填空项 1:_ （正确答案：事务分析设计）解析：解析 典型的数据流图有两种，即变换型和事务型。按照这两种类型把设计方法分为两类，即变换分析设计和事务分析设计。39.数据库系统在其内部分为三级模式，即概念模式、内模式和外模式。其中，U 【4】 /U是用户的数据视图，也就是用户所见到的数据模式。（分数：2.00）填空项 1:_ （正确答案：外模式）解析：解析
36、外模式由概念模式推导而出，给出了每个用户的局部数据描述，即数据视图。40.在关系模型中，把数据看成一个二维表，每一个二维表称为一个U 【5】 /U。（分数：2.00）填空项 1:_ （正确答案：关系）解析：解析 关系模型用二维表表示，则每个二维表代表一种关系。41.标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块 Type comp re As Single im As Single End Type Public c As comp 窗体模块 Private Sub Command1_Click( ) Dim a As comp，b As comp are=I
37、nputBox(“输入 a 的实部”) aim=InputBox(“输入 a 的虚部”) bre=tnputBox(“输入 b 的实部”) bim=lnputBox(“输入 b 的虚部”) U 【6】 /U Print“c=”； cre；“+”；c.im；“i“ End Sub Private Sub s(U 【7】 /U) C.re=r1.re+r2.re c.im=r1.im+r2.im End Sub（分数：2.00）填空项 1:_ （正确答案：6Call s(a，b)或 s a，b）解析：7 rl As comp，r2 As comp 或 ByRef rl As comp，ByRef
38、r2 As comp 或 By Val Ascomp，ByVal r2 As comp 解析 根据题意，要计算两个复数之和。通过 Type 语句定义一个 comp 数据类型。 comp 的两个元素 re、im 分别表示复数的实部与虚部。由于求两个复数之和要分别相加各自的实部和虚部，故在建立 s 过程时，根据已给等式，可以知道 SUB 过程需要两个参数，分别为 r1、r2。由于只调用一次，故可以使用 ByRef、ByVal 两种方式传送数据。建立好 Sub 过程，在6处调用该过程，可以使用 Call 语句：Call s(a，b)，也可直接调用：s a，b。42.把一个磁盘文件的内容读到内存并在文
39、本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的 Muhiline 属性设置为True，然后编写如下的事件过程： Private Sub Form_Click( ) Open“d：/test/smtext1txt“For lnput As#1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) U【8】 /U whole=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text=U 【9】 /U。 Close O
40、pen“d：/test/smtext2txt“For Output As#1 Print #1U 【10】 /U Close End Sub（分数：2.00）填空项 1:_ （正确答案：8 Line lnput #1，Aspect）解析：9 whole 10 Text1.Fext 解析 lnput#与 Line lnput#句都可以从顺序文件中读人数据。区别在于 Input#仅仅读人数据项，后接变量表，读人几项数据就用几个变量来接收。Line lnput#语句用来从顺序文件中读取一个完整的行，并把它赋给一个字符串变量。对于本题，由于要读人一个完整的文件，并使用 Do 循环将每次读入的数据通过
41、aspect接受并最终赋给 whole变量，故8处应填：Line lnput #1，aspect。 EOF(1)函数测试文件是否被读取完，当 Do 循环语句执行完毕后，磁盘文件被完全赋给变量 whole。此时要在文本框中显示，则9处应填：whole。 磁盘文件读入文本框后，便执行写入另一磁盘文件的操作。写入用 Print#语句。该语句后接两个常用参数：文件号与表达式。本题中“1”表示文件号，即在上一步中打开读人的文件。10处应填表达式，即：Text1.Text。表示把 Text1.Text 中的内容写入到 smtext2.txt 中。43.若 s、i 均为整型变量，执行下列程序段后 s 的值为
42、U 【11】 /U。 S=0 i=1 DO S=S+i i=i+1 Loop Until i5（分数：2.00）填空项 1:_ （正确答案：15）解析：解析 每执行一次循环，变量 s 加一次变量 i，随后变量 i 再加一次 1，直到变量 i 大于 5 时终止循环。i 的初始值为 1，故 Do 循环执行 5 次。相应的，变量 s 分别加 1、2、3、4、5，故答案为 15。44.把窗体的 KeyPreview 属性设置为 True，并编写如下两个事件过程： Private Sub For_KeyDown(KeyCode As Integer，Shift As Integer) Print Key
43、Code End Sub Private Sub Fora_KeyPress(Key Ascii AS Integer) Print Key Ascii。 End Sub 程序运行后，如果按下 A 键，则在窗体上输出的数值为U 【12】 /U和U 【13】 /U。（分数：2.00）填空项 1:_ （正确答案：12 65）解析：13 97 解析 KeyCode 对应键的 ASCII 码，不区分大小写；KeyAscii 参数对应某一字符的 ASCII 码，同一字母大小写的 KeyAscii 值不同。据此，当按 A 键，12处应填 65，即 A 键的 ASCII 码。 13 处填 97，即小写字母
44、a 的 ASCII 码。45.建立随机文件 F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在U 【14】 /U和U 【15】 /U处将程序补充完整。 Type worker name As String*10 pay As Single End Type Dim workl AS worker Open“F1.dat“For Random As#1 Len=Len(workl) Work1.name=“LiuMin“：work1.pay=400# U【14】 /U Close#1 Open“F1.dat“For Random As#1 Len=Len(work1) U【15】
45、 /U Print“work1：“，workl.name Print“work1：“，workl.pay C10se#1（分数：2.00）填空项 1:_ （正确答案：14Put#1，1，work1）解析：15 Get#1，1，work1 解析 首先用 Type 函数定义一个记录类型数据 worker，然后定义 work1变量为 work- er。在14处，由于要执行写操作，故使用“Put#”语句。“Put#”语句后接三个参数，分别表示文件号、记录号、变量。本题文件打开是文件号设为 1，故“Put#”语句后接的文件号也为 1，记录号为 1，变量为 work1，所以14处填“Put #l，1，work1”。 由于要执行读操作，故使用“Get#”语句。“Get #”语句后接三个参数，分别表示文件号、记录号、变量。由于这是与上一步“Put#”y 语句相反的操作，故参数都一样，分别为 1、1、work1。故15处填“Get #1，1，work1”。
