计算机VB考试总复习题模拟试题.docx

全真模拟试卷（一）一、选择题:（1）数据的存储结构是指（）（A）存储在外存中的数据（B）数据所占的存储空间量（C）数据的逻辑结构在计算机中的表示（D）数据在计算机中的顺序存储方式（2）下列关于队列的叙述中正确的是（）（A）在队列中只能删除数据（B）在队列中只能插入数据（C）队列是先进后出的线性表（D）队列是先进先出的线性表（3）对长度为n的线性表进行顺序查找，在最坏的情况下所需要的比较次数为（）(A) n(B) n+1(C) n/2(D) (n+1 ) /2结构化程序设计的3种结构是（） （A）顺序结构、选择结构、转移结构 （C）多分支结构、赋值结构、等价结构（B）顺序结构、选择结构、循环结构 （D）分支结构、等价结构、循环结构（5）编制一个好的程序，首先要保证它的正确性和可靠性，还应强调良好的编程风格，在书写功能性注释时应考虑（）（A）仅为整个程序作注释（B）仅为每个模块作注释（C）为程序段作注释（D）为每个语句作注释（6）需求分析的最终成果是产生（）（A）项目开发计划（B）需求规格说明书（C）设计说明书（D）可行性分析报告（7）验证软件的功能和性能及其他特性是否满足了需求规格说明中确定的各种需求以及软件配置是否完全、正确的过程是（）（A）单元测试（B）集成测试（C）确认测试（D）系统测试（8）在数据库管理系统提供的数据语言中，负责数据的模式定义与数据的物理存取构建的是（）（A）数据定义语言（B）数据转换语言（C）数据操纵语言（D）数据控制语言（9）数据库系统的三级模式结构中，下列不属于三级模式的是（）（A）内模式（B）抽象模式（C）外模式（D）概念模式（10）关系代数运算是以（）为基础的运算（A）关系运算（B）谓词运算（C）集合运算（D）代数运算（11）以下不能在工程资源管理器窗口中列出的文件类型是（）（A）.bas（B）.res（C）.firn（D）.ocx（12）决定一个窗体或控件的位置的属性是（）（A） Top 和 Width （B） Top fU Left（C）Le代和 Width（D） Width 和 Height（13）下列叙述中错误的是（）（A）对象具有属性、方法等特性，可以识别预先定义的事件（B）对象之间可以进行通信，方式是通过互传消息完成（C） 一个对象中包含数据及其对这些数据的相关操作（D）对象的属性值一经初始化，则不能再改变（14）下面给出的符号中，可以作为Visual Basic的变量名的是（）（D） Beta （B）;tR （C） Print （D） abc-123（15）以下关系表达式中，其值为False的是（）（A）“XYZ"<“XYz"（B）“the”o "there"（C）“123”>“ABC"（ D）Chr（Asc（"A"）= Ucase（“a”）（16）在窗体上画一个命令按钮，名称为Commands单击命令按钮时，执行如下事件过程：Private Sub Command 1 Click （）a$="Visual Basic Language"b$= Right（a5,8）c$= Mid（a$,1,6）MsgBox a$, b$, c$,1End Sub则在弹出的消息框的标题栏中显示的信息是()(A) Visual Basic Language (B) Visual (C) Language (D)1(17)设有以下程序，当程序运行时，单击窗体，则在窗体上输出结果为()Private Sub Form Click ()Dim i As Integer, j As Integer i=100 j =200Print i=jEnd Sub(A)程序出错(B)100(C)200(D) False(18)若在Shape控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackColor属性填充，则应()(A)将其FillStyle属性设置为27的某个值，Backstyle属性设置为1(B)将其FillStyle属性设置为0或1, Backstyle属性设置为1(C)将其FillStyle属性设置为27的某个值，Backstyle属性设置为0(D)将其FillStyle属性设置为。或1, Backstyle属性设置为0(19)设窗体有一名称为Timerl的计时器控件，要使该计时器在程序运行过程中每隔2s自动触发一个Timer事件，则在程序代码中应写的语句是()(A) Timerl.Interval=2000(B) Timerl.Interval=200(C) Timerl,Interval=20(D) Timerl.Interval=2(20)下列选项中，不能将图片装入图片框和图像框的方法是()(A)在设计阶段，在属性窗口中将Picture属性的值设置为某个图片文件(B)在设计阶段，直接在图片框和图像框中手工绘制一幅图(C)在设计阶段，把已复制到剪贴板上的图橡粘贴到图片框或图像框中(D)在程序代码中，直接利用LoadPicture函数将图像装入图片框或图像框(21)以下程序段中的执行结果为“OK”的是()(A) Dim y As Integer(B) Dim y As Integery= 10y = 20Select Case ySelect Case yCase 11 to 1Case Is>20,Is<20Print "OKMPrint “OK”End SelectEnd Select(C) Dim y As Integer(D) Dim y As Integery = 6y=ioSelect Case ySelect Case yCase Is>6,1,2 to 5Case l,3Js>6Print "OKMPrint nOKMEnd SelectEnd Select(22)以下是窗体的Click事件过程及其程序代码，则在程序运行时，单击窗体，程序的输出结果为() Private Sub Form Click ()Dim y As Integer,1 As Integer, s As Integer s ="Between 2050 and 3000"y = Val(Mid(s, InStr(s, H2H),4)If y Mod 400=0 Or (y Mod 100=0 And y Mod 4<>0) Then1=1Else1 =-1End IfPrint IEnd Sub(A)0(B)1(C)-1(D) Null(23)以下是命令按钮Command 1的Click事件过程代码：Private Sub Commandl_Click ()Dim i As Integer, j As Integer, k As Integer, s As Integer s =0For i =1 To 3For j =1 To iFor k=j To 3 s = s +1Next kNext jNext iPrint sEnd Sub(A)12(B)14(C)16(D)18(24)以下是窗体模块的程序代码，当程序运行过程中，单击窗体后，输出结果是()Const NUM As Integer =10Dim a As Integer, b As Integera=l:b = NUMDo Until b > NUMa = a * bb = b+1LoopPrint a(A)10(B)1(C)11(D)20(25)语句Print Iif(2,3,4)的输出结果为()(A)0(B)2(C)3(D)4(26)下列有关控件数组的说法中，正确的是()(A)控件数组中所包含的控件必须是同一种类型的，且它们的Name属性值相同，但每个控件的Index属性值不同(B)控件数组中所包含的控件必须是同一种类型的，且它们的Name属性值不能相同(C)可以将窗体上的各种类型的控件创建到一个控件数组中(D)程序运行时，对控件数组中的不同控件操作而触发事件时，执行的是对应于各个控件的事件过程代码(27)以下程序段的运行结果是()Dim a(-l To 5) As Booleanflag = FalseDim i As Integer, j As IntegerDo Until flag = TrueFor i = LBound(a) To UBound(a)j=j +1If a(i)= False Then a(i)= True Exit ForEnd IfIfi =5Then flag = TrueNext iLoopPrint j(A)7(B)35(C)20(D)8(28)在窗体上画一名称为Commandl的命令按钮，然后编写如下程序代码：Private Sub Command l_Click ()Dim al(l To 10) As Integer, a2(l To 10) As IntegerDim n As Integer, i As Integern =3For i =1 To 5al(i)= ia2(n)=2*n + iNext iPrint a2(n)End Sub在运行过程中，单击命令按钮后，则程序的输出结果为()(A)7(B)9(C)11(D)13(29)在窗体上加一个命令按钮，其名称为Commandl,然后编写以下程序代码：Private Sub Command 1 Click ()Dim data, nl, n2data = Array(10,30,-20,50,20)subl data, nl, n2Print nl; n2End SubPrivate Sub subl(d, ml, m2)Dim i As Integerml = d(LBound(d)m2= d(LBound(d)For i = LBound(d)+1 To UBound(d)If ml < d(i) Then ml = d(i)If m2> d(i) Then m2= d(i)Next iEnd Sub当程序运行过程中，单击命令按钮Commandl后，程序的输出结果为()(A)50-20(B)10-20(C)-2050(D)00(30)在窗体Forml上添加一个命令按钮Commandl,然后编写窗体模块的代码：Dim x As IntegerPrivate Sub mysub()Dim x As IntegerPrint Hx=M; xx =200End SubPrivate Sub Command 1_Click() x=100 Call mysubPrint Mx=M; xEnd Sub当程序运行过程中，单击命令按钮Commandl后，则程序的输出结果为()(A) x=100(B) x=0(C) x=0(D) x=200x=200x=200x=100x=100(31)在窗体上加一命令按钮，其名称为Commandl,然后编写以下程序代码：Private Sub Command 1_Click()Dim str As Stringstr = InputBox("请输入”)Print fund (str)End SubPrivate Function funcl(s As String) As IntegerDim i As Integer, d As Integer d =0For i = Len(s) To 1 Step -1 d = d*10+ Val(Mid(s, i,1)Next ifiinc 1= dEnd Function当程序运行时，单击命令按钮Commandl后，在出现的输入对话框中输入“315”并按回车键，则程序的输出结果为()(A)315(B)5130(C)135(D)513(32)在窗体Forml上添加一个命令按钮Commandl,然后编写窗体模块代码，代码如下：Private Function myfunc(ByVal ar As Integer)Dim b As IntegerStatic c As Integer b = b+1 c = c +1 myfiinc = ar + b + c End FunctionPrivate Sub Command l_Click()Dim a As Integer, i As Integer a =1For i =1 To 3Print myfunc(a);Next iEnd Sub当程序运行过程中，单击命令按钮Commandl后，则程序的输出结果为()(A)333(B)345(0555(D)222(33)要把一个名称为mnuColor的菜单项设置为不可见的语句是()(A) mnuColor.Checked=False(B) mnuColor.Enabled=False(C) mnuColor.Visible=False(D) mnuColor.Caption=False(34)以下有关多重窗体的叙述中，错误的是()(A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体(B)在多重窗体程序中，各窗体的菜单是彼此独立的(C)在多重窗体中，可以根据需要指定启动窗体(D)对于多重窗体程序，需要单独保存每个窗体(35)以下说法中正确的是()(A)随机文件中的记录号是通过随机数产生的(B)随机文件中的各记录的长度不一定完全相同(C)对于随机文件，可按记录号任意读取或写入记录(D)对于随机文件，利用Seek函数可返回文件指针当前在文件中的字节位置二、填空题：(1)设一棵二叉树的中序遍历结果为DBEAFC,前序遍历结果为ABDECF,则该二叉树的后序遍历结果为(2)算法的复杂度主要包括复杂度和空间复杂度。(3)在面向对象方法中，信息隐蔽是通过对象的性来实现(4)数据库管理系统是位于用户与之间的软件系统(5)在关系模型中，关系表中的每一行称为一个(6)表达式 Rtrim(Lcase(llAbcd ")& Right("mnopq”,3)的值为(7)在窗体上画一个名称为Labell的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Lablell中显示所选中的项目，如图14.1所示。请填入适当的内容，将程序补充完整。图14.1程序运行时的用户界面图(一)Private Sub Form Load ()List 1.Additem ”北京”Listl.Additem ”上海”List 1.Additem ”河北”End SubPrivate Sub Listl()label 1.Caption =End Sub(8)在窗体上画一名称为Command 1的命令按钮，并编写如下程序代码:Private Sub Command 1 Click ()Dim si As String, s2 As StringDim i As Integersi =Trim(InputBox(”请输入值”)i = Len(i)Do While (si)s2= s2+ Mid(sl,i,1)i = i-1LoopPrint s2End Sub当程序运行时，单击命令按钮，在出现的输入对话框中，输入abed并按回车键后，则程序的输出结果是(9)下列程序的功能是产生10个1100的随机数，然后打印出其中偶数的个数，请将程序补充完整。Option Base 1Private Sub Command l_Click()Dim a(10) As Integer, i As IntegerDim s As Integers =0For i =1 To 10a(i)= Int(l 00* Rnd +1)If= Int(a(i)/2) ThenNext iPrint sEnd Sub(10)在窗体上画一个文本框，其名称为Textl,然后编写如下事件过程，该程序的功能是当程序运行时，输入焦点在文本框时，通过按下Ctrl+A组合键可以选取文本框内所有的文本。请将程序补充完整。Private Sub Text 1_KeyDown(KeyCode As Integer, Shift As Integer)If=65 And=2 ThenTextl.SelStart =0Text 1.Sei Length = Len(Textl.Text)End IfEnd Sub(11)在窗体Forml上加入一个通用对话框控件CD1、一个文本框Textl和一个命令按钮Command 1,并将文本框Textl 的Multiline属性设置为true, ScorllBars设置为3。程序的功能是：当程序运行时，单.击命令按钮Commandl后，可显示一个“打开”文件对话框，如果单击“文件”对话框中的“打开”按钮，则可将对话框中选中的文本文件的内容显示到文本框中。以下是命令按钮Commandl的Click事件过程，请将程序补充完整。Private Sub Command l_Click（）Dim fh As Long cdl.FileName ="M cdl.Filter ="文本文件Ifcdl.FileNameoM" ThenOpen For Input As #1fh = LOF（l）Text 1.Text = input（fn,#1）Close #1End IfEnd Sub全真模拟试卷（二）、选择题：（1）算法的时间复杂度是指（）（A）算法程序中的指令条数（B）算法执行过程中所需要的基本运算次数（C）算法程序的长度（D）执行算法程序所需要的时间（2）在顺序表（2,8,10,15,25,28,30,32,40,45,49）中，用二分法查找犍码值18,所需的关键码比较交数是（）（A）2（B）3（C）4（D）5（3）在排序方法中，将整个无序序列分割成若干个小的子序列并分别进行插入排序的方法，称为（）（A）插入排序（B）冒泡排序（C）希尔排序（D）选择排序（4）源程序中应包含一些内部文档，以帮助阅读和理解程序。源程序的内部文档通常包括选择合适的标识符、注释和（）（A）设计良好的输出报表（B）程序的视觉组织（C）尽量不用或少用TOGO语句（D）检查输入数据的有效性（5）在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是（）（A）概要设计（B）详细设计（C）可行性分析（D）需求分析（6）下列对于软件测试的描述中正确的是（）（A）软件测试的目的是证明程序是否正确（B）软件测试的目的是尽可能多地发现程序中的错误（C）软件测试的目的是使程序运行结果正确（D）软件测试的目的是使程序符合结构化原则（7）数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是（）（A）控制流（B）加工（C）数据存储（D）源源和潭（8）下面关于数据系统叙述正确的是（）（A）数据库系统避免了一切冗余（B）数据库系统减少了数据冗余（C）数据库系统比文件能管理更多的数据（D）数据库系统中数据的一致性是指数据类型的一致（9）单个用户使用的数据视图的描述称为（）（A）内模式（B）概念模式（C）外模式（D）存储模式（10）用树形结构表示实体之间联系的模型是（）（A）层次模型（B）网状模型（C）关系模型（D）以上都不是（11） Visual Basic的集成开发环境可以（）（A）编辑、调试、生成可执行程序，但不能运行程序（B）编辑、调试、运行程序，也能生成可执行程序（C）编辑、生成可执行程序、运行程序，但不能调试程序(D)编辑、调试、运行程序，但不能生成可执行程序(12)如果改变窗体的标题信息，则需要设置的属性是()(A) Caption (B) Name (C) BackColor (D) BorderStyle(13)以下说法中正确的是()(A)窗体和控件是用来设计程序用户界面的，但它们并不是Visual Baic的对象(B)只有控件才是Visual Basic的对象，窗体只是起''容器”作用而存在的(C)窗体和控件都是Visual Basic中的对象(D)只有ActiveX控件才是Visual Basic的对象，标准控件本身就是Visual Basic的一部分，因此，标准控件不是对象(14)表示“x+y小于100且x-y大于或等于60”的表达式是()(A) x+yvl00 orx-y260(B)(x+y<100)=(x-y)260(C) x+y<100.and. x-y>=60(D) x+y<100 and x-y>=60(15)表达式 Sin(O)+Abs(-l)+Int(Rnd(l)的值是()(A)2(B)1(C)0(D)-1(16)在窗体上添加一文本框(名称为Textl)和一命令按钮(名称为commandl),并编写如下代码：Private Sub Commandl_Click()si = InputBox("请输入 si 的值：")s2= InputBox("请输入 s2的值：”)Textl.Text = si + s2End Sub当程序运行过程中，单击命令按钮，在两次出现的输入对话框听文本框中分别输入100和200并按回车键后，则文本框textl中显示的数据为()(A)300(B)100(C)200(D)100200(17)若要将窗体中的某一命令按钮设置为默认命令按钮(即按回车键与单击该命令按钮的作用相同)，则应()(A)将其Cancel属性设置为false(B)将其Default属性设置为false(C)将其Default属性设置为true(D)将其Cancel属性设置为true(18)高有一列表框Listl,在程序代码中，要得到该列表框中最后一个列表框的文本值，则应书写的表达式是()(A) List 1.List(List 1.ListCount-1)(B) List 1.ListListCount-1)(C) List 1.List(ListCount)(D) Listl.List(Listl.ListCount)(19)当一个复选被选中时，它的Value属性的值是()(A)3(B)2(C)1(D)0(20)在窗体上画一个文本框和一个计时器控件，名称分别为textl和timer 1»在属性窗口中把计时器的interval属性设置为1000, enabled属性设置为回se。程序运行后，如果单击命令按钮，则每隔1s在文本框中显示一次当前的时间。以下是实现上述操的程序：Private Sub Command 1_Click()Timer 1.End SubPrivate Sub Timer l_Timer()Textl.Text = TimeEnd Sub在下划线处应填入的内容是()(A) enabled=true (B) enabled=false (C) visible=true (D) visible=false(21)以下是命令按钮commandl的click事件过程。Private Sub Command I Click ()Dim s As String, n As Integer, i As Integern =0s = InputBox("输入数据")For i =1 To Len(s)If(LCase(Mid(s, i,1)>="aH And LCase(Mid(s, i,1)<= nzH) Then n = n +1End IfNext iPrint nEnd Sub程序运行时，单击命令按钮command 1,在出现的输入对话框中输入"ABCDabcxyzl23”并按回车键后，程序的输出结果是()(A)4(B)10(C)6(D)3(22)以下是窗体的click事件过程及其程序代码，在程序运行中，单击窗体时，程序的输出结果为()Private Sub Form_Click()Dim score As Integerscore = Int(Rnd *10+80)Select Case scoreCase Is <60Print "failMCase 60 To 79Print "psaaMCase 80, Is <=89Print “good”Case Is >=90Print ,'excellent0End SelectEnd Sub(A) excellent (B) good (C) pass (D) fail(23)在窗体上加一名称为command1的命令按钮和一名称为textl的文本框，编写如下程序代码:Private Sub Command l_Click()Dim check, countercheck = True: counter =0DoDo While counter <20counter = counter +1If counter =10 Thencheck = FalseExit DoEnd IfLoopLoop Until check = FalseTextl .Text = counterEnd Sub程序运行时，单击命令按钮，则在文本框中显示的结果为（）(A) true (B) false(C) 20(D) 10(24)以下正确的语句是()(A) If a > b Then t = a;a = b;b = t(B) If a > b Then t = a a = b b = t(C) If a > b Then t = a: a = b: b = t(D) If a > b Then t = a, a = b,b = t(25)在窗体上画一个名称为command1的命令按钮，然后编写如下程序代码：Option Base 1Private Sub Command l_Click()Dim x, mDim i As Integer, pos As Integer x = Array(-10,-1,20,56,70) m = Val(InputBox(Minput a value'*) ReDim Preserve x(UBound(x)+1) i = UBound(x)Do Whilem<x(i-1) x(i)= x(i-1) i = i -1If i = LBound(x) Then Exit DoLoop x(i)= m Print x(UBound(x)2)End Sub在程序运行过程中，单击命令按钮，在出现的输入对话框中输入5按回车键后，则程序的输出结果为()(A)-10(B)-5(C)20(D)-1(26)在窗体上添加一个名称为textl的文本框和一个名称为commandl的命令按钮，然后编写以下事件过程代码: Option Base 1Private Sub Command l_Click()Dim arrl(5,5) As IntegerDim i As Integer, j As IntegerFor i =1 To 3For j =2 To 4 arrl(i,j)= i+jNext jNext iText 1.Text = arrl(2,3)+ arrl(3,4)+ arrl(l,1)End Sub程序运行时，单击命令按钮command1后，在文本框中显示的值是()(A)12(B)13(C)14(D)15(27)控件数组中的各元素的下标是由()属性指定。(A) name (B) index (C) tabindex(D) order(28)以下是窗体的click事件过程form click的程序代码：Option Base 1Private Sub Form_Click()Dim a(10) As Integer, p(3) As IntegerDim i As Integer, k As Integer k =0For i =1 To 10a(i)=2*a(i-1)+1Next iFor i =1 To 3 p(i)= a(i *i)Next iFor i =1 To 3 k = k + p(i)2Next iPrint kEnd Sub在程序运行过程中，单击窗体后，程序的输出结果为()(A)5(B)7(C)9(D)11(29)在窗体上画一个名称为commandl的命令按钮，然后编写如下代码：Private Sub Command l_Click()Dim a(3) As IntegerDim i As Integer, s As Integer i =0: s =0Do Until i >3a =(i+ l)*(i +2)s = s + a(i)1 = i+1LoopPrint sEnd Sub程序运行后，单击命令按钮，则程序的输出结果是()(A)18(B)20(C)40(D)6(30)在窗体上加一命令按钮，其名称为commandl,然后编写以下程序代码:Private Sub Command 1_Click()Dim a As Integer, b As Integer a =12: b =2Print func(a, b)End SubPrivate Function func(ByVal x As Integer, ByVai y As Integer) As Integer Dim t As IntegerDo While y<>0x = yy = t Loop End Function在程序运行过程中，单击命令按钮commandl后，在程序上的输出结果为()(A) 80(B)6(C)2(D)0(31)以下关于菜单的叙述中，错误的是()(A)在程序设计过程中可以增加或减少菜单项(B)如果把一个菜单项的enabled属性设置为false,则可删除该菜单项(C)快捷菜单在菜单编辑器中设计(D)利用控件数组可以实现菜单项的增加或减少(32)设在窗体上添加一个名称为CD1的通用对话框控件，希望在文件对话框中的“文件类型”列表框中包括“所有文件”、“Word文件”、“Jpg图像文件”共3种类型，则在程序代码中正确的设置语句是()(A) CDl.Filter="所有文件|*.*|Word文件|*.doc|Jpg 图像文件|*.jpg”(B) ©口1.£他尸”所有文件303文件|Jpg图像文件”(C) CDl.Filter=所有文件|*.*|Word 文件|*.doc|Jpg 图像文件|*.jpg(D) CDl.Filter="所有文件;*.*;Word 文件;*.doc;Jpg 图像文件;*.jpg”(33)以下叙述中正确的是()(A)在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程(B)局部变量的作用域可以超出所定义的过程(C)在窗体的Form_click事件过程中定义的变量是全局变量(D)在调用过程时，所有局部变量被系统初始化为0或空字符串(34)以下关于文件的叙述中，错误的是()(B)随机文件中记录的长度是随机的(D) LOF函数返回给文件分配的字节数(A)顺序文件中的记录一个接一个地顺序存放(C)执行打开文件的命令后，自动生成一个文件指针(35)以下程序段执行时，两个Print语句的输出结果是(Private Sub Command 1_Click()Open "d:report.txt” For Random As #5Seek #5,3Seek #5,10Seek #5,7Print Seck(5)Print Loc(5)Close #1End Sub(A) 7 和 6(B) 7 和 5(C) 3 和 5(D) 5 和 10二、填空题：(1)一棵完全二叉树中共有600个结点，则在该二叉树中共有个叶子结点。(2)数据结构包括数据的逻辑结构、数据的以及对数据的操作运算。(3)在面向对象的方法中，类是一个支持集成的抽象数据类型，而对象是类的 o(4)数据库系统中，实现数据管理功能的核心软件称为 o(5)数据库设计分为以下6个设计阶段：需求分析阶段、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。(6)在窗体上画一个名称为command1的命令按钮和一个名称为textl的文本框。程序运行后，command1为禁用(灰色显示)。当向文本框中输入任何字符时，命令按钮commandl变为可用。请填空。Private Sub Form_Load()Command 1.Enabled = FalseEnd SubPrivate Sub Textl()Command 1.Enabled = TrueEnd Sub(7)在窗体上画一个名称为commandl的命令按钮和一个名称为textl的文本框，在程序运行过程中，当单击命令按钮后，则在文本框中显示的结果是。Dim a As Integer, b As IntegerFor a =1 To 5For b =1 To 10a = a +1b = b +1Next bNext aTextl.Text = aEnd Sub(8) Private Sub Form_Click()Dim k As Integer, m As Integer, n As Integer n =5:m=l:k=lDo While k<=nm = m +2k = k +2LoopPrint mEnd Sub当程序运行时，单击窗体的执行结果是0