1、二级 VISUAL+BASIC 笔试-120 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.用黑盒技术测试用例的方法之一为（分数：2.00）A.因果图B.逻辑覆盖C.循环覆盖D.基本路径测试2.下列哪个是面向对象程序设计不同于其他语言的主要特点?（分数：2.00）A.继承性B.消息传递C.多态性D.静态联编3.下面程序运行时，内层循环的循环总次数是For M=1 To 3 For N=0 TO M1Next NNext M（分数：2.00）A.6B.5C.3D.44.利用 E-R 模型进行数据库的概念设计，可以分成三步：首先设计局部 E-
2、R 模型，然后把各个局部 E-R 模型综合成一个全局的模型，要得到最终的 E-R 模型，还要对全局 E-R 模型进行（分数：2.00）A.简化B.结构化C.最小化D.优化5.源程序中应包含一些内部文档，以帮助阅读和理解程序，源程序的内部文档包括选择合适的标识符、注释和 （分数：2.00）A.程序的视觉组织B.尽量不用或少用 GOTO 语句C.检查输入数据的有效性D.设计良好的输出报表6.单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( )Dim a As Integer，b As Integer，c As Integera=3b=4C=5Print
3、SecProc(c，b，a)End SubFunction Fir Proc(x As Integer，y As Integer，z As Integer)Fir Proc=2*x+y+3*zEnd FunctionFunction SecProc(x As Integer，y As Integer，z As Integer)SecProc=FirProc(z，x，y)+xEnd Function（分数：2.00）A.20B.22C.28D.307.下列程序段的执行结果为A=0： B=1DoA=A+BB=B+1Loop While A10Print A；B（分数：2.00）A.105B.A B
4、C.01D.10 308.在数据库管理系统提供的数据语言中，负责数据的查询及增、删、改等操作的是 （分数：2.00）A.数据定义语言B.数据转换语言C.数据操纵语言D.数据控制语言9.在窗体中添加一个名称为 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(i
5、)Mod 20 Then b=b+1 End lf Next i Label1.Caption=bB.For i=0 To 4If a(i)Mod2=0 Thenb=b+1End lfNext iLabel1.Caption=bC.For i=1 To 5 If a(i)Mod 2 Then b=b+1 End lf Next i Label1.Caption=bD.For=0 To 5If a(i)Mod 2=0 Thenb=b+1End lfNext iLabel1.Caption=b10.执行下面的程序段，x 的值为Private Sub Command1_Click( )For i=1
6、 To 5a=a+iNext ix=Val(i)MsgBox x End Sub（分数：2.00）A.5B.6C.7D.811.在窗体中画一个命令按钮，然后编写以下事件过程：Private Sub Command1_Click( )Forj=1 To 3Print Tab(3*j)11*(2*j-1)；Next jPrintEnd Sub程序的执行结果为（分数：2.00）A.11B.33C.11 33D.11 33 5512.执行以下 Command1 的 Click 事件过程在窗体上显示Option Base 1Private Sub Command1_Click( )Dim aa=Arra
7、y(“a“ ,“b“，“c“，“d“，“e“,“f“,“g“)Print a(1)；a(3)；a(5)End Sub（分数：2.00）A.abcB.bdfC.aceD.出错13.下列关于队列的叙述中正确的是（分数：2.00）A.在队列中只能插人数据B.在队列中只能删除数据C.队列是先进先出的线性表D.队列是先进后出的线性表14.在窗体中添加一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim aa=Array(2，4，6，8)j=1For i=4 To 1 Step-3s=s+a(i
8、)*jj=j*10Next iPrint s End Sub运行上面的程序，单击命令按钮，其输出结果是（分数：2.00）A.22B.24C.26D.2815.算法执行过程中所需要的存储空间称为算法的（分数：2.00）A.时间复杂度B.计算工作量C.空间复杂度D.工作空间16.下列说法错误的是（分数：2.00）A.通用对话框的 Name 属性的默认值为 CommonDialogx，此外，每种对话框都有自己的默认标题B.文件对话框可分为两种，即打开(OperJ)文件对话框和保存(SaveAS)文件对话框C.打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这
9、个文件名保存当前文件D.DefarltEXT 属性 DialosTire 属性都是打开对话框的属性，但非保存对话框的属性17.下列不能打开菜单编辑器的操作是（分数：2.00）A.按组合键 Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按组合键 Shift+Alt+M18.单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click( )Dim x As Integer，y As Integerx=12：y=32Call Proc(x，y)Print x；yEnd SubPublic Sub Proc(n As Inte
10、ger，ByVal m As Integer)n=n Mod 10m=m Mod 10End Sub（分数：2.00）A.12 32B.2 32C.2 3D.12 319.下列程序的执行结果为Private Sub Command1_Click( )Dim FirStr As StringFirSt=”abcdef，Print Pat(FirStr)End SubPrivate Function Pat(xStr As String)As StringDim TempStr As String，strLen As IntegertempStr=”strLen=Len(xStr)i=1Do Wh
11、ile i=Len(xStr)-3tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1) i=i+1LoopPat=tempStrEnd Function（分数：2.00）A.abcdefB.aPDecdC.fedcbaD.defabc20.改变驱动器列表框的 Drive 属性值将激活的事件是（分数：2.00）A.ChangeB.ScrollC.KeyDownD.KeyUp21.假定有一个菜单项，名为 Menuhem，为了在运行时使该菜单项失效(变灰)，应使用的语句为（分数：2.00）A.Menultem.Enabled=FalseB.Menu
12、hem.Enabled=TrueC.Menuhem.Visible=TrueD.Menuhem.Visible=False22.在窗体中添加一个命令按钮，名称为 Command1；添加一个文本框，名称为 Textl，然后编写如下程序：Private Sub Command1_Click( )Dima(5)，b(5)Forj：1 T04s(j)=3*jb(j)=a(j)*3Next jTextl.Text=b(j/2)End Sub程序运行后，单击命令按钮，在文本框中显示（分数：2.00）A.25B.18C.36D.3523.假定窗体上有一个文本框，名为 txt1，为了使该文本框的内容能够换行，
13、并且具有垂直滚动条，没有水平滚动条正确的属性设置为（分数：2.00）A.Txt1.MultiLine=True Txt1.ScrollBars=0B.Txt1.MuhiLine=TrueTxt1.ScrollBars=2C.Txt1.MuhiLine=False Txt1.ScrollBars=0D.Txt1.MuhiLine=FalseTxt1.ScrollBars=324.设有下列二叉树：（分数：2.00）A.B.C.D.25.有如下程序：Private Sub Command1_Click( ) a$=“A WORKER IS OVER THERE“x=Len(a )For i=1 To
14、 x-1b$=Mid $(a $，i，2) If b $=“ER“Then s=s+1Next iPdnt sEnd Sub程序运行后的输出结果是（分数：2.00）A.1B.2C.3D.426.实体联系模型中，实体与实体之间的联系不可以是（分数：2.00）A.一对一B.多对多C.一对多D.一对零27.以下语句的输出结果是 Print Format $(1234.467，“000.00.00“)（分数：2.00）A.1234.567B.12，34.567C.01，234.57D.1234.5728.在窗体中添加一个通用对话框 Commondialog1 和一个命令按钮 Command1，当单击按
15、钮时，打开颜色对话框，能实现此功能的程序段是（分数：2.00）A.Private Sub Command1Click( ) Commondialog1.ShowOpen End Sub B.Private Sub Command1_Click( )Commondialog1.ShowColorEnd SubC.Private Sub Command1_Click( ) Commondialog1.ShowOpen Commondialog1.ShowFont End SubD.Private Sub Command1_Click( )Commondialog1.ShowColorCommond
16、ialog1.ShowHelp End Sub29.软件需求分析阶段的工作可以分为四个方面：需求获取、需求分析、编写需求分析说明书和（分数：2.00）A.阶段性报告B.需求评审C.总结D.都不正确30.不能脱离控件(包括客体)而独立存在的过程是（分数：2.00）A.事件过程B.通用过程C.Sub 过程D.函数过程31.下面程序段的输出结果为Print“10+20=“PrintlO+20 Print“20+20=“PrinflO+20（分数：2.00）A.10+20=30 20+20=40B.10+20= 3020+20=40C.10+20 20+20D.10+20=3020+20=4032.执
17、行以下语句后，输出的结果是a=“Good“b=“Afternoon“Print a$+b$Print a$二可以使用访问键,即首先按 Alt 键激活菜单，然后按 T 键选择“工具”菜单，此时打开“工具菜单”便可以使用方向键进行选择；三便是用鼠标选择。本题答案 B 与 C 的表达的意思一致，A 用了快捷键。D 不能打开任何菜单与功能。18.单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click( )Dim x As Integer，y As Integerx=12：y=32Call Proc(x，y)Print x；yEnd SubPublic Sub Proc
18、(n As Integer，ByVal m As Integer)n=n Mod 10m=m Mod 10End Sub（分数：2.00）A.12 32B.2 32 C.2 3D.12 3解析：解析 函数过程在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下：1) 传址的结合过程时：当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。2)
19、 传值的结合过程时：当调用一个过程时，系统将实参的值赋值给形参并断开了联系，被调用过程中的操作时在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 Proc 中有两个形参，其中第一个形参 n为传址方式，第二个形参 m 为传值方式。主调过程分别把实参 x、y 传递给 Proc，所以当过程调用结束后，实参 x 的值应随着被调过程变化而变化，而实参 y 值在主调函数中始终不变，所以输出 y 的值仍为 32；在被调过程中“n=n Mod l0“被调用时，相当于“x=x Mod 10”，所以 x 的值最终为 32
20、，最后输出结果如选项 B 所示。19.下列程序的执行结果为Private Sub Command1_Click( )Dim FirStr As StringFirSt=”abcdef，Print Pat(FirStr)End SubPrivate Function Pat(xStr As String)As StringDim TempStr As String，strLen As IntegertempStr=”strLen=Len(xStr)i=1Do While i=Len(xStr)-3tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，
21、1) i=i+1LoopPat=tempStrEnd Function（分数：2.00）A.abcdefB.aPDecd C.fedcbaD.defabc解析：解析 主调函数是最终输出值是 Pat(Fir Str)过程的返回值，这就是调用函数过程 Pat。被调过程 Pat 的参数 xStr 从主调函数中收到实参 Fir Str 传来的值“abcdef”，过程 Pat 开始声明了两个变量，一个是 String 型的 tempStr，一个是 Integer 型的 strLen。语句 tempStr=“”strLen=Len(xStr)的功能是：为变量 tempStr 赋空值，变量 strLen 的
22、值就是 xStr 的长度，此题为 6。程序代码执行 Do WhileLoop 的循环语句。第一次循环，i=1，i=3 成立，执行语句 tempStr+Mid(xStr，i1)+Mid(xStr，strLen-i+1，1)；mid 函数一般调用格式：Mid(字符串，p，n)其功能就是从第 p 个字符开始，向后截取 n 个字符，第一次循环结束后，tempStr=“af”；第二次循环，i=2，i=3 成立，继续执行循环体，temp Str=“afbe”；第三次循环，i=3，i=3 成立，继续执行循环体，temp Str=“afbecd”第四次循环，i=4，i=4 不成立，则跳出循环体，执行语句 Pa
23、t=temp Str。所以最终 Pat(Fir Str)=“afbecd”，即最后程序执行结果如选项 B 所示。20.改变驱动器列表框的 Drive 属性值将激活的事件是（分数：2.00）A.Change B.ScrollC.KeyDownD.KeyUp解析：解析 当改变 Drive 属性时，将激活 Change 事件。KeyDown 与 KeyUp 事件只有在按下键和放开的时候才会被触动。21.假定有一个菜单项，名为 Menuhem，为了在运行时使该菜单项失效(变灰)，应使用的语句为（分数：2.00）A.Menultem.Enabled=False B.Menuhem.Enabled=Tru
24、eC.Menuhem.Visible=TrueD.Menuhem.Visible=False解析：解析 Enabled 属性决定菜单项功能是否失效，如果选择 True 则不失效，如果选择 False，则失效，并用灰色表示。Visible 属性决定菜单项是否可见，选择 False 为不可见，选择 True 为可见。22.在窗体中添加一个命令按钮，名称为 Command1；添加一个文本框，名称为 Textl，然后编写如下程序：Private Sub Command1_Click( )Dima(5)，b(5)Forj：1 T04s(j)=3*jb(j)=a(j)*3Next jTextl.Text=
25、b(j/2)End Sub程序运行后，单击命令按钮，在文本框中显示（分数：2.00）A.25B.18 C.36D.35解析：解析 本题 j 值经过 4 次赋值之后，最后一次 j 值为 5，此时 For 循环中止，故 b(j/2)=b(2)。根据 For 循环对 a(5)与 b(5)的赋值，不难看出，b(2)的值为 18。23.假定窗体上有一个文本框，名为 txt1，为了使该文本框的内容能够换行，并且具有垂直滚动条，没有水平滚动条正确的属性设置为（分数：2.00）A.Txt1.MultiLine=True Txt1.ScrollBars=0B.Txt1.MuhiLine=TrueTxt1.Scr
26、ollBars=2 C.Txt1.MuhiLine=False Txt1.ScrollBars=0D.Txt1.MuhiLine=FalseTxt1.ScrollBars=3解析：解析 Multine 如果设置为 True，可以使用多行文本，即在文本框中输入或输出文本时可换行，并在下一行接着输入或输出。Scmllbars 用来确定文本框中没有滚动条，可以取 0、1、2、3 四个值，其含义分别为：0 表示没有滚动条；1 表示只有水平滚动条；2 表示只有垂直滚动条；3 表示同时具有水平滚动条和垂直滚动条。24.设有下列二叉树：（分数：2.00）A.B.C.D. 解析：解析 二叉树的遍历分为先序、中
27、序、后序三种不同方式。本题要求后序遍历，其遍历顺序应该为：后序遍历左子树后序遍历右子树访问根结点。按照定义，后序遍历序列是 DBEFCA。25.有如下程序：Private Sub Command1_Click( ) a$=“A WORKER IS OVER THERE“x=Len(a )For i=1 To x-1b$=Mid $(a $，i，2) If b $=“ER“Then s=s+1Next iPdnt sEnd Sub程序运行后的输出结果是（分数：2.00）A.1B.2C.3 D.4解析：解析 Mid(a，i，2)表示从字符串 a的第 i 个字符开始向后截取 2 个字符。由于“A W
28、ORKER IS OVER THERE中有三个“ER”，故 s=s+1 将被执行 3 次，即 s 最后的值为 3。26.实体联系模型中，实体与实体之间的联系不可以是（分数：2.00）A.一对一B.多对多C.一对多D.一对零 解析：解析 实体联系模型中实体与实体之间的联系有一对一(11)，一对多或多对一(1m 或 m1)，多对多(mn)，其中一对一是最常用的关系。27.以下语句的输出结果是 Print Format $(1234.467，“000.00.00“)（分数：2.00）A.1234.567B.12，34.567C.01，234.57 D.1234.57解析：解析 解题的关键是对格式说明
29、字符的正确理解。0 表示一个数字位，0 的个数决定了显示区段的长度，多余的位以。补齐；小数点与。结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理；逗号起到分位的作用，即从小数点左边一位开始，每 3 位用一个逗号分开，其中逗号可以放在小数点左边的任何位置，但不要放在头部，也不要紧靠小数点。据此，本题显示的结果为 01，234.57。28.在窗体中添加一个通用对话框 Commondialog1 和一个命令按钮 Command1，当单击按钮时，打开颜色对话框，能实现此功能的程序段是（分数：2.00）A.Private Sub Command1Click(
30、) Commondialog1.ShowOpen End Sub B.Private Sub Command1_Click( )Commondialog1.ShowColorEnd Sub C.Private Sub Command1_Click( ) Commondialog1.ShowOpen Commondialog1.ShowFont End SubD.Private Sub Command1_Click( )Commondialog1.ShowColorCommondialog1.ShowHelp End Sub解析：解析 Visual Basic 主要提供了打开文件、保存文件、颜色
31、、字体、打印、帮助等通用对话框，其对应的方法分别为 ShowOpen、ShowSave、ShowColor、ShowFont、ShowPrInter、ShowHelp。29.软件需求分析阶段的工作可以分为四个方面：需求获取、需求分析、编写需求分析说明书和（分数：2.00）A.阶段性报告B.需求评审 C.总结D.都不正确解析：解析 需求分析的四个方面是：需求获取、需求分析、编写需求分析说明书和需求评审。30.不能脱离控件(包括客体)而独立存在的过程是（分数：2.00）A.事件过程 B.通用过程C.Sub 过程D.函数过程解析：解析 事件过程由 Visual Basic 创建，事件过程是当用户对一
32、个对象发出一个动作时所产生的事件，不能脱离控件而独立存在；通用过程时通用的，不与任何特定事件相联系，它完成特定的任务，只能由别的过程调用；Sub 过程包括事件过程和通用过程，称之为子过程。也就是说，有些 Sub 过程与对象相关联，有些 Sub 过程与对象没有联系；函数过程类似于内部函数，由用户定义的，完成一些特殊函数关系的计算，并且要返回函数值的过程，显然函数过程不必与控件发生联系。31.下面程序段的输出结果为Print“10+20=“PrintlO+20 Print“20+20=“PrinflO+20（分数：2.00）A.10+20=30 20+20=40 B.10+20= 3020+20=
33、40C.10+20 20+20D.10+20=3020+20=40解析：解析 Print 后的语句如果以分号结束，表明 Print 输出的字符不会换行，后面的 Print 语句会把要显示的字符紧挨着前面的 Print 语句所显示的字符。同时 Print 具有简单的计算功能，即先把含有运算符的式子计算出结果之后再输出结果，故本题选 A。32.执行以下语句后，输出的结果是a=“Good“b=“Afternoon“Print a$+b$Print a$中间 6 次，a 值每次加 2；最后 3 次，a 值每次加 3。故结果为 30。35.Sub 过程与 Function 过程最根本的区别是（分数：2.
34、00）A.Sub 过程可以用 Call 语句直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有形参，Sub 过程不可以C.Sub 过程不能返回值，而 Function 过程能返回值 D.两种过程参数的传递方式不同解析：解析 在 Visual Basic 中有两类过程，一类是系统提供的内部函数的事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用，而第二类过程中，我们现在涉及最多的是子过程。它们的共同点都是完成某种特定功能的一组程序代码；不同的是函数是带有返回值的特殊过程，所以函数过程定义时有返回值的类型说明。二、填空题(总题数：10，分数：30.0
35、0)36.一般来说，算法可以用顺序、选择和 【1】 三种基本控制结构组合而成。（分数：2.00）填空项 1:_ （正确答案：循环）解析：解析 算法一般由顺序、选择和循环三种基本控制结构组合而成。37.按照逻辑结构分类，数据结构可分为线性结构和非线性结构，队列属于 【2】 。（分数：2.00）填空项 1:_ （正确答案：线性结构）解析：解析 队列有且只有一个根结点，而且每一个结点最多有一个前件，也最多有一个后件，满足线性结构的条件，所以属于线性结构。38.按数据流的类型，结构化设计方法有两种设计策略，它们是变换分析设计和 【3】 。（分数：2.00）填空项 1:_ （正确答案：事务分析设计）解析
36、：解析 典型的数据流图有两种，即变换型和事务型。按照这两种类型把设计方法分为两类，即变换分析设计和事务分析设计。39.数据库系统在其内部分为三级模式，即概念模式、内模式和外模式。其中， 【4】 是用户的数据视图，也就是用户所见到的数据模式。（分数：2.00）填空项 1:_ （正确答案：外模式）解析：解析 外模式由概念模式推导而出，给出了每个用户的局部数据描述，即数据视图。40.在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。（分数：2.00）填空项 1:_ （正确答案：关系）解析：解析 关系模型用二维表表示，则每个二维表代表一种关系。41.标准模块和窗体模块的功能是计算和打
37、印两个复数之和，在横线上填上适当内容。标准模块Type compre As Singleim As SingleEnd TypePublic c As comp窗体模块Private Sub Command1_Click( )Dim a As comp，b As comp are=InputBox(“输入 a 的实部”)aim=InputBox(“输入 a 的虚部”) bre=tnputBox(“输入 b 的实部”)bim=lnputBox(“输入 b 的虚部”)【6】 Print“c=”； cre；“+”；c.im；“i“End Sub Private Sub s( 【7】 )C.re=r1
38、.re+r2.rec.im=r1.im+r2.imEnd Sub（分数：4.00）填空项 1:_ （正确答案：6Call s(a，b)或 s a，b7 rl As comp，r2 As comp 或 ByRef rl As comp，ByRef r2 As comp 或 By Val Ascomp，ByVal r2 As comp）解析：解析 根据题意，要计算两个复数之和。通过 Type 语句定义一个 comp 数据类型。 comp 的两个元素 re、im 分别表示复数的实部与虚部。由于求两个复数之和要分别相加各自的实部和虚部，故在建立s 过程时，根据已给等式，可以知道 SUB 过程需要两个参
39、数，分别为 r1、r2。由于只调用一次，故可以使用 ByRef、ByVal 两种方式传送数据。建立好 Sub过程，在6处调用该过程，可以使用 Call 语句：Call s(a，b)，也可直接调用：s a，b。42.把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的 Muhiline 属性设置为True，然后编写如下的事件过程： Private Sub Form_Click( )Open“d：/test/smtext1txt“For lnput As#1Text1.Fontsize=14 T
40、ext1.FontName=“幼圆”Do While Not EOF(1)【8】 whole=whole $ aspect $+Chr$(13)+Chr $(10)LoopText1.Text= 【9】 。CloseOpen“d：/test/smtext2txt“For Output As#1Print #1 【10】 Close End Sub（分数：6.00）填空项 1:_ （正确答案：8 Line lnput #1，Aspect9 whole10 Text1.Fext）解析：解析 lnput#与 Line lnput#句都可以从顺序文件中读人数据。区别在于 Input#仅仅读人数据项，后
41、接变量表，读人几项数据就用几个变量来接收。Line lnput#语句用来从顺序文件中读取一个完整的行，并把它赋给一个字符串变量。对于本题，由于要读人一个完整的文件，并使用 Do 循环将每次读入的数据通过 aspect接受并最终赋给 whole变量，故8处应填：Line lnput #1，aspect。EOF(1)函数测试文件是否被读取完，当 Do 循环语句执行完毕后，磁盘文件被完全赋给变量 whole。此时要在文本框中显示，则9处应填：whole。磁盘文件读入文本框后，便执行写入另一磁盘文件的操作。写入用 Print#语句。该语句后接两个常用参数：文件号与表达式。本题中“1”表示文件号，即在上
42、一步中打开读人的文件。10处应填表达式，即：Text1.Text。表示把 Text1.Text 中的内容写入到 smtext2.txt 中。43.若 s、i 均为整型变量，执行下列程序段后 s 的值为 【11】 。S=0i=1DOS=S+ii=i+1Loop 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 属性设
43、置为 True，并编写如下两个事件过程：Private Sub For_KeyDown(KeyCode As Integer，Shift As Integer)Print KeyCodeEnd SubPrivate Sub Fora_KeyPress(Key Ascii AS Integer)Print Key Ascii。End Sub程序运行后，如果按下 A 键，则在窗体上输出的数值为 【12】 和 【13】 。（分数：4.00）填空项 1:_ （正确答案：12 6513 97）解析：解析 KeyCode 对应键的 ASCII 码，不区分大小写；KeyAscii 参数对应某一字符的 ASC
44、II 码，同一字母大小写的 KeyAscii 值不同。据此，当按 A 键，12处应填 65，即 A 键的 ASCII 码。13 处填 97，即小写字母 a 的 ASCII 码。45.建立随机文件 F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在 【14】 和 【15】 处将程序补充完整。Type workername As String*10pay As SingleEnd TypeDim workl AS workerOpen“F1.dat“For Random As#1 Len=Len(workl)Work1.name=“LiuMin“：work1.pay=400#【14
45、】 Close#1Open“F1.dat“For Random As#1 Len=Len(work1)【15】 Print“work1：“，workl.namePrint“work1：“，workl.payC10se#1（分数：4.00）填空项 1:_ （正确答案：14Put#1，1，work115 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”。
