1、二级 VISUAL+BASIC 笔试-304 及答案解析(总分：90.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令按钮。设有如下的类型声明：Type Personname As String*8major As String*20End Type当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是_。（分数：2.00）A.Private Sub Command1_Click()Dim p As Personp. name=Text1. Textp. ma
2、jor=Text2. TextOpen“C:/data. dat“ For Random As #1Put #1, 1, pClose #1End SubB.Private Sub Command1_Click()Dim p As Personp. name=Text1.Textp. major=Text2. TextOpen“C:/data. dat“ For Random As #1Get #1, 1, pClose #1End SubC.Private Sub Command1_Click()Dis p As Personp. name=Text1. Textp. major=Text2
3、. Textopen “C:/data. dat“ For Random As #1 Len=Len(p)Put #1, 1, pClose #1End SubD.Private Sub Command1_Click()Dim p As Personp. name=Text1. Textp. major=Text2. TextOpen “C:/data. dat“ For Random As #1=Len(p)Get #1, 1, pClose #1End Sub2.软件生命周期是指_。（分数：2.00）A.软件系统投入运行到软件系统被淘汰B.软件系统开始研制到软件系统投入试运行C.软件系统投
4、入试运行到软件系统被淘汰D.软件系统开始研制到软件系统被淘汰3.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程：Private Sub Command1_Click()Static b As Variantb=Array(1, 3, 5, 7, 9)End Sub此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9, 7, 5, 3, 1)。为实现此功能，省略号处的程序段应该是：_。（分数：2.00）A.For i=0 To 5-1/2tmp=b(i)b(i)=b(5-i-1)b(5-1-1)=tmpNextB.For i=0 To 5tmp=b(i)b(i)
5、=b(5-i-1)b(5-i-1)=tmpNextC.For i=0 To 5/2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNextD.Fori=1 To 5/2tmp=b(1)b(i)=b(5-i-1)b(5-i-1)=tmpNext4.在窗体上画一个命令按钮，名称为 Command1。然后编写如下事件过程：Private Sub Command1_Click()x=11Sum=0For i=1 To xn=Iif(i5, 1, 2)Sum=Sum+nNext iPrint SumEnd Sub运行后的输出结果是_。（分数：2.00）A.16B.11C.5D.25.在
6、窗体上画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为 Check1，标题为“粗体”；一个文本框，名称为 Text1，Text 属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如图 16-2 所示)，则能够实现上述要求的语句序列是_。（分数：2.00）A.Optionl. Value=TrueCheckl. Value=FalseB.Optionl. Value=TrueCheckl. Value=TrueC.Option2. Value=FalseCheckl. Value=TrueD.Opt
7、ionl. Value=TrueCheckl. Value=16.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText=InputBox(“请输入“)Text1. Text=strTextEnd SubPrivate Sub Text1_Change()Label1. Caption=Right(Trim(Text1. Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是_。（分
8、数：2.00）A.空B.abcdefC.abcD.def7.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程；Option Base 0Private Sub Command1_Click()Dim city As Variantcity=Array(“北京“, “上海“, “天津“, “重庆“)Print city(1)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是_。（分数：2.00）A.空白B.错误提示C.北京D.上海8.函数 String(n, “str“)的功能是_。（分数：2.00）A.把数值型数据转换为字符串B.返回由 n 个字符组成的字符串
9、C.从字符串中取出 n 个字符D.从字符串中第 n 个字符的位置开始取子字符串9.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下代码：Dption Base 1Private Sub Command1_Click()d=0c=10x=Array(10, 12, 21, 32, 24)For i=1 To 5If x(i)c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNext iPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.00）A.89B.99C.23D.7710.假定有如下的窗体事件过程：Privat
10、e Sub Command1_Click()a$=“Microsoft Visual Basic“b$=Riqht(a$, 5)c$=Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是_。（分数：2.00）A.Microsoft VisualB.MicrosoftC.BasicD.511.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是_。（分数：2.00）A.Private Sub Text1_KeyPress(KeyAscii As I
11、nteger)If KeyAscii65 Or KeyAscii90 ThenMsgBox“请输入大写字母“KeyAscii=0End IfEnd SubB.Private Sub Text1_KeyDown(Keycode As Integer, Shift As Integer)If KeyCode65 Or Keycode90 ThenMsgBox“请输入大写字母“KcyCode=0End IfEnd SubC.Private Sub Text1_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single)
12、If Asc(Text1. Text)65 Or Asc(Text1. Text)90 ThenMsgBox“请输入大写字母“End IfEnd SubD.Private Sub Text1_Change()If Asc(Text1. Text)64 Or Asc(Text1. Text)91 ThenMsgBox“请输入大写字母“End IfEnd Sub12.在窗体上画一个名称为 Command1 的命令按钮和两个名称分别为 Text1、Text2 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Text1.TextSelect Case nCa
13、se 1 To 20x=10Case 2, 4, 6x=20Case Is10x=30Case 10x=40End SelectText2. Text=xEnd Sub程序运行后，如果在文本框 Text1 中输入 10，然后单击命令按钮，则在 Text2 中显示的内容是_。（分数：2.00）A.10B.20C.30D.4013.在关系数据库设计中，设计视图(View)是_阶段的内容。（分数：2.00）A.需求分析B.概念设计C.逻辑设计D.物理设计14.软件中子类部件对父类部件属性的延续性指软件的_。（分数：2.00）A.独立性B.共享性C.多态性D.继承性15.在窗体上画一个命令按钮，名称为
14、 Comraandl。单击该命令按钮时，执行如下事件过程：Private Sub Command1_Click()a$=“software and hardware“b$=Right(a$, 8)c$=Mid(a$, 1, 8)+b$MsgSox a$, 1, b$End Sub则在弹出的消息框的标题栏中显示的信息是_。（分数：2.00）A.software and hardwareB.softwareC.hardwareD.116.下列叙述中正确的是_。（分数：2.00）A.软件交付使用后还需要进行维护B.软件一旦交付使用后就不需要进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修
15、复程序中被破坏的指令17.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=“ABCD“For n=1 To 4Print _NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容；DCDBCDABCD则在填空处应填入的内容为_。（分数：2.00）A.Lelt(c, n)B.Right(c, n)C.Mid(c, n, 1)D.Mid(c, n, n)18.数据库中，数据的物理独立性是指_。（分数：2.00）A.数据库与数据库管理系统的相互独立B.用户程序与 DBMS 的相互独立C.用户的应用
16、程序与存储在磁盘上的数据库中的数据是相互独立的D.应用程序与数据库中数据的逻辑结构相互独立19.从程序的行文角度，编写程序源代码应注意_。（分数：2.00）A.源程序文档化B.程序的语句结构C.数据的说明D.以上都是20.在窗体上画一个名称为 C0mnmndl 的命令按钮和 3 个名称分别为 Label1、Label2、Label3 的标签，然后编写如下代码：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern=10 : z=n+zy=y+z : x=x+zLabel1 Capt
17、ion=xLabel2 Caption=yLabel3 Caption=zEnd Sub运行程序，连续 3 次单击命令按钮后，则 3 个标签中显示的内容分别是_。（分数：2.00）A.10 10 10B.30 30 30C.30 30 10D.10 30 3021.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i=1 To 6If i=1 Then x=iIf i=4 Thenx=x+1Elsex=x+2End IfNext iPrint xE
18、nd Sub程序运行后，单击命令按钮，其输出结果为_。（分数：2.00）A.9B.6C.12D.1522.开发软件时对提高开发人员的工作效率至关重要的是_。（分数：2.00）A.计算机的并行处理能力B.领导的关心C.程序人员的数量D.软件开发环境23.对于数据库系统，负责定义数据库内容，决定存储结构和存取策略及安全授权等工作的是_。（分数：2.00）A.应用程序员B.用户C.数据库管理员D.数据库管理系统的软件设计员24.设窗体上有一个列表框控件 List1，且其中含有若干列表项。则以下能够表示当前被选中的列表项内容的是_。（分数：2.00）A.List1. ListB.List1. List
19、IndexC.List1. IndexD.List1. Text25.在窗件上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500, 500End Sub程序运行后，单击命令按钮，执行的操作为_。（分数：2.00）A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.窗体移动到距屏幕左边界、上边界各 500 的位置C.命令按钮向左、上方向各移动 500D.窗体向左、上方向各移动 50026.以下合法的 Visual Basic 标识符是_。（分数：2.00）A.ForLoopB.ConstC.9abcD
20、.a#x27.在最坏情况下，冒泡排序的时间复杂度为_。（分数：2.00）A.n(n-1)/2B.nlog2nC.n(n+1)/2D.(n+1)/228.以下关于焦点的叙述中，错误的是_。（分数：2.00）A.如果文本框的 TabStop 属性为 False，则不能接收从键盘上输人的数据B.当文本框失去焦点时，触发 LostFoeus 事件C.当文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用D.可以用 TabIndex 属性改变 Tab 顺序29.在窗体上画一个名称为 Command1 的命令按钮、一个名称为 Label1 的标签，然后编写如下事件过程；Private
21、 Sub Command1_Click()s=0For i=1 to 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1. Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是_。（分数：2.00）A.1B.5C.27D.4530.设 a=“Visual Basic“，下面使 b=“Basic“的语句是_。（分数：2.00）A.b=Left(a, 8, 12)B.b=Mid(a, 8, 5)C.b=Right(a, 5, 5)D.b=Left(a, 8, 5)31.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，
22、需要把该命令按钮的一个属性设置为True，这个属性是_。（分数：2.00）A.ValueB.DefaultC.CancelD.Enablcd32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：option Base 1Private Sub Command1_Click()Dim s As Varianta=Array(1, 2, 3, 4, 5)Sum=0For i=1 To 5Sum=Sum_a(i)Next iX=Sum/5For i=1 To 5If a(i)x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内
23、容是_。（分数：2.00）A.1 2B.1 2 3C.3 4 5D.4 533.下列对于线性链表的描述中正确的是_。（分数：2.00）A.存储空间不一定连续，且各元素的存储顺序是任意的B.存储空间不一定连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的34.设有如下程序：Option Base 0Private Sub Form_Click()Dim aDimi As Integera=Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i=0 To 3Print a(5-i);N
24、extEnd Sub程序运行后，单击窗体，则在窗体上显示的是_。（分数：2.00）A.4 3 2 1B.5 4 3 2C.6 5 4 3D.7 6 5 435.在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是_。（分数：2.00）A.Timer1. Interval=0.5B.Timer1. Interval=5C.Timer1. Interval=50D.Timer1. Interval=500二、填空题(总题数：10，分数：20.00)36.一棵二叉树第六层(根结点为第一层)的结点数最多 【1】 个。（分数：2.00）填空
25、项 1:_37.采用结构化程序设计方法能够使程序易读、易理解、 【2】 和结构良好。（分数：2.00）填空项 1:_38.软件工程学中除软件开发技术需重视外，另一重要组成内容是软件的 【3】 。（分数：2.00）填空项 1:_39.数据库系统中实现各种数据管理功能的核心软件称为 【4】 。（分数：2.00）填空项 1:_40.在实际数据库系统中，其所支持的数据模型主要有层次模型、网状模型和 【5】 。（分数：2.00）填空项 1:_41.在窗体上画一个名称为 Command1 的命令按钮。编写如下事件过程：Private Sub Command1_Click()Dim a As StringA
26、= 【6】 For i=1 To 5Print Space(6-i); Mid$(a, 6-i, 2*i-1)Next iEnd Sub程序运行后，单击命令按钮，要求窗体上显示的输出结果为：5456345672345678123456789请填空。（分数：2.00）填空项 1:_42.执行下面的程序段后，i 的值为 【7】 ，s 的值为 【8】 。s=2For i=3.2 To 4.9 Step 0.8s=s+1Next iPrint i, s（分数：2.00）填空项 1:_43.在窗体上画一个名为 Command1 的命令按钮。下列程序的功能是：从输入对话框输入一个正整数 n。用随机函数产生
27、 n 个 1100 范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序：Private Sub Command1_Click()Dim ave As Single, max As Integer, i As Integer, n As IntegerDim min As Integer, Sum As Integer, s As StringDim t As Integers=InputBox(“输入一个正整数:“)n=Val(s)If n0 Thenmax=n: min=n: Sum=0For j=1 To nt= 【9】 Print t;Sum=Sum+tIf
28、tmin Thenmin=tElself maxt Thenmax=tEnd IfNext j【10】 ave=Sum/nMsgBox“平均值=“+Str(ave)，“去掉最大数和最小数后“End IfEnd Sub（分数：2.00）填空项 1:_44.在窗体上画一个名称为 Combol 的组合框，画两个名称分别为 Label1 和 Label2 及 Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII 码为 13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在 Label2 中给出提示“已成功添加输入项”，如
29、图 16-3 所示；如果存在，则在 Label2 中给出提示“输入项已在组合框中”。请在 【11】 、 【12】 和 【13】 处将程序补充完整。Private Sub Comhel 【11】 (KeyAscii As Integer)If KeyAseii=13 ThenFor i=0 To Combol. ListCount-1If Combol. Text= 【12】 ThenLabel2. Caption=“输入项已在组合框中“Exit SubEnd IfNext iLabel2. Caption=“已成功添加输入项“Combol. 【13】 Combol. TextEnd IfEnd
30、 Sub（分数：2.00）填空项 1:_45.以下程序的功能是：把当前目录下的顺序文件 smText1. txt 的内容读入内存，并在文本框 Text1 中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1. Text=“Open“. /mText1. txt“ 【14】 As 1Do While 【15】 Input #1, inDataText1. Text=Text1. Text Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是_。（分数：2.00）A.1 2B.1 2 3C.3 4 5D.
31、4 5 解析：分析 经过第一个 For 循环计算后，变量 Sum 的结果为数组 a 的元素各值之和，即为 15，语句“X=Sum/5”的计算结果 X 为 3。在第二个 For 循环中，数组 a 的元素中只有 4 和 5 能满足大于 3 的条件，所以在窗体上显示为 4 和 5。33.下列对于线性链表的描述中正确的是_。（分数：2.00）A.存储空间不一定连续，且各元素的存储顺序是任意的 B.存储空间不一定连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的解析：分析 线性链表是链式存储结构。在链式存储结构
32、中，存储数据结构的存储空间可以不连续，各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。34.设有如下程序：Option Base 0Private Sub Form_Click()Dim aDimi As Integera=Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是_。（分数：2.00）A.4 3 2 1B.5 4 3 2C.6 5 4 3 D.7 6 5 4解析：分析 不要把下标和数组元素值相混淆。函数 Ar
33、ray 将初值赋给数组 a，在循环中将下标为5、4、3、2 的数组元素值打印出来，即 6、5、4、3。35.在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是_。（分数：2.00）A.Timer1. Interval=0.5B.Timer1. Interval=5C.Timer1. Interval=50D.Timer1. Interval=500 解析：分析 Interval 属性返回或设置对 Timer(计时器)控件的计时事件各调用间的毫秒数，0.5 秒为500 毫秒。二、填空题(总题数：10，分数：20.00)36.一棵二
34、叉树第六层(根结点为第一层)的结点数最多 【1】 个。（分数：2.00）填空项 1:_ （正确答案：32）解析：分析 根结点为第一层的二叉树第 n 层上的结点数最多为 2n-1个，所以第六层上的结点最多为 26-1=32 个。37.采用结构化程序设计方法能够使程序易读、易理解、 【2】 和结构良好。（分数：2.00）填空项 1:_ （正确答案：易维护）解析：分析 本题考查程序化方法的优点。遵循结构化程序设计原则，按结构化程序设计方法设计出的程序具有明显优点。(1)易读性由于采用逐步求精和模块化的设计原则，使程序更加容易被读懂。(2)易理解结构化程序设计中的顺序、选择和反复这 3 种基本结构，使
35、程序从结构上一目了然，更容易被理解。(3)易维护由于结构化程序设计容易被阅读和理解，便于用户使用和维护。38.软件工程学中除软件开发技术需重视外，另一重要组成内容是软件的 【3】 。（分数：2.00）填空项 1:_ （正确答案：工程管理）解析：分析 软件工程是解决软件问题的工程，是从管理和技术两方面研究如何开发和维护计算机软件的一门新兴学科。可见，软件工程中既重视软件开发技术，叉重视软件工程管理。39.数据库系统中实现各种数据管理功能的核心软件称为 【4】 。（分数：2.00）填空项 1:_ （正确答案：数据库管理系统）解析：分析 数据库管理系统(Database Management Sys
36、tem，DBMS)是管理数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操作、数据维护、控制及保护和数据服务等。40.在实际数据库系统中，其所支持的数据模型主要有层次模型、网状模型和 【5】 。（分数：2.00）填空项 1:_ （正确答案：关系模型）解析：分析 数据模型是数据库系统用于提供信息表示和操作手段的结构形式，简单地说数据模型指的是数据库的组织形式，它决定数据库中数据之间联系的表达方式。在数据库系统设计时，首先要确定系统支持的数据模型的类型，从而根据实际情况建立适合某种数据模型的数据库。数据库管理系统所支持的3 种主要传统数据模型是层次模型、网状模型和关系模型。41.在窗体
37、上画一个名称为 Command1 的命令按钮。编写如下事件过程：Private Sub Command1_Click()Dim a As StringA= 【6】 For i=1 To 5Print Space(6-i); Mid$(a, 6-i, 2*i-1)Next iEnd Sub程序运行后，单击命令按钮，要求窗体上显示的输出结果为：5456345672345678123456789请填空。（分数：2.00）填空项 1:_ （正确答案：“123456789/）解析：分析 空格函数 Space $(n)的功能是返回 n 个空格，函数 Mid $(字符串,p,n)的功能是从位置 p开始取字符
38、串的 n 个字符。42.执行下面的程序段后，i 的值为 【7】 ，s 的值为 【8】 。s=2For i=3.2 To 4.9 Step 0.8s=s+1Next iPrint i, s（分数：2.00）填空项 1:_ （正确答案：75.6 85）解析：分析 循环变量 i 的计算过程为 3.2、4、4.8、5.6，循环只有在 5.64.9 的条件成立时，才退出循环体。变量 s 的计算过程为 2、3、4、5。43.在窗体上画一个名为 Command1 的命令按钮。下列程序的功能是：从输入对话框输入一个正整数 n。用随机函数产生 n 个 1100 范围的随机数，然后求出去掉一个最大数和最小数的平均
39、数。根据题意，请完善下列程序：Private Sub Command1_Click()Dim ave As Single, max As Integer, i As Integer, n As IntegerDim min As Integer, Sum As Integer, s As StringDim t As Integers=InputBox(“输入一个正整数:“)n=Val(s)If n0 Thenmax=n: min=n: Sum=0For j=1 To nt= 【9】 Print t;Sum=Sum+tIf tmin Thenmin=tElself maxt Thenmax=t
40、End IfNext j【10】 ave=Sum/nMsgBox“平均值=“+Str(ave)，“去掉最大数和最小数后“End IfEnd Sub（分数：2.00）填空项 1:_ （正确答案：9Int(Rnd*100+1) 10Sum=Sum-max-min）解析：分析 首先假定输入的正整数为最大数(max)和最小数(min)初值。本题采用了 InputBox 从键盘上输入数据，用 Ms-gBox 输出结果。在程序中 min 必须赋一个初值，否则 min 默认为 0。在循环中，每产生一个数就和 max 及 min 进行比较，大的放入 max，小的放入 min，并计算各数之和。循环结束后，减去m
41、ax 和 min，求得平均数 ave。44.在窗体上画一个名称为 Combol 的组合框，画两个名称分别为 Label1 和 Label2 及 Caption，属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII 码为 13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在 Label2 中给出提示“已成功添加输入项”，如图 16-3 所示；如果存在，则在 Label2 中给出提示“输入项已在组合框中”。请在 【11】 、 【12】 和 【13】 处将程序补充完整。Private Sub Comhel 【11】 (KeyAsci
42、i As Integer)If KeyAseii=13 ThenFor i=0 To Combol. ListCount-1If Combol. Text= 【12】 ThenLabel2. Caption=“输入项已在组合框中“Exit SubEnd IfNext iLabel2. Caption=“已成功添加输入项“Combol. 【13】 Combol. TextEnd IfEnd Sub（分数：2.00）填空项 1:_ （正确答案：11KeyPress 12combol. List(i) 13AddItem）解析：分析 当 KeyAscii 为 13 时，表示按下回车键若要组合框控件接
43、收一个回车事件，则要使用Combol_KeyPress 事件。ListCount 属性列出组合框中表项的数量；List 属性保存了组合框中所有值的数组；Addltem 方法用来在列表框中插入一行文本。45.以下程序的功能是：把当前目录下的顺序文件 smText1. txt 的内容读入内存，并在文本框 Text1 中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1. Text=“Open“. /mText1. txt“ 【14】 As 1Do While 【15】 Input #1, inDataText1. Text=Text1. Text & inDataLoopClose #1End Sub（分数：2.00）填空项 1:_ （正确答案：14For Input 15Not EoF(1)）解析：分析 在用 Open 语句打开 smText1. txt 文件时，For Input 表示顺序输入方式，For Output 表示顺序输出方式。EOF 函数用来测试文件的结束状态。“文件号”的含义同前。利用 EOF 函数，可以避免在文件输入时出现“输入超出文件尾”错误。在文件输入期间，可以用 EOF 测试是否到达文件末尾。对于顺序文件来说，如果已到文件末尾，则 EOF 函数返回 True，否则返回 False。
