【计算机类职业资格】国家计算机二级(VB)80及答案解析.doc

《【计算机类职业资格】国家计算机二级(VB)80及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】国家计算机二级(VB)80及答案解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、国家计算机二级(VB)80 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.下面 Change 事件过程中，文本框控件 Text1 用来接收数字字符的输入，该事件过程的作用是（ ）。 Private Sub Text1_Change ( ) Text2Text=Str(628* Val(Text1Text) End Sub （分数：2.00）A.2004/03/09+15B.2004/02/25+date()C.2004/03/09-15D.004/02/25-date()2.下列程序段的执行结果为

2、（ ）。 a=5 Fork=1 To 0 a=a + k Next k Print k；a （分数：2.00）A.OpenFormB.OpenqueryC.OpenReportD.RunSQL3.某人为计算 n! (0n Do While m n：m=m - n：Loop Do While m n：n=n - m：Loop Loop MyBM=m End Function （分数：2.00）A.方法是对象的一部分B.在调用方法时，对象名是不可缺少的C.方法是一种特殊的过程和函数D.方法的调用格式和对象属性的使用格式相同7.在使用应用程序时，常常用作在单击时执行指定的操作的控件是（ ）。（分数：

3、2.00）A.命令按钮B.图片框C.复选框D.单选按钮8.有如下事件过程： Private Sub Commaild1_Click( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&“*“：n=n &“#“ Print x，y，m，n End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.1 1 * # 1 1 * #B.1 1 * # 1 2 * #C.1 1 * # 1 1 * #

4、D.1 1 * # 1 2 * #9.要在 D 盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：2.00）A.Open“InfoBasedat“For Output As #2B.Open“d:/InfoBasedat“For Output As #2C.Open“d:/InfoBasedat“For Input As #2D.Open“InfoBasedat“，For Input As #210.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Integer，b As In

5、teger，C As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) SecProc=FirProc(z，x，y)+x+7 End Function （分数：2.00）A.20B.25C.37D.3211.对下列二叉树,进行中序遍历的结果

6、是【 】 （分数：2.00）A.ACBDFEGB.ACBDFGEC.ABDCGEFD.FCADBEG12.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：2.00）A.12 32B.2 32C.2 3D.12 313.设在窗体上有一

7、个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) 0 f2down% And f2down% Then If altdown% And f2down% Then Text =“abl“ End If Ead Sub 程序运行后，清除文本框中原有内容，如果按 Shift+F2 键，则在文本框中显示的是( )。 （分数：2.00）A.add()B.requestFocus()C

8、.repaint()D.paint()14.下列说法正确的是（ ）。（分数：2.00）A.ScrollBarsB.MultiSelectC.DataFieldD.Stretch15.下列语句中，不能实现循环 100 次的是（ ）。（分数：2.00）A.联合查询B.传递查询C.数据定义查询D.子查询16.下面哪个程序段能够正确裙带如果 AB，则 A=1，否则 A=-1 ？（分数：2.00）A.If AB Then A=1 A=-1 Print AB.If AB Then A=l：Print A A=-1：PrintAC.If AB Then A=1：Print A Else A=-1： End

9、IfD.If AB Then A=1 A=-1 Print A Print A17.如果将文本框控件设置成只有垂直滚动条，则需要将 ScrollBars 属性设置为（ ）。（分数：2.00）A.Exiting main Destructor is active Destructor is active Destructor is activeB.Exiting main Destructor is active Destructoris activeC.Exiting main Destructoris activeD.Exiting main18.有如下函数过程： Function HFC(

10、ByVal x AS Integer，ByVal y As Integer)As Integer Do While y 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是( )。 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，b) Print x End Sub （分数：2.00）A.0B.6C.2D.8019.设有如右图所示的窗体和下列程序： Private Sub Command1_Click

11、() Text1.Text=“Visual Basic“ End Sub Private Sub Text1_LostFocus() If Text1.Text“BASIC“ Then Text1.Text=“ “ Text1.SetFocus End If End Sub 程序运行时，在 Text1 文本框中输入“Basic”(如图所示)，然后单击Command1 按钮，则产生的结果是( )。 （分数：2.00）A.文本框中无内容，焦点在文本框中B.文本框中为“Basic“，焦点在文本框中C.文本框中为“Basic“，焦点在按钮上D.文本框中为“Visual Basic“，焦点在按钮上20.

12、属性 BorderColor 的作用是（ ）。（分数：2.00）A.Sub Submit(ByVal n，ByVal m)B.Sub Submit(n，ByVal m)C.Sub Submit(n，m)D.Sub Submit(ByVal n，m)21.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和【 】（分数：2.00）A.编码设计B.测试阶段C.运行阶段D.物理设计22.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：2.00）A.k=7 b=14B.

13、k=6 b=6C.k=4 b=8D.k=1 b=723.在窗体上先后画 2 个图片框, （分数：2.00）A.Private Sub Form_ Drag Drop ( Source As Contro1,X as single ,Y As Single ) banana. Move Picture1.left+X,Picture.Top+Y End SubB.Private Sub banana_ Drag Drop(Source As Control,X As Single ,Y As Singe ) SOURCE. Move Picture1.left+X,Picture.Top+Y E

14、nd SubC.Private sub Picture1 Drag Drop(Source As Control,X As Single,Y As Single)D.Private Sub Picture1_ Drag Drop(Source As Control,X As Single,Y As Single)24.下列数组定义语句错误的是( )。（分数：2.00）A.成员函数B.友元函数C.构造函数D.析构函数25.在计时器控件中，Interval 属性的作用是（ ）。（分数：2.00）A.java.exeB.jdb.exeC.javap.exeD.javac.exe26.以下说法不正确的

15、是（ ）。（分数：2.00）A.使用 ReDim 语句可以改变数组的维数B.使用 ReDim 语句可以改变数组的类型C.使用 ReDim 语句可以改变数组的每一维的大小D.使用 ReDim 语句可以改变对数组中的所有元素进行初始化27.下面可以正确定义 2 个整型变量和 1 个字符串变量的语句是【 】（分数：2.00）A.Dim n,m As Integer,s As StringB.Dim a,b$,c As StringC.Dim a As Integer,b,c As StringD.Dim x,y As Integer,z As Suing28.在修改列表框内容时，AddItem 方法

16、的作用是（ ）。（分数：2.00）A.1，2，0B.2，1，0C.1，2，1D.2，1，129.对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是（分数：2.00）A.快速排序B.冒泡排序C.直接插入排序D.堆排序30.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next

17、 j If j Sqr(i) Then Print i Next i End Sub 该事件过程的功能是（ ）。 （分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数D.输出 n 以内能被 j 整除的数31.下面的控件可作为其他控件容器的是（ ）。（分数：2.00）A.DELETE DATABASE 考生库B.DELETE DATABASE 考生库 RECYCLEC.DELETE DATABASE 考生库 DELETETABLESD.DELETE DATABASE 考生库 DELETETABLES RECYCLE32.在窗体上画一个命令按钮，然后编写如下事

18、件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.2 3B.2 56C.5 12D.10 2033.在 Visual Basic 中，要使标签的标题栏居中显示，则将其 Alignment 属性设置为（ ）。（分数：2.00）A.0B.2C.1D.334.为把圆周率的近似值 3.14159 存放在变量 pi 中，应该把变量 pi 定义为（分数：2.00）

19、A.Dim pi As IntegerB.Dim pi(7)As IntegerC.Dim pi As SingleD.Dim pi As Long35.用 InputBox 函数设计的对话框，其功能是（ ）。（分数：2.00）A.只能接收用户输入的数据，但不会返回任何信息B.能接收用户输入的数据，并能返回用户输入的信息C.既能用于接收用户输入的信息，又能用于输出信息D.专门用于输出信息二、填空题（每空 2 分，共 30 分）(总题数：10，分数：30.00)36.以下过程的作用是将 26 个小写字母逆序打印出来，请补充完整。 Sub Inverse1 For i=122 To 2 Print

20、 3 ； Next i End Sub （分数：3.00）填空项 1:_37.在 Visual Basic 的立即窗口内输入以下语句 X=97 ? Chr (X) 在窗门中显示的结果是 1。 （分数：3.00）填空项 1:_38.改变驱动器列表框的 Drive 属性值将引发 1 事件。（分数：3.00）填空项 1:_39.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦 函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx

21、 AS Single End Type Dim Ksc As Ang Private Sub Form _Click1 Dim Y As Single Open 2 Y=314159/180 For I=1 To 90 KscK=I KscSinx=Sin(I*Y) KscCosx=Cos(I*Y) 3 Next I Clise #2 End Sub （分数：3.00）填空项 1:_40.下面的程序用于根据文本框 Test 中输入的内容进行以下处理： 若 Text 为 1，则打印“您的成绩为优秀！”；若 Text 为 2，则打印“您的成绩为良好!”；若 Text 为 3，则打印“您的成绩为一般

22、”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click1 Selct Case Val(Text1.Text) Case 2 Print “您的成绩为优秀！“ Case 3 Print “您的成绩为良好！“ Case 4 Print “您的成绩为一般！“ Case Else Print “您的成绩为一般以下！“ End Select End Sub （分数：3.00）填空项 1:_41.在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 1 事件，当对象失 去焦点时将触发 2 事件。 （分数：3.00）填空项 1:_42.设有如下程序： Pri

23、vate Sub Form_Click1 Cls a=“ABCDFG“ For i=1 To 6 Print Tab(12-i)； 2 Next i End Sub 程序运行后，单击窗体，结果如图所示，请填空。 （分数：3.00）填空项 1:_43.执行下面的程序段，x 的值为 1。 Private Sub Command1_Click2 For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub （分数：3.00）填空项 1:_44.在面向对象方法中，类的实例称为 1。（分数：3.00）填空项 1:_45.在窗体上有一个命令按钮，然后编写如下程

24、序： Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num/10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click1 Dim m As Long Dim s As Long m=InputBox(“请输入一个数“) s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 2，在输入对话框中输入“987”输出 3，在输入对话

25、框中输入“879”，输出结果为 4。 （分数：3.00）填空项 1:_国家计算机二级(VB)80 答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.下面 Change 事件过程中，文本框控件 Text1 用来接收数字字符的输入，该事件过程的作用是（ ）。 Private Sub Text1_Change ( ) Text2Text=Str(628* Val(Text1Text) End Sub （分数：2.00）A.2004/03/09+15B.2004/02/25+date() C.2004/03/0

26、9-15D.004/02/25-date()解析：frame.pack()方法能自动调节窗口的大小，而不是用程序员给的参数去设置窗口的大小。注意：选项 A)framesetSize()来设置窗口的大小，其中的参数都是窗口的大小，是确定的。选项 D)frame.setVisible()是来设置窗口是不是可见的，参数是布尔型的。2.下列程序段的执行结果为（ ）。 a=5 Fork=1 To 0 a=a + k Next k Print k；a （分数：2.00）A.OpenFormB.OpenqueryC.OpenReport D.RunSQL解析：A)选项用于打开窗体，B)选项用于打开查询，D)

27、选项用于关闭数据库对象。3.某人为计算 n! (0n Do While m n：m=m - n：Loop Do While m n：n=n - m：Loop Loop MyBM=m End Function （分数：2.00）A.方法是对象的一部分B.在调用方法时，对象名是不可缺少的 C.方法是一种特殊的过程和函数D.方法的调用格式和对象属性的使用格式相同解析：Visual Basic 中的一个工程可以包括一个或多个窗体，最多不超过 255 个窗体，因此选项 D)是正确的，选项 C)是不正确；窗体述文件的扩展名是frm，所以选项 A)是正确的；一个窗体对应于一个窗体文件，所以选项 B)也是正确

28、的。7.在使用应用程序时，常常用作在单击时执行指定的操作的控件是（ ）。（分数：2.00）A.命令按钮 B.图片框C.复选框D.单选按钮解析：从编程的角度上，命令按钮、复选框和单选按钮十分相似，但对于用户来 说，它们的用途不同。在应用程序中，命令按钮通常用来在单击时执行指定的操作，而复 选框和单选按钮用来表示“选”或“不选”两种状态。复选框用“”表示被选中，在一个 运行窗体上可以同时选取多个复选框；单选按钮不同，在一组单选按钮中只能选择其中 一个(用“?”表示被选中)。当选中一个单选按钮后，其他单选按钮都处于关闭状态。 8.有如下事件过程： Private Sub Commaild1_Clic

29、k( ) Dim i As Integer For i =1 To 2 DC Next i End Sub Sub DC( ) Dim x As Integer，m As String Static y，n x=x + 1 y=y + 1 m=m&“*“：n=n &“#“ Print x，y，m，n End Sub 程序运行后，输出的结果是( )。 （分数：2.00）A.1 1 * # 1 1 * #B.1 1 * # 1 2 * #C.1 1 * # 1 1 * #D.1 1 * # 1 2 * # 解析：本题考查函数调用和输出格式的语句。当 I=1 时，调用函数过程 DC，由于 y，n 为

30、静态变量值保存，执行 x=x+1；y=y+1 后 x=1，y=1；执行 m=m&“*“：n=n&“#“后，m=“*“，n=“#“；当 I=2 时同上，只是y=2，n=“#“。9.要在 D 盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：2.00）A.Open“InfoBasedat“For Output As #2B.Open“d:/InfoBasedat“For Output As #2 C.Open“d:/InfoBasedat“For Input As #2D.Open“InfoBasedat“，For Input As #2解析：打开文件的

31、命令是 Open，其常用的形式如下：Open“文件名”For 模式 As #文件号Len=记录长度；因为本题是要新建一 个文件，所以在 For 后面的“模式”为“Output，它的意思是为了写操作而建立文件(打开文件)，而模式为“Input”时，该文件必须已经存 在，否则，会产生一个错误。所以选项D)和选项 C)不正确；文件名必须是文件地址的全称，因为文件在 D 盘目录下，所以要在文件名中出现“D ：/”字符，所以选项 A)也不正确，正确的只有选项 B)。10.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Intege

32、r，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) SecProc=FirProc(z，x，y)+x+7 End Function （分数：2.00）A.20B.25C.37 D.32解析：此题程序代码

33、中用了两层调用，我们对样的问题要多加小心，不能掉 以轻心，千万不要把实参和相对应的形参弄混淆。主调过程 Commandl_Click；输出的是 SecProc(c,b,a)返回值，调用过程 SecProc时，主调过程分别把实参 c、b、a 地址传给形 参 x、y、z，此时在过程 SecProc 中，SecProc(a，cb)+7。由此看出，程序段执行 此语句时，将调用过程 FirProe。把实参 a，c，b 的地址分别传给形参x、y、z，此时在过程 FirProe 中，Firproc=2 * x + y + 3 * z + 2，所以 FirProc(a，c，b)=6+4+15+2=27， Se

34、cProc(a，c，b)=27+3+7=37。11.对下列二叉树,进行中序遍历的结果是【 】 （分数：2.00）A.ACBDFEG B.ACBDFGEC.ABDCGEFD.FCADBEG解析：二叉树中序遍历的含义是：首先遍历左子树,然后访问根结点,最后遍历右子树,其左右子树中也按这样的顺序遍历,中序遍历二叉树的过程是一个递归的过程。根据题目中给出的二叉树的结构可知中序遍历的结果是：ACBDFEG。12.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call

35、Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：2.00）A.12 32B.2 32 C.2 3D.12 3解析：此题是函数过程的调用。 在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程时，它将实参的地址传给形参，因

36、此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程时：当调用一个过程时，系统将实参的值赋值给形参并断开了联系，被调用过程中的操作时在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 Proc 中有两个形参，其中第一个形参 n 为传址方式，第二个形参 m 为传值方式。主调过程分别把实参 x、y 传递给 Proc，所以当过程调用结束后，实参 x 的值应随着被调过程变化而变化，而实参 y 值在主调函数中始终不变，所以输出 y 的值仍为 32；在被调

37、过程中“n=n Mod l0”被调用时，相当于“x=x Mod l0”，所有 x 的值最终为 2，最后输出结果如选项 B)所示。 13.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) 0 f2down% And f2down% Then If altdown% And f2down% Then Text =“abl“ End If Ead Sub 程序运行后

38、，清除文本框中原有内容，如果按 Shift+F2 键，则在文本框中显示的是( )。 （分数：2.00）A.add()B.requestFocus()C.repaint()D.paint() 解析：一个类的友元函数对类成员的访问能力等同于类的成员函数，即能访问类的所有成员。 14.下列说法正确的是（ ）。（分数：2.00）A.ScrollBarsB.MultiSelect C.DataFieldD.Stretch解析：如果窗体的 BorderStyle 属性设置为 Fixed Single，则窗体为固定单边框，可以包含控制菜单框、标题栏、最大化和最小化按钮，但要注意的是，如果窗口的 MaxBut

39、ton 和 MinButton 属性设置为 True，则可以使用，运行时显示最大化和最小化按钮；如果设置为 False，则运行时不显示。15.下列语句中，不能实现循环 100 次的是（ ）。（分数：2.00）A.联合查询B.传递查询 C.数据定义查询D.子查询解析：JDBC 是用来 Java 程序和数据库连接的一种机制；Socket 是用来实 现客户与服务者之间的通信，Java 在 Socket 中提供多线程机制，对实现大量客户通信带 来了好处；数据报通信的协议 UDP 是无连接协议，它对传输数据的大小有限制，在 64KB 之内，它的传输不可靠，但操作简单；而 URL 是通过getProtoc

