2005-2011全国计算机二级考试VB历年真题及答案.docx

2005-2011全国计算机二级考试VB历年真题及答案 2005年4月全国计算机等级考试二级VB笔试试卷、选择题(1)(35)每小题2分,共70分) (1)数据的存储结构是指A)存储在外存中的数据B)数据在计算机中的顺序存储方式(2)下列关于栈的描述中错误的是A)栈是先进后出的线性表枝具有记忆作用(3)对于长度为n的线性表,在最坏情况下,数据所占的存储空间量D)数据的逻辑结构在计算机中的表示B)栈只能顺序存储D)对枝的插入与删除操作中,不需要改变栈底指针 下列各排序法所对应的比较次数中正确的是A)冒泡排序为n/2 B)冒泡排序为nC)快速排序为nD)快速排序为n(n-l) /2(4)对于长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为A) log2nB) n/2C) nD) n+1(5)下列对于线性链表的描述中正确的是A)存储空间不一定是连续,目.各元素的存储顺序是任意的B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面存储空间必须连续,且前件元素一定存储在后件元素的前面D)存储空间必须连续,且各元素的存储顺序是任意的(6)下列对于软件测试的描述中正确的是A)软件测试的目的是证明程序是否正确B)软件测试的目的是使程序运行结果正确C)软件测试的目的是尽可能多地发现程序中D)软件测试的目的是使程序符合结构化原则的错误(7)为了使模块尽可能独立,要求A)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强B)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱 模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱 D)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强 (8)下列描述中正确的是A)程序就是软件软件既是逻辑实体,又是物理实体B)软件开发不受计算机系统的限制D)软件是程序、数据与相关文档的集合(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A)数据与程序独立存放用B)不同的数据被存放在不同的文件中D)以上三种说法都不对不同的数据只能被对应的应用程序所使(10)用树形结构表示实体之间联系的模型是A)关系模型B)网状模型 C)层次模型D)以上三个都是(11)在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮, 然后编写个事件过程。程序运行以后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是:A) Private Sub Textl_Change()Command 1 .Caption= n计算机等级考试End SubB) Private Sub Commandl_Click()Caption="计算机等级考试”End SubC ) Private Sub Forml_Click()Textl.Caption=,计算机等级考试”End SubTextl.Text=w计算机等级考试”D) Private Sub Commandl_Click()End Sub(12)设 a=5,b=4,c=3,d=2,下列表达式的值是 3>2*b Or a二c And bv>c Or c>dA) 1B) TrueC) FalseD) 2(13)设a=" MicrosoftVisualBasicw ,则以下使变量b的值为"VisualBasic”的语句是A) b=Left(a,10)B) b=Mid(a,10)C) b=Right(a,10)D)b=Mid(a,11,10)(14)假定有如下的窗体事件过程,程序运行后单击窗体,则在弹出的信息框中的标题栏中显示的信息 是：Private Sub Form_Click()a$ 二"Microsoft Visual Basic*b$ = Right(a$, 5) c = Mid(a$, 1,9) MsgBox a$, 34, b$, c$, 5End SubA) Microsoft VisualB) MicrosoftC) BasicD) 5(15)设 a二“ a“，b二" b“，c二" c”，d二” d”,执行语句 x二Hf(avd) ,” A“ J B”)后,x 的值为: A)" a”B)"b”C)" B"D)" A"(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是A) Commandl.Move -200B) Commandl.Move 200C) Command 1 .Left=Command 1 .Left+200D) Commandl.Left二 Commandl.Left-200(17)在窗体上画个文本框,然后编写如下事件过程,程序运行时,在文本框中输入456,然后单击 窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容是:Private Sub Form_Click()x二lnputBox(”请输入个整数”)Print x + Text 1.TextEnd SubA) 123B) 456C) 579D) 123456(18)在窗体上画一个文本框和一个计时器控件,名称分别为Textl和Timerl,在属性窗口中把计时器 的Interval属性设置为100, Enabled属性设置为False,程序运行后,如果单击命令按钮,则每隔一秒钟 在文本框中显示一次当前的时间。以下是实现上述操作的程序,在处应填入的内容是Private Sub Commandl_Click()Timerl.End Sub Private Sub Timer l_Timer()Text 1 .Text 二 TimeEnd SubA) Enabled二TrueB) Enabled二FalseC) Visible=TrueD) Visible二False(19)假定在图片框Picture 1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方 法是:A)选择图片框,然后按Del键B)执行语句 Picture 1.Picture二LoadPicture()C)执行语句 PicturePicture二”D)选择图片框,在属性窗口中选择Picture属性,然后按回车键(20)在窗体上画一个Listl的列表框,个名称为Labell的标签,列表框中显示若干个项目,当单击 列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是(21 )在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:(22)在窗体上画一个名称为Commandl的命令Private Sub Command 1 _Click()按钮，然后编写如下事件过程:Dim i As Integer, x As IntegerPrivate Sub Commandl_Click()For i = 1 To 6c='ABCDMIf i = 1 Then x = iFor n = 1 To 4If i <= 4 ThenPrintx = x + 1NextElseEnd Subx = x + 2程序运行后,单击命令按钮,要求在窗体End If上显示如下内容:Next iDPrint xCDEnd SubBCD程序运行后,单击命令按钮,其输岀结果ABCD为则在处应填入的内容为A) 9B) 6A) Left(c,n)B) Right(c,n)C) 12D) 15C) Mid(c,n,l)D) Mid(c,n,n)(23)执行以下程序段后,x的值为Dim x As Integer, i As Integer x=0For i = 20 To 1 Step -2x = x + i 5Next IA) 16B) 17C) 18D) 19A) Private Sub Listl_Click() Label 1.Caption = List 1.Listindex End SubB) Private Sub Listl_Click() Label 1.Name = Listl.Listlndex End SubC) Private Sub Listl_Click()Label LName = List 1 .TextEnd SubD) Private Sub Listl_Click()Label 1.Caption = Listl.TextEnd Sub(24)在Visual Basic工程中,可以作为启动对象的程序是A)任何窗体或标准模块B)任何窗体或过程C) Sub Main过程或其他任何模块D) Sub Main过程或任何窗体(25)假定建立了一个名为Commandl的命令按钮数组,则以下说法中错误的是A)数组中每个命令按钮的名称(名称属性)均为CommandlB)数组中每个命令按钮的标题(Caption属性)都一样数组中所有命令按钮可以使用同一个事件过程D)用名称Commandl(下标)可以访问数组中的每个命令按钮(26)把窗体的KeyPreview属性设置为True然后编写如下事件过程:Private Sub Form_ Ke y Pre ss( Key Ascii As Integer)Dim ch As String ch = Chr( Key Ascii) KeyAscii = Asc(UCase(ch)Print Chr(KeyAscii + 2)End Sub程序运行后,按键盘上的“ A”键,则在窗体上显示的内容是A) AB) BC) CD) D(27)在窗体上画一个命令按钮和一个文本框,名称分别为Commandl和Textl,然后编写如下程序: Private Sub Commandl_Click()2 = 1叩皿8(«("请输入日期(131)")t ="旅游景点:"& IIf(a > 0 And a <= 10,"长城"，"")& IIf(a > 10 And a <= 20,"故宫"，" _& IIf(a > 20 And a <= 30,"颐和园","")Text 1 .Text = tEnd Sub程序运行后,如果从键盘输入16,则在文本框中显示的内容是：A)旅游景点:长城故宫B)旅游景点:长城颐和园旅游景点:颐和园D)旅游景点：故宫(28)在窗体上画一个名称为Label 1的标签,然后编写如下事件过程,程序运行后,单击窗体,在标签中显示的内容是Private Sub Form_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As Integer For i = 2 To 4For j = 2 To 4 arr(i, j) =i * jNext jNext iLabel 1.Caption = Str(arr(2, 2) + arr(3, 3) End SubA) 12B) 13C) 14(29)在窗体上画一个名称为Comamndl的命令 按钮,然后编写如下通用过程和命令按钮的事件过 程：Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Commandl_Click() Dim i As Integer, s As Integer s = 0For i = 1 To 5s = s + fun(i)NextPrint sEnd Sub程序运行后,单击命令按钮,则窗体上显示D) 15的是:A) 6 B) 7 C) 8 D) 9(30)阅读程序：Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) =i * 2 +jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2) + arr(3, 4)End SubA) 21 B) 13 C) 8 D) 25程序运行后,单击窗体,输出结果为:31)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:Option Base 1Private Sub Commandl_Click()Dim c As Integer, d As Integer d = 0: c = 6x = Array(2, 4, 6, 8, 10, 12)For i = 1 To 6Ifx(i) > c Then d = d + x(i) : c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后,如果单击命令按钮,则在窗体上输入的内容为A) 10B) 16C) 12D) 20(32)设有如下程序:Private Sub Commandl_Click()Dim c As Integer, d As Integer c = 4d = InputBox("请输入个整数”)Do Whiled>0If d > c Thenc = c + 1End Ifd = InputBox("请输入个整数”)LoopPrint c + dEnd Sub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8, 9, 0,则输出 结果是:A) 12B) 11C) 10D) 9(33)在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框,在文本框中输入以下 字符串:Microsoft Visual Basic Programming,然后编写如下事件过程:Private Sub Commandl_Click()Open ndAtempoutf.txt" For Output As#lFor i = 1 To Len(Text 1 .Text)c = Mid(Textl.Text, i, 1)If c >= "A" And c <= Z ThenPrint #1, LCase(c)；End IfNext i Close End Sub 程序运行后,单击命令按钮,文件outf.txt中的内容是: A) MVBPB) mvbpC) MD) mVvBbpp(34)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Dim SW As BooleanFunction func(X As Integer) As Integer If X <20 ThenY = XElseY = 20 + XEnd If func = Y End Function Private Sub Command l_Click()Dim intNum As Integer intNum = InputBox(,n,) If SW ThenPrint func(intNum)End If End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)SW = False End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW=TrueEnd Sub程序运行后,单击命令按钮,将显示个输入对话框,如果在对话框中输入25,则程序的执行结果是:A)输出B)输出25 C)输出45D)无任何输出(35)设有如下通用过程:Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5 x = x + a(i)NextEnd Sub在窗体上画一个名称为Textl的文本框和个名称为Commandl的命令按钮,然后编写如下事件过 程:Private Sub Command l_Click()Dim arr(5 ) As Integer, n As IntegerFor i = 1 To 5arr(i) =i + iNextfun arr, nText 1 .Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是A) 30 B) 25 C) 20D) 15二、填空题(每空2分,共30分)请将每个空的正确答案写在答题卡【1】【15】序号的横线上,答在试卷上不得分。注意:以命令 关键字填空的必须拼写完整。(1)某叉树中度为2的结点有18个,则该二树中有【1】个叶子结点。(2)在面向对象方法中,类的实例称为2 (3)诊断和改正程序中错误的工作通常称为【3】(4)在关系数据库中,把数据表示成二维表,每个二维表称为【4】0(5)问题处理方案的正确而完整的描述称为【5】(6)以下语句 Print Int( 12345.6789* 100+0.5) /100 的输出结果是:【6】(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Text 1.Text 二" VB 程序设计”End SubPrivate Sub Text 1 _Change()Picture 1 .Print "VBProgramming”End Sub程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是8】(8)阅读下面的程序,程序运行后,单击窗体,输出结果是9Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub(9)设有如下程序:Private Sub Form_Click()Dim a As Integer, s As Integer n = 8 s = 0 Dos = s + nn = n - 1Loop While n > 0Print sEnd Sub以上程序的功能是【10】,程序运行后,单击窗体,输出结果为II(10)设有如下程序:Option Base 1Private Sub Command l_Click()Dim arrlDim Min As Integer, i As Integerarrl = Array(12, 435, 76, -24, 78, 54, 866, 43)Min= 12For i = 2 To 8If arrl(i) < Min Then 13Next iPrint ”最小值是:"MinEnd Sub以上程序的功能是用Array函数建立个含有8个元素的数组,然后查找并输出该数组中的最小值,请填 空(11)在名称为Forml的窗体上画一个文本框,其名称为Textl,在属性窗口中把文本框的MultiLine属性 设置为True,然后编写如下事件过程:Private Sub Form_Click()Open "d:testsmtextl.txt" For Input As#lDo While Not 14Line Input #1, aspect$whole$ = wholeS + aspects + Chr(13) + Chr(10)LoopText 1 .Text = wholeSClose #1Open "d:testsmtext2.tx For Output As #1Print #1, 15Close #1 End Sub上述程序的功能是,把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来,然后把该文本框中 的内容存入磁盘文件smtext2.txt.请填空。2005年4月全国计算机等级考试二级VB笔试参考答案选择题:15DBDCA610CBDDC11-15ABBCD16-20CDABD21-25ABCDB26-30CDBBA31-35CDBDA填空题:1199102对象10求!-8的和【3】程序调试11364关系121arrl(l)5算法13min=arrl(i)612345.6814EOF(l)7VB程序设计15textl.text(或 whole$)81VB Programming2005年9月全国计算机等级考试二级VB笔试试卷、选择题（每小题2分,共70分）下列各题A）、B）、C）、D）四个选项中,只有一个选项是正确的。请将正确选项填涂在答题卡相 应位置上，答在试卷上不得分。（1）下列叙述中正确的是A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试（2）下列数据结构中,能用二分法进行查找的是A）顺序存储的有序线性表B）线性链表C）叉链表D）有序线性链表（3）下列关于栈的描述正确的是A）在栈中只能插入元素而不能删除元素B）在栈中只能删除元素而不能插入元素栈是特殊的线性表，只能在一端插入或删除元素D）栈是特殊的线性表，只能在一端插入元素,而在另一端删除元素（4）下列叙述中正确的是A） 一个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构，存储结构属于非线性结构 个逻辑数据结构可以有多种存储结构,且各种存储结构不影响数据处理的效率D） 一个逻辑数据结构可以有多种存储结构,且各种存储结构影响数据处理的效率（5）下列描述中正确的是A）软件工程只是解决软件项目的管理问题B）软件工程主要解决软件产品的生产率问题软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D）软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是A） PDL（过程设计语言）B）PAD图 C）N-S图D） DFD图（7）下列叙述中正确的是A）软件交付使用后还需要进行维护B）软件一旦交付使用就不需要再进行维护软件交付使用后其生命周期就结束D）软件维护是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决D）简化数据维护A）数据共享问题B）数据安全问题大量数据存储问题（9）设有如下关系表:D） T=R/SD）数据库管理员A)T=RPS B)T=RUSC)T=RXSA）数据模型 B）数据库管理系统数据库(10)数据库系统的核心是 （11）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为保存该应用程序,以下 正确的操作是A）只保存窗体模块文件只保存窗体模块和标准模块文件B）分别保存窗体模块、标准模块和工D）只保存工程文件程文件（12）为了清除窗体上的个控件,下列正确的操作是A）按回车键选择（单击）要清除的控件，然后按Del键B）按Esc键D）选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是A）打开个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击个窗体，则触发该窗体的DblClick事件C） Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发 (14)设 a=2, b=3, c=4, d=5,下列表达式 Not a<=c Or 4=92 And boa+c 的值是A) -1B) 1(15)设 a = 5, b = 10,则执行A) 510B) 69(16)在窗体上画一个命令按钮,C) TrueD) Falsec = Int(b - a) * Rnd + a) + 1 后，c 值的范围为C) 610D) 59名称为Commandl,然后编写如下事件过程:Private Sub Command l_Click()a$ = "software and hardware"b$ = Right(a$, 8 )c$ = Mid(a$, 1, 8)MsgBox a$, b$, c$, 1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A) software and hardware B) softwareC) hardwareD) 1(17)在窗体上画一个命令按钮和一个文本框,其名称分别为Command 1和Textl,把文本框的Text 属性设置为空白,然后编写如下事件过程:Private Sub Command 1 _C1 ick()a = InputBox("Enter an integer")b = InputBox("Enter an integer")Text 1.Text = b + aEnd Sub程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是A) 108 B) 18C) 810D)出错(18)在窗体上画两个文本框,其名称分别为Textl和Text2,然后编写如下程序:Private Sub Form_Load()ShowTextl.Text =""：Text2.Text = Textl.SetFocus End SubPrivate Sub Textl_Change()Text2.Text = Mid(TextLText, 8)End Sub程序运行后,如果在文本框Textl中输入BeijingChina,则在文本框Text2中显示的内容是A) BeijingChina B) China C) Beijing D) BeijingC(19)在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl,然后编写如下事件 过程:Private Sub Form_Load()Listl.Additem "Item 1"Listl.Additem "Item 2"Listl.Additem "Item 3"End SubPrivate Sub Commandl_Click()List 1 .List(List 1 .ListCount) = "AAAA" End Sub 程序运行后,单击命令按钮,其结果为 A)把字符串“AAAA”添加到列表框中,但位置不能确定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)把列表框中原有的最后项改为“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)(20)假定有如下事件过程:Private Sub Form_Click()Dim x As Integer, n As Integer x = 1 n = 0Do While x < 28x = x * 3 n = n + 1LoopPrint x, nEnd Sub程序运行后,单击窗体,输出结果是A) 81 4B) 56 3C) 28 1D) 243 5(21)有如卜程序:Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后,单击窗体,输出结果为A) 150B) 20-1C) 10TrueD) 10 False(22)有如下程序:Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 0 And i Mod 3 = 0Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后,单击窗体,输出结果为A) 12 B) 30 C) 24 D) 18(23)在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件 过程:Private Sub Command l_Click()Dim array 1( 10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3Forj = 2To4array l(i,j) =i+jNext jNext iText 1 .Text = array 1(2, 3) + array 1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是A) 12 B) 13 C) 14 D) 15(24)在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:Private Sub Command l_Click()Dimal(4,4) ,a2(4,4)For i = 1 To 4Forj = 1 To 4al(i, j) = i+ja2(i, j) = al(i, j) + i + jNext jNext iPrint al(3, 3) ;a2(3, 3)End Sub程序运行后,单击命令按钮,在窗体上输出的是A) 66B) 10 5C) 7 21D) 6 12(25)有如下程序:Option Base IPrivate Sub Form_Click()Dim arr, SumSum = 0arr = Array( 1, 3, 5,7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输出结果为A) 25 B) 26 0 27 D) 28(26)在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Commandl_Click()Dim a(5) As StringFor i = 1 To 5a(i) =Chr(Asc(,'A,') +(i- 1)Next iFor Each b In aPrint b;NextEnd Sub程序运行后,单击命令按钮,输出结果是A) ABCDEB)12345C) abcdeD)出错信息(27)以下关于函数过程的叙述中,正确的是A)如果不指明函数过程参数的类型,则该参数没冇数据类型B)函数过程的返回值可以有多个当数组作为函数过程的参数时,既能以传值方式传递,也能以引用方式传递D)函数过程形参的类型与函数返回值的类型没有关系(28)函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为。以下能正确实现 上述功能的代码是:A) Function Fl(b As Integer)ElseIf b Mod 2 = 0 ThenReturn 1End IfReturn 0ElseEnd FunctionB) Function Fl(b As Integer) IfbMod2 = 0ThenFl =0C) Function Fl(b As Integer) IfbMod2 = 0ThenFl = 1ElseFl =0End IfEnd FunctionFl = 1End IfEnd FunctionD) Function Fl(b As Integer)If b Mod 2 <>0 ThenReturn 0ElseReturn 1End IfEnd Function（29）以下关于KeyPress事件过程中参数Key Ascii的叙述中正确的是A） KeyAscii参数是所按键的ASCII码B） KeyAscii参数的数据类型为字符串C） KeyAscii参数可以省略D） KeyAscii参数是所按键上标注的字符（30）设窗体上有一个名为Textl的文本框,并编写如下程序:Private Sub Form_Load（）ShowTextl.Text = ""：Textl.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift