计算机vb历年笔试真题讲解（精品）

历年笔试真题,单元,顺序,D,码的,10,TRUE,a=a+1,n,num,a(j)=temp,i+1,*.txt,For Input,Not Eof(1),2010.9,（1）下列叙述中正确的是A）线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C）线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D）上述三种说法都不对（2）下列叙述中正确的是A）在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B）在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化C）在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D）上述三种说法都不对（3）软件测试的目的是A）评估软件可靠性B）发现并改正程序中的错误C）改正程序中的错误D）发现程序中的错误,2010.9,（4）下面描述中，不属于软件危机表现的是A）软件过程不规范B）软件开发生产率低C）软件质量难以控制D）软件成本不断提高（5）软件生命周期是指A）软件产品从提出、实现、使用维护到停止使用退役的过程B）软件从需求分析、设计、实现到测试完成的过程C）软件的开发过程D）软件的运行维护过程 （6）面向对象方法中，继承是指A）一组对象所具有的相似性质B）一个对象具有另一个对象的性质C）各对象之间的共同性质D）类之间共享属性和操作的机制,2010.9,（7）层次型、网状型和关系型数据库划分原则是A）记录长度B）文件的大小C）联系的复杂程度D）数据之间的联系方式（8）一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员、与实体计算机之间的联系是A）一对一B）一对多C）多对多D）多对一（9）数据库设计中反映用户对数据要求的模式是A）内模式B）概念模式C）外模式D）设计模式,2010.9,（10）有三个关系R、S和T如下： 则由关系R和S得到关系T的操作是 A）自然连接 B）交 C）投影 D）并 （11）在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是 A） B） C） D）（12）在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是A）工程资源管理器窗口B）属性窗口C）工具箱窗口D）代码窗口,2010.9,（13）下列叙述中错误的是A）列表框与组合框都有List属性B）列表框有Selected属性，而组合框没有C）列表框和组合框都有Style属性D）组合框有Text属性、而列表框没有（14）设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是A）Name B）Index C）Caption D）Left（15）滚动条可以响应的事件是A）Load B）Scroll C）Click D）MouseDown（16）设a=5, b=6, c=7, d=8，执行语句X=Ilf（ab）And （cd）, 10, 20）后，x的值是A）10 B）20 C）30 D）200（17）语句Print Sgn（-62）+ Abs（-62）+Int（-62）的输出结果是A）-36 B）1 C）-1 D）-72,2010.9,（18）在窗体上画一个图片框，在图片框中画一个命令按钮，位置如图所示。 则命令按钮的Top属性值是 A）200 B）300 C）500 D）700（19）在窗体上画一个名称为Command l的命令按钮。单击命令按钮时执行如下事件过程：Private Sub Command 1_Click（）a$=”software and hardwareb$=Right（a$，8）c$=Mid（a$, 1，8）MsgBox a$,，b$，c$, 1End Sub则在弹出的信息框标题栏中显示的标题是A）software and hardwareB）hardwareC）softwareD）1,2010.9,（20）在窗体上画一个文本框（名称为Text 1）和一个标签（名称为Label 1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是A）Private Sub Text1_Change（） Label1.Caption=Text1.Text End SubB）Private Sub Label1_Change（） Label1.Caption=Text1.Text End SubC）Private Sub Text1_Click（） Label1.Caption=Text1.Text End SubD）Private Sub Label1_Click（） Label1.Caption=Text1.Text End Sub,（21）以下说法中错误的是A）如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同B）可以用多个命令按钮组成命令按钮数组C）命令按钮只能识别单击（Click）事件D）通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用 （22）以下关于局部变量的叙述中错误的是A）在过程中用Dim语句或Static语句声明的变量是局部变量B）局部变量的作用域是它所在的过程C）在过程中用Static语句声明的变量是静态局部变量D）过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放（23）以下程序段的输出结果是x=Iy=4Do Until y4x=x*yY=yILoopPrint xA）1 B）4 C）8 D）20,（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是 A）InputBox（输入框”，”请输入VB数据”） B）x=InputBox（输入框”，”请输入VB数据”） C）InputB ox（请输入VB数据”，”输入框”） D）x=InputBox（请输入VB数据”，”输入框”） （25）有如下事件过程：Private Sub Form Click（）Dim n A s Integerx=0n=InputBox（请输入一个整数”）For i=1 TonFor j=1 To ix=xINext jNext iPrint xEnd Sub程序运行后，单击窗体，女口果在输入对话框中输入：，则在窗体上显示的内容是A）13 B）14 C）15 D）16,（26）请阅读程序：Sub subP（b（）As Integer）For i=1 To 4b（i）=2iNext iEnd SubPrivate Sub Command 1_Click（）Dim a（l To 4）As IntegerA（l）=5：a（2）=6：a（3）=7：a（4）=8subP a（）For i=1 To 4Print a（i）Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是 A）2 B）5 C）10 D）出错 4 6 12 6 7 14 8 8 16,（27）Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2, 3, 5, 8,13, 21，34, 55, 89,。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True,否则返回False。Function Isfab（x As Integer）As BooleanDim a As Integer, b As Integer, c As Integer, flag As Booleanflag=Falsea=1：b=IDo While xbc=aba=bb=cIf x=b Then flag=TrueLoopIsfab=flagEnd Function测试时发现对于所有正整数x,函数都返回False,程序需要修改。下面的修改方案中正确的是A）把a= b与b=c的位置互换B）把c=a+b移到b=c之后C）把Do While xb改为Do While xbD）把if x=b Then flag=True改为If x=a Then flag=True,（28）在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：Private Sub Command1_Click（）Dim a$, b$，c$, k%a=ABCD”b=”123456”c=k=1Do While k= Len（a）Or k=Len（b）If k=Len（a）Thenc=cMid（a, k, 1）End IfIf k=Len（b）Thenc=cMid（b, k, 1）End Ifk=k1LoopPrint cEnd Sub运行程序，单击命令按钮，输出结果是A）123456ABCD B）ABCD123456 C）D6C5B4A321 D）AlB2C3D456,（29）请阅读程序：Private Sub Form_ Click（）m=1For i=4 To 1 Step-1Print Str（m）；m=m1For j=1 To iPrint”；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是A）1* B）4* C）* D）* 2* 3* * * 3* 2* * * 4* 1* * *,（30）在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：Private Sub Command l_Click（）Dim aa=Array（1,2,3,4）I=3：j=1Do While i=0s=sa（i）*ji=i-1j=j*10。LoopPrint sEnd Sub运行上面的程序，单击命令按钮，则输出结果是A）4321 B）123 C）234 D）1234（31）下列可以打开随机文件的语句是A）Open file l .dat For lnput As1B）Open”file l .dat For Append As1C）Open”file1.dat For Output As1D）Open”file1.dat For Random As1 Len=20,（32）有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是 A）Private Sub Form _Click（）PopupMenu cutEnd SubB）Private Sub Command l Click（）PopupMenu editEnd SubC）Private Sub Form_ Click（）PopupMenu editEnd SubD）Private Sub Form_lick（）PopupMenu cutPopupMenu pasteEnd Sub,（33）请阅读程序：Option Base IPrivate Sub Form_ Click（）Dim Arr（4, 4）As IntegerFor i=1 To 4For j=I To 4Arr（i, j）=（i - 1）*2jNext jNext iFor i=3To4For j=3 To 4Print Arr（j, i）;Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是 A）5 7 B）6 8 C）7 9 D）8 10 6 8 7 9 8 10 8 11,（34）一下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str= ABCDABCD, ch= B,则函数的返回值为：ACDACDFunction delchar（str As String, ch As String）As StringDim k As Integer, temp As String, ret As Stringret=For k=1 To Len（str）temp=Mid（str, k, 1）If temp= ch Thenret=rettempEnd IfNext kdelchar=retEnd Function但实际上函数有错误，需要修改。下面的修改方案中正确的是A）把ret=rettemp改为ret=tempB）把If temp=ch Then改为If temp ch ThenC）把delchar=ret改为delchar=tempD）把ret =改为temp=,（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text I和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：Dim S I As String, S2 As StringPrivate Sub Form Load（）Text 1 .Text=Text2.Text=Text 1Enabled=FalseText2Enabled=FalseEnd SubPrivate Sub Form_ KeyDown（KeyCode As Integer, Shift As Integer）S2=S2Chr（KeyCode）End SubPrivate Sub Forin_ KeyPress（KeyAscii As Integer）S1=S1Chr（KeyAscii）End SubPrivate Sub Command l ClickText l .Text=SlText2.Text=S2S1=S2=End Sub程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为A）abc和ABC B）空白 C）ABC和abc D）出错,二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。（1）一个栈的初始状态为空。首先将元素5，4，3，2，1 依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为1DCBA2345【1】_。（2）在长度为n的线性表中，寻找最大项至少需要比较Log2n【2】次。（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有_【3】25个结点。（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是结构化程序设计【4】程序。（5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和物理设计【5】_。,（6）窗体上有一个名称为Combo1的组合框， 其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。 Option Base 1Private Sub Command 1_ Click（Dim city As Variantcity=city(i)【6】（北京，天津，上海，武汉，重庆，西宁）For i=1【7】_To UBound（citv）Combo 1.Addltem_【8】_NextEnd Sub,（7）窗体上有一个名称为Text 1的文本框和一个名称为Command l、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。 Private Sub Command 1 _Click（）Dim x As Integerx=Val（InputBOX（输入数据）Text 1=Str（fun（x）+fun（x）+fun（x）End SubPrivate Function fun（ByRef n As Integer）If n Mod 3=0 Thenn=n+nElsen=n*nEnd Iffun【9】=nEnd Function当单击命令按钮，在输入对话框中输入2时，文本框中显示的是276【10】_,（8）窗体上有一个名称为List1的列表框，一个名称为Picture 1的图片框。Form_ Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。 Private Type PicgName As String*10 物品名称picFile As String*20 物品图片的图片文件名End TypeDim p（4）As Pic，pRec As PicPrivate Sub Form Load（）Open”Datal.txt For Random As1 Len 【11】_=Len（pRec）For i=0 To 4Get1，i+l，P（i）LIStI.AddItem p（i）.gNaineNext iClose1End SubPrivate Sub List I-DbICIickOFor i=OTo4If RTrim（List一List（i）=RTrim（ p（i）.gName【12】）ThenPicture l.，Picture=LoadPicture（p（i）.picFile【13】）Exit ForEnd IfNextEnd Sub,（9）窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如： G:VB2010-9in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。以下是单击“打开”菜单项的事件过程，请填空。Dim mnuCounter As IntegerPrivate Sub tnnuOpen_ Click（）CD1Show0penIf CD1 FileNameThenOpen CD1.FileName【14】For Input As1mnuCounter=mnuCounter+1Load FName（mnuCounter）FName（mnuCounter）.Caption=CD1.FileNameFName（mnuCounter）.Visible【15】_=TrueClose1End IfEnd Sub,2010.3,一、选择题(每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列叙述中正确的是A)对长度为n的有序链表进行查找，最坏情况下需要的比较次数为nB)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n log2n)(2)算法的时间复杂度是指A)算法的执行时间B)算法所处理的数据量C)算法程序中的语句或指令条数D)算法在执行过程中所需要的基本运算次数,2010.3,(3)软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是A)编辑软件B)操作系统C)教务管理系统D)浏览器(4)软件(程序)调试的任务是A)诊断和改正程序中的错误B)尽可能多地发现程序中的错误C)发现并改正程序中的所有错误D)确定程序中错误的性质(5)数据流程图(DFD图)是A)软件概要设计的工具B)软件详细设计的工具C)结构化方法的需求分析工具D)面向对象方法的需求分析工具,2010.3,(6)软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于A)定义阶段B)开发阶段C)维护阶段D)上述三个阶段(7)数据库管理系统中负责数据模式定义的语言是A)数据定义语言B)数据管理语言C)数据操纵语言D)数据控制语言(8)在学生管理的关系数据库中，存取一个学生信息的数据单位是A)文件B)数据库C)字段D)记录(9)数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A)需求分析阶段B)逻辑设计阶段C)概念设计阶段D)物理设计阶段,2010.3,(10)有两个关系R和T如下：则由关系R得到关系T的操作是 A)选择B)投影C)交D)并 (11)在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是,2010.3,(12)设x是整型变量，与函数f(x0,-x,x)有相同结果的代数式是A)|x|B)-|x|C)xD)-x(13)设窗体文件中有下面的事件过程：Private Sub Command1_Click()Dim sa%=100Print aEnd Sub其中变量a和s的数据类型分别是A)整型，整型 B)变体型，变体型C)整型，变体型D)变体型，整型,2010.3,(14)下面哪个属性肯定不是框架控件的属性A)TextB)CaptionC)LeftD)Enabled(15)下面不能在信息框中输出“VB”的是A)MsgBox “VB” B)x=MsgBox(VB)C)MsgBox(“VB”) D)Call MsgBox VB(16)窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Option1_C1ick(Index As Integer)End Sub下面关于此过程的参数Index的叙述中正确的是A)Index为1表示单选按钮被选中，为O表示未选中B)Index的值可正可负C)Index的值用来区分哪个单选按钮被选中D)Index表示数组中单选按钮的数量,2010.3,(16)窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Option1_C1ick(Index As Integer)End Sub下面关于此过程的参数Index的叙述中正确的是A)Index为1表示单选按钮被选中，为O表示未选中B)Index的值可正可负C)Index的值用来区分哪个单选按钮被选中D)Index表示数组中单选按钮的数量(17)设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发A)Text1的SetFocus事件 B)Text1的GotFocus事件C)Text1的LostFocus事件D)窗体的GotFocus事件,2010.3,(18)VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母A)这3个事件都会触发 B)只触发KeyPress事件C)只触发KeyDown、KeyUp事件D)不触发其中任何一个事件(19)下面关于标准模块的叙述中错误的是A)标准模块中可以声明全局变量B)标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程C)标准模块中可以包含一些Public过程D)一个工程中可以含有多个标准模块(20)设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是A)Form1_MouseDownB)Win_MouseDownC)Form_MouseDown D)MouseDown_Form1,2010.3,(21)下面正确使用动态数组的是A)Dim arr() As IntegerReDim arr(3,5)B)Dim arr() As IntegerReDim arr(50)As StringC)Dim arr()ReDim arr(50) As IntegerD)Dim arr(50) As IntegerReDim arr(20),2010.3,(22)下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是A)Print gcd(8,12)，gcd(12,16)，gcd(16,8)B)Print gcd(8,12,16)C)Print gcd(8)，gcd(12)，gcd(16)D)Print gcd(8,gcd(12,16),2010.3,(23)有下面的程序段，其功能是按图1所示的规律输出数据Dim a(3,5) As IntegerFor i=1 To 3For j=1 To 5A(i,j)=i+jPrint a(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是,A)For i=1 To 5For j=1 To 3Print a(j,i);NextPrintNext,B)For i=1 To 3For j=1 To 5Print a(j,i);NextPrintNext,C)For j=1 To 5For i=1 To 3Print a(j,i);NextPrintNext,D)For i=1 To 5For j=1 To 3Print a(i,j);NextPrintNext,2010.3,(24)窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序Private Sub Commandl_Click()Dim nIf Text1.Text23456 Thenn=n+1Print 口令输入错误 & n & 次End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A)在Dim n语句的下面添加一句：n=OB)把Print 口令输入错误 & n & 次改为Print 口令输入错误 +n+次C)把Print 口令输入错误 & n & 次改为Print 口令输入错误&Str(n)&次D)把Dim n改为Static n,2010.3,(25)要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A)Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)Print X,YEnd SubB)Private Sub P1_MouseDown(Button AS Integer,Shift As Integer,X As Single, Y As Single)Picture.Print X,YEnd SubC) Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)P1.Print X,YEnd SubD)Private Sub Form_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)P1.Print X,YEnd Sub,(26)计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出的近似值：Private Sub Comand1_Click()PI=1Sign=1n=20000For k=3 To nSign=-Sign/kPI=PI+Sign/kNext kPrint PI*4End Sub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是A)把For k=3 To n 改为 For k=1 To nB)把n=20000改为n=20000000C)把For k=3 To n改为For k=3 To n Step 2D)把PI=1改为PI=0,2010.3,(27)下面程序计算并输出的是Private Sub Comand1_Click()a=10s=0Dos=s+a*a*aa=a-1Loop Until a=0 ThenCount(n)=Count(n)+ 1End IfNext km=count(0)For k=1 To 25If mm=count(k)End IfNext kPrint mEnd Sub,A)0B)1C)2D)3,2010.3二、填空题,(1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入 队，然后再依次退队，则元素退队的顺序为 【1】 。(2)设某循环队列的容量为50，如果头指针front=45(指向队头元素的前 一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有 【2】 个元素。(3)设二叉树如下：对该二叉树进行后序遍历的结果为 【3】 。(4)软件是 【4】 、数据和文档的集合。(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号， 【5】 ，成绩)。(6)为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为 2【6】 。,(7)在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load()Label1.Caption=欢迎Timer1.Enabled=FalseTimer1.Interval= 500【7】End SubPrivate Sub Timer1_Timer()Label1.Visible= False【8】End SubPrivate Sub command1_Click()【9】 Timer1.Enabled=TrueEnd Sub,(8)有如下程序：Private Sub Form_Click()n=10i=0Doi=i+nn=n-2Loop While n2Print iEnd Sub程序运行后，单击窗体，输出结果为 28【10】 。,(9)在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i=1 To 10a(i)=iNextCall swap ( a()【11】 )For i=1 To 10Print a(i);NextEnd SubSub swap(b() As Integer)n=Ubound(b)For i=1 To n / 2t=b(i)b(i)=b(n)b(n)=tn=n-1【12】NextEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，。请填空。,(10)在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click()Open d:testsmtext1.Txt For Input As #1Do While Not 【13】EOf(1)Line Input #1, aspect$Whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$【14】 Close #1Open d:testsmtext2.Txt For Output As #1Print #1, 【15】Text1.TextClose #1End Sub运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。,2009.9,1)下列数据结构中，属于非