40、ol( )，getHost( )，getPort( )和 getFile( )方法获取 URL 对象的属性，通过 openStream( )方法获得网上资源，通过 URL- Connection 提供的许多方法可以与网络连接。16.下面哪个程序段能够正确裙带如果 AB，则 A=1，否则 A=-1 ？（分数：2.00）A.If AB Then A=1 A=-1 Print AB.If AB Then A=l：Print A A=-1：PrintAC.If AB Then A=1：Print A Else A=-1： End If D.If AB Then A=1 A=-1 Print A Pri

41、nt A解析：本题考查的是 If Then Else 结构，在此结构中可以有若干组语句块；题意是如果 AB，则 A=1，否则 A=-1。17.如果将文本框控件设置成只有垂直滚动条，则需要将 ScrollBars 属性设置为（ ）。（分数：2.00）A.Exiting main Destructor is active Destructor is active Destructor is active B.Exiting main Destructor is active Destructoris activeC.Exiting main Destructoris activeD.Exiting

42、 main解析：本题考查字符串的应用和/0的输出。/0输出为不显示，只代表一个字符串的结束。18.有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是( )。 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，b) Print x End S

43、ub （分数：2.00）A.0B.6 C.2D.80解析：本题考查函数调用和输出格式的语句。调用 HFC 的过程如下： x=12，y=2 时，sic=6，x=2，y=6 x=2，y=6 时，sic=0，x=6，y=0 y=0，跳出循环，输出 x=6 并结束程序。 19.设有如右图所示的窗体和下列程序： Private Sub Command1_Click() Text1.Text=“Visual Basic“ End Sub Private Sub Text1_LostFocus() If Text1.Text“BASIC“ Then Text1.Text=“ “ Text1.SetFocus

44、 End If End Sub 程序运行时，在 Text1 文本框中输入“Basic”(如图所示)，然后单击Command1 按钮，则产生的结果是( )。 （分数：2.00）A.文本框中无内容，焦点在文本框中 B.文本框中为“Basic“，焦点在文本框中C.文本框中为“Basic“，焦点在按钮上D.文本框中为“Visual Basic“，焦点在按钮上解析： 本题考查的考点是有关事件执行过程的。由于先在文本框中输入数据，所以焦点在文本框中。当单击命令按钮时，首先应该执行文本框的 LostFocus 事件。本题中由于在文本框的 LostFocus 事件中执行到了 Text1.Setfocus，所以

45、焦点不能离开文本框，也就不执行命令按钮的 Click 事件。20.属性 BorderColor 的作用是（ ）。（分数：2.00）A.Sub Submit(ByVal n，ByVal m)B.Sub Submit(n，ByVal m)C.Sub Submit(n，m) D.Sub Submit(ByVal n，m)解析：C+语言中默认小数的输出位一共是 6 位，fixed 的意义是在小数点后保留 6 位。21.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和【 】（分数：2.00）A.编码设计B.测试阶段C.运行阶段D.物理设计 解析：数据库设计目前一般采用生命周期法,即将整个数据库应用

46、系统的开发分解成目标独立的若干阶段。它们是：需求分析阶段、概念设计阶段、逻辑设计阶段和物理设计阶段。 22.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：2.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=7 解析：本题中的 DoLoop Until 循环为直到型循环结构，直到条件 b5 为止， 此时 a=1，b=6，最后输出的结果是 k = 1 b=7。23.在窗体上先后画 2 个图片框, （分数：2.00）A.Private S

47、ub Form_ Drag Drop ( Source As Contro1,X as single ,Y As Single ) banana. Move Picture1.left+X,Picture.Top+Y End SubB.Private Sub banana_ Drag Drop(Source As Control,X As Single ,Y As Singe ) SOURCE. Move Picture1.left+X,Picture.Top+Y End SubC.Private sub Picture1 Drag Drop(Source As Control,X As Single,Y As Single) D.Private Sub Picture1_ Drag Drop(Source As Control,X As Single,Y As Single)解析：首先拖动的是 banana,所以程序代码中的源控件是 banana,又因为是将 banana 拖拽到 Pic