计算机二级vb笔试真题.docx

二级VB笔试试题一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置h（1）下列叙述中正确的是A）线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C）线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D）上述三种说法都不对（2）下列叙述中正确的是A）在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B）在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化C）在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D）上述三种说法都不对（3）软件测试的目的是A）评估软件可靠性B）发现并改正程序中的错误C）改正程序中的错误D）发现程序中的错误（4）下面描述中，不属于软件危机表现的是A）软件过程不规范B）软件开发生产率低C）软件质量难以控制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）有三个关系R、S和T如下：则由关系R和S得到关系T的操作是A）自然连接B）交C）投影D）并（11）在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮,这个按钮是A） H B）矽C）用 D）囱（12）在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是A）工程资源管理器窗口B）属性窗口C)工具箱窗口D)代码窗口(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=Hf (a>b) And (c>d),10,20)后, x的值是A)10 B)20 C)30 D)200(17)语句 Print Sgn (-6A2)+ Abs (-6A2)+Int (-6A2)的输出结果是A)-36 B)1 C)-1 D)-72(18)在窗体上画一个图片框，在图片框中画一个命令按钮，位置如图所示。则命令按钮的Top属性值是A)200 B)300 C)500 D)700(19)在窗体上画一个名称为Command 1的命令按钮。单击命令按钮时执行如下事件过程：Private Sub Command l_Click () a$=,?software and hardware" b$=Right (a$,8) c$=Mid (a$,1,8) MsgBox a$, b$, c$,1 End Sub则在弹出的信息框标题栏中显示的标题是A) software and hardwareB) hardwareC) softwareD) 1(20)在窗体上画一个文本框(名称为Text 1)和一个标签(名称为Label 1),程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是A) Private Sub Textl_Change ()Label 1.Caption=Text 1.TextEnd SubB) Private Sub Label l_Change ()Label 1.Caption=Text l.TextEnd SubC) Private Sub Textl_Click ()Label 1.Caption=Text 1.TextEnd SubD) Private Sub Labell_Click ()Label 1.Caption=Text 1.TextEnd 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 y>4x=x*yY=y+ILoopPrint xA)1 B)4 C)8 D)20(24)如果执行一个语句后弹出如图所示的窗口，则这个语句是A) InputBox A输入框“，"请输入VB数据”)B) x=InputBox ("输入框"，“请输入VB数据”)C) InputB ox C请输入VB数据"，“输入框”)D) x=InputBox ("请输入VB数据"，“输入框”)(25)有如下事件过程： Private Sub Form Click () Dim n A s Integer x=0n=InputBox ("请输入一个整数”) For i=l Ton For j=l To i x=x+lNext j Next i Print x End Sub程序运行后，单击窗体，女口果在输入对话框中输入：，则在窗体上显示的内容是A)13 B)14 C)15 D)16(26)请阅读程序：Sub subP (b () As Integer) For i=l To 4 b (i)=2*iNext iEnd SubPrivate Sub Command l_Click () Dim a (1 To 4) As IntegerA (1)=5： a (2)=6： a (3)=7： a (4)=8 subP a ()For i=l To 4Print a (i)Next iEnd Sub运行上面的程序，单击命令按钮，则输出结果是A)2 B)5 C)10 D)出错461267148816(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=l： b=IDo While x<bc=a+ba=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 xVb 改为 Do While x>bD)把 if x=b Then flag=True 改为 If x=a Then flag=True(28)在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程：Private Sub Commandl_Click ()Dim a$, b$, c$, k%a="ABCD”b="123456”c='M,k=lDo While k<= Len (a) Or k<=Len (b)If k<=Len (a) Thenc=c&Mid (a, k,1)End IfIf k<=Len (b) Thenc=c&Mid (b, k,1)End Ifk=k+lLoopPrint cEnd Sub运行程序，单击命令按钮，输出结果是A)123456ABCD B) ABCD123456 C) D6C5B4A321 D) A1B2C3D456(29)请阅读程序：Private Sub Form_ Click ()m=lFor i=4 To 1 Step-1Print Str (m)；m=m+1For j=l To iPrinl'*'；Next jPrintNext iEnd Sub程序运行后，单击窗体，则输出结果是A)*B)4*C)*D)2*3*3*2*4*1家*(30)在窗体上画一个命令按钮(其名称为Commandl),然后编写如下代码: Private Sub Command l_Click () Dim a a=Array (1,2,3,4)1=3： j=l Do While i>=0 s=s + a (i)*j i=i-l j=j*10o Loop Print s End Sub运行上面的程序，单击命令按钮，则输出结果是 A)4321 B)123 C)234 D)1234(31)下列可以打开随机文件的语句是A) Open "file 1.datM For lnpu*t As#1B) Open”file 1.dat" For Append As#1C) OpenfileLdat*' For Output As#1D) OpenfileLdat" For Random As#1 Len=20(32)有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是内无CMedit*MlCUIMMA) Private Sub Form _Click () PopupMenu cut End SubB) Private Sub Command 1 Click () PopupMenu edit End SubC) Private Sub Form_ Click () PopupMenu edit End SubEnd SubD) Private Sub Form_lick () PopupMenu cut PopupMenu paste(33)请阅读程序：Option Base IPrivate Sub Form_ Click ()Dim Arr (4,4) As IntegerFor i=l To 4For j=I To 4Arr (i, j)=(i-l)*2+jNext jNext iFor i=3To4For j=3 To 4Print Arr (j, i);Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是 A)57 B)68079 D)8106879810811(34)一下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str="ABCDABCD ", ch="B”,则函数的返回值为："ACDACD"Function del char (str As String, ch As String) As String Dim k As Integer, temp As String, ret As String ret=,n For k=l To Len (str) temp=Mid (str, k,1) If temp= ch Then ret=ret&temp End If Next k delchar=ret End Function 但实际上函数有错误，需耍修改。下面的修改方案中正确的是 A)把 ret=ret&temp 改为 ret=lempB)把 If temp=ch Then 改为 If tempO ch Then C)把 delchar=ret 改为 delchar=temp D)把 ret ="”改为 temp=,M,(35)在窗体上画一个命令按钮和两个文本框，其名称分别为Commandl、Text I 和Text2,在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如卜程序：Dim S I As String, S2 As String Private Sub Form Load () Text 1.Text=,nText2.Text=,n, Text 1. Enabled=False Text2. Enabled=False End SubPrivate Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer) S2=S2&Chr (KeyCode) End SubPrivate Sub Forin_ KeyPress (KeyAscii As Integer) Sl=Sl&Chr (KeyAscii)End SubPrivate Sub Command 1 ClickText 1.Text=SlText2.Text=S2S1=,MS2=*,MEnd Sub程序运行后，先后按“a”、"b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为A) abc 和 ABCB)空白C) ABC 和 abcD)出错二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。(1)一个栈的初始状态为空。首先将元素5,4,3,2,1依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为_【1】(2)在长度为n的线性表中，寻找最大项至少需要比较2一次。(3)-一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有_【3】_一个结点。(4)仅由顺序、选择(分支)和重复(循环)结构构成的程序是一【4】_程序。(5)数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和一【5】_o(6)窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Com mandl、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。-n is-n K JOption Base 1Private Sub Command 1_ Click (Dim city As Variantcity=_【6】_(”北京”,“天津“，“上海“，“武汉“，“重庆“，“西宁”)For i=_7_To UBound (citv)Combo l.Addltem_8_NextEnd Sub(7)窗体上有一个名称为Text 1的文本框和一个名称为Command 1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。Private Sub Command 1_Click ()Dim x As Integerx=Val (InputBOX ("输入数据”)Text l=Str (fun (x)+fun (x)+fun (x) End SubPrivate Function fun (ByRef n As Integer)If n Mod 3=0 Thenn=n+nElse n=n*n End If _9_=n End Function当单击命令按钮，在输入对话框中输入2时，文本框中显示的是一【10】_(8)窗体上有一个名称为Listl的列表框，一个名称为Picture 1的图片框。Form_ Lo ad事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。Private Type PicgName As String*10 ，物品名称picFile As String*20，物品图片的图片文件名End TypeDim p (4) As Pic, pRec As PicPrivate Sub Form Load ()OpenDatal.txt'1 For Random As#1_111_=Len (pRec)For i=0 To 4Get#l, i+1, P (i)LIStl.Additem p (i).gNaineNext iClose#1End SubPrivate Sub List I-DbICIickOFor i=OTo4If RTrim (List -List (i)=RTrim (_12_) ThenPicture L, Picture=LoadPicture (p (i).Exit ForEnd IfNextEnd Sub(9)窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件(例如：G: VB2010-9in.txt)并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。图 IIH2g 1的J:可见ra.无£hw5开mmOpcn无laic.mnuCknc无TmE无Ttw1(ft)FName0Fahe以一下是单击“打开”菜单项的事件过程，请填空。Dim mnuCounter As IntegerPrivate Sub tnnuOpen_ Click ()CDL ShowOpenIf CD I . FileName<>M,ThenOpen_14_For Input As#1mnuCounter=mnuCounter+lLoad FName (mnuCounter)FName (mnuCounter).Caption=CD LFileNameFName (mnuCounter)15_=TrueClose#1End IfEnd Sub答案:二级辫B(15)BB(22) DDCA(33)(3B(7) I*10年9月绸计算(8) 11 Len 12砥逑Name13 picFilesic笔试参(IDAMI4)(18) A ( 19)(26)(3l8Vity(i)(9)14 CdJ.FileName 15 Visible2010年3月全国计算机等级考试二级VB笔试试卷一、选择题（每题2分，共70分）（1）下列叙述中正确的是（）A）对长度为n的有序链表进行查找，最坏情况下需要比较次数为nB）对长度为n的有序链表进行对分查找，最坏情况下需要比较次数为（n/2）Q对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（Iog2n）D）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（nlog2n）（2）算法的时间复杂是指（）A）算法的执行时间B）算法所处理的数据量C）算法程序中的语句或指令条数D）算法在执行过程中所需要的基本运算次数（3）软件按功能可以分为：应用软件、系统软件和支持软件（或工具软件），下面属于系统软件的是（）A）编辑软件B）操作系统C）教务管理系统D）浏览器（4）软件（程序）调试的任务是（）A）诊断和改正程序中的错误B）进肯能多的发现程序中的错误C）发现并改正程序中的所有错误D）确定程序中错误的性质（5）数据流程图（DFD图）是（）A）软件概要设计的工具B）软件详细设计的工具C）机构化方法的需求分析工具D）面向对象方法的需求分析工具（6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细设计属于（）A）定义阶段B）开发阶段C）维护阶段 D）上述三个阶段（7）数据库管理系统中负责数据模式定义的语言是A）数据定义语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是A）文件B）数据库C）字段D）记录（9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A）需求分析阶段B）逻辑设计阶段C）概念设计阶段D）物理设计阶段（10）有两个关系R和T如下：ABjCa12b22c32d32EJFJkJ5JEJ则由关系R得到关系T的操作是A)选择B)投影C)交D)并(11)在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是(12)设x是整型变量，与函数IIf(x>O,-x,x)有相同结果的代数式是A)|x|B)-|x|C) xD) -x(13)设窗体文件中有下面的事件过程：Private Sub Commandl_Click ()Dim sa%=100Print aEnd Sub其中变量a和s的数据类型分别是A)整型，整型B)变体型，变体型C)整型，变体型D)变体型，整型(14)下面哪个属性肯定不是框架控件的属性A) TextB) CaptionC) LeftD) Enabled(15)下面不能在信息框中输出“VB”的是A) MsgBox "VB"B) x=MsgBox ("VB")C) MsgBox ("VB")D) Call MsgBox 'VBn(16)窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Optionl_Click (Index As Integer)End Sub下面关于此过程的参数Index的叙述中正确的是A) Index为1表示单选按钮被选中，为。表示未选中B) Index的值可正可负C) Index的值用来区分哪个单选按钮被选中D) Index表示数组中单选按钮的数量(17)设窗体中有一个文本框Textl,若在程序中执行了 TextlSetFocus,则触发A) Textl 的 SetFocus 事件B) Textl 的 GotFocus 事件C) Textl 的 LostFocus 事件D)窗体的GotFocus事件(18) VB中有3个键盘事件:KeyPress、KeyDown、KeyUp,若光标在Textl文本框中,则每输入一个字母A)这3个事件都会触发B)只触发KeyPress事件C)只触发 Key Down、Keyllp 事件D)不触发其中任何一个事件(19)下面关于标准模块的叙述中错误的是A)标准模块中可以声明全局变量B)标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程C)标准模块中可以包含一些Public过程D) 一个工程中可以含有多个标准模块(20)设窗体的名称为Forml,标题为Win,则窗体的MouseDown事件过程的过程名是A) Forml_MouseDownB) Win_MouseDownC) Form_MouseDownD) MouseDown_Forml(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)(22)下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer; By Vai y As Integer) As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是A) Printgcd(8,12), gcd(12,16), gcd(16z8)B) Print gcd(8,12,16)C) Print gcd(8), gcd(12), gcd(16)D) Print gcd(8/gcd(12/16)(23)有下面的程序段，其功能是按图1所示的规律输出数据Dim a(3,5) As IntegerFor i=l To 3Forj=lTo5Ai,j)=i+jPrint a(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A) For i=l To 5Forj=lTo3Print a (j,i);NextPrintNextB) For i=l lb 3Forj=17o5Prints (j,i);NextPrintNextC) Forj=lTo5Fori=lTo3Print a (j,i);NextPrintNextD) For i=l To 5Forj=lTo3Print a (ij);NextPrintNext(24)窗体上有一个Textl文本框，一个Commandl命令按钮，并有以下程序Private Sub Commandl_Click ()Dim nIf Textl.TextoM23456M Thenn=n + lPrint "口令输入错误"&n&"次"End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A)在Dim n语句的下面添加一句：n=0B)把Print "口令输入错误"& n &”次"改为Print "口令输入错误"+n+"次"C)把Print "口令输入错误"& n &"次"改为Print "口令输入错误&Str(n)&"次"D)把 Dim n 改为 Static n(25)要求当鼠标在图片框Pl中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A) Private Sub Pl_MouseMove (Button AS IntegeoShift As Integer/ As Single, Y As Single) Print X,YEnd SubB) Private Sub Pl_MouseDown (Button AS lnteger;Shift As Integer,/ As Single, Y As Single) Picture.Print X,YEnd SubC) Private Sub Pl_MouseMove (Button AS IntegeoShift As IntegeX As Single, Y As Single) Pl.Print X,YEnd SubD)Private Sub Form_MouseMove(Button AS IntegecShift As IntegecX As Single, Y As Single) Pl.Print X,YEnd Sub(26)计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出H的近似值：Private Sub Comandl_Click ()Pl = lSign = ln=20000For k=3 To nSign="Sign/kPI=PI+Sign/kNext kPrint Pl*4 End Sub 运行后发现结果为3.22751,显然，程序需要修改。下面修改方案中正确的是 A)把 For k=3 To n 改为 For k=l To n B)把 n=20000改为 n=20000000C)把 For k=3 To n 改为 For k=3 To n Step 2D)把 Pl=l 改为 PI=0(27)下面程序计算并输出的是Private Sub Comandl_Click () a=10 s=0 Do s=s+a*a*a a=a-lLoop Until a<=0 Print s End SubA) 13+23+33+103的值B) 10!+3!+2!+l!的值C) (1+2+3+10)3的值D) 10个103的和(28)若在窗体模块的声明部分声明了如下自定义类型和数组Private Type rec Code As Integer Caption As String End Type Dim arr (5) As rec 则下面的输出语句中正确的是 A) Print arr.Code(2)/arr.Caption(2) B) Print arr.Codezarr.Caption C) Print arr(2).Code,arr(2).C叩tion D) Print Code,Caption(2)(29)设窗体上有一个通用对话框控件CD1,希望在执行下面程序时，打开如图所示的文件对话框Private Sub Comandl_Click () CDl.DialogTitle="打开文件" CDl.lnitDir="C:"CDl.Filter="所有文件|*.*| Word 文档|*.doc |文本文件|.Txt"CDl.FileName="MCDl.Action=lIf CDl.FileName='"ThenPrint”未打开文件”ElsePrint”要打开文件”& CDl.FileNameEnd IfEnd Sub但实际显示的对话框中列出了 c：下的所有文件和文件夹，''文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是A)把 CDl.Action=l 改为 CDl.Action=2B)把“CDl.Filter="后面字符串中的“所有文件”改为“文本文件”C)在语句 CDLAction=l 的前面添加：CDl.Filterlndex=3D)把 CDl.FileName=""改为 CDl.FileName="文本文件”(30)下面程序运行时，若输入395,则输出结果是Private Sub Comandl_Click ()Dim x%x=lnputBox("请输入一个3位整数”)Print x Mod 10,x100,(x Mod 100)10End SubA) 395B) 539C) 593D) 359(31)窗体上有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：Private Sub Comandl_Click ()For k=Listl.ListCount-1 To 0 Step -1If Listl.Selected (k) ThenList2.Addltem Listl.List (k)Listl.Removeitem kEnd IfNext kEnd Sub程序运行时，按照图示在Listl中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是A)在List2中插入了“外语”、“物理”两项B)在Listl中删除了“外语”、“物理”两项C)同时产生A)和B)的结果D)把Listl中最后1个列表项删除并插入到List2中(32)设工程中有2个窗体：Formic Form2, Forml为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Forml的文本框Textl中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Forml,显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Forml窗体文件中编写如下程序：Private Sub Textl_KeyPress (KeyAscii As Integer)If KeyAscii=13 ThenIf Text 1.Text=fTeacher,r ThenForm2.input.visible=TrueElseForm2.input.visible=FalseEnd IfEnd IfForml.HideForm2.ShowEnd Sub程序运行时发现刚输入口令时就隐藏了 Forml,显示了 Form2,程序需要修改。下面修改方案中正确的是A)把Forml中Textl文本框及相关程序放到Form2窗体中B)把 Forml.Hide> Form2.Show 两行移到2个 End If 之间C)把 If KeyAscii=13 Then 改为 If KeyAs