1、二级 VISUAL+BASIC 笔试 332 及答案解析(总分：84.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.在软件设计中，不属于过程设计：工具的是（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图2.下列描述中正确的是（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体D.软件是程序、数据与相关文档的集合3.设 a=“Visual Basic“，下面使 b=“Basic“的语句是（分数：2.00）A.b=Left(a，8，12)B.b=Mid(a，8，5)C.b=Ri
2、ght(a，5，5)D.b=Left(a，8，5)4.假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button = 2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是（分数：2.00）A.该过程的功能是弹出一个菜单B.PopForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 X、Y 指明鼠标的当前位置D.BuRon=2 表示按下的是鼠标左键5.以下关于窗体的描述正确的是（分数：
3、2.00）A.只有用于启动的窗体可以有菜单B.窗体事件和其中所有控件事件的代码都放在窗体文件中C.窗体的名字和存盘的窗体文件名必须相同D.开始运行时窗体的位置只能是设计阶段时显示的位置6.如果要改变窗体的标题，则需要设置的属性是（分数：2.00）A.CaptionB.NameC.BackColorD.Borderstyle7.软件测试的目的是（分数：2.00）A.证明软件系统中存在错误B.找出软件系统中存在的所有错误C.尽可能多地发现系统中的错误和缺陷D.证明软件的正确性8.下列程序执行后，n 的值为 n=0 For I=1 To 200 If I Mod 4 = 0 Then n = n+1
4、 Next I（分数：2.00）A.5050B.50C.51D.339.以下叙述中错误的是（分数：2.00）A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS 为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件10.在窗体上画一个名称为 Command1 的命令按钮和三个名称分别为 Label1、Label2、Label3 的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As In
5、teger n = 10 2 = n + z y=y+z x = x + z Label1.Caption =x Label2.Caption =y Label3.Caption =z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（分数：2.00）A.10 10 10B.30 30 30C.30 30 10D.10 30 3011.在窗体上画一个名称为 Drivel 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel的文件列表框，两个名称分别为 Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与
6、目录列表框、目录列表框与文件列表框同步变化，并且在标签 Labell 中显示当前文件夹中文件的数量。如图所示。 （分数：2.00）A.PriVate Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Dirvel_Change() Dir1.Path=DriveDrive LabelCaption=FileListCount End SubB.Private Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Drivel_Change() DirPath=DriveD
7、rive LabelCaption=FileList End SubC.Private Sub Dir1_Change() FilePath=Dir1.Path LabelCaption=File1.ListCount End Sub Private Sub Drivel_Change() Dir1.Path=DriveDrive LabelCaption=Fil1.ListCount End SubD.Private Sub Dir1_Change() File1.Path=Dir1.Path LabelCaption=FileList End Sub Private Sub Drivel_
8、Change() Dir1.Path=DriveDrive LabelCaption=FileList End Sub12.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Textl、Labell 和 Commandl，然后编写如下两个事件过程： Prirate SUb Command1 Click() strText = InputBox(“请输入”) Textl.Text = strText End Sub Private Sub Text1 Change() Labell.Caption = Right(Trim(Text1.Text)， 3) End Sub 程序运行后，单
9、击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是（分数：2.00）A.空B.abcdefC.abcD.def13.有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While y0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Intege
10、r a = 50 b = 10 x=Gys (a，b) Print x End Sub（分数：2.00）A.0B.10C.50D.10014.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/215.确定一个控件在窗体上的位置的属性是（分数：2.00）A.Width 和 HeightB.Width 或 HeightC.Top 和 LeftD.Top 或 Left16.以下语句错误的是（分数：2.00）A.If a=1 And b=2 Then C=3 End I
11、fB.If a=1 Then C=2 Else If a=2 Then C=2 End IfC.If a=1 Then C=3 End IfD.If a=1 Then C=2 Else If a=2 Then C=2 End If End If17.以下合法的 Visual Basic 标识符是（分数：2.00）A.ForLoopB.ConstC.9abcD.a#x18.在窗体上添加一个文本框，名为 Textl，然后编写如下的 Load 事件过程，则程序的运行结果是 Private Sub Form_Load() Text1.Text=“ “ Text1.Setfocus t=1 For k=
12、10 To 6 Step -2 t=t(k Next k Text1.Text =t End Sub（分数：2.00）A.在文本框中显示 120B.文本框仍为空C.在文本框中显示 480D.出错19.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(“Input“) Select Case x Case 1， 3 Print“分支 1” Case Is4 Print“分支 2” Case Else Print “Else 分支” End Select End Sub 程序运行后，如果在输入
13、对话框中输入 2，则窗体上显示的是（分数：2.00）A.分支 1B.分支 2C.Else 分支D.程序出错20.目录列表框的 Path 属性的作用是（分数：2.00）A.显示当前驱动器或指定驱动器上的路径B.显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的文件名D.只显示当前路径下的文件21.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写 如下事件过程：Private Sub Command1_Click() Text1.Text =“Visual“ Me.Text1 = “Basic“ Text1 = “Program“ End
14、 Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是（分数：2.00）A.VisualB.BasicC.ProgramD.出错22.利用 E-R 模型进行数据库的概念设计，可以分成三步：首先设计局部 E-R 模型，然后把各个局部 E-R模型综合成一个全局的模型，要得到最终的 E-R 模型，还要对全局 E-R 模型进行（分数：2.00）A.简化B.结构化C.最小化D.优化23.在窗体上画一个命令按钮，名称为 Commad1，然后编写如下事件过程： Private Sub Command1 Click() a$=“software and bardware“ b$=Right(a$，8)
15、c$=Mid(a$，1，8) MsgBox a$，b$，c$，1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是（分数：2.00）A.soflware and hardwareB.softwareC.haldwareD.124.以下叙述中错误的是（分数：2.00）A.在 KeyPtess 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视作相同的字母D.KeyDown 和 KeyUp 事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视作不同的
16、字符25.以下有关数组定义的语句序列中，错误的是（分数：2.00）A.Static arrl(3) arr1(1)=100 arrl(2)=“Hello“ arrl(3)=123.45B.Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入：”) ReDim arr2(siz End SubC.Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer End SubD.Dim n As Integer
17、Private Sub Command4_Click() Dim arr4(As Integer End Sub26.Dima(3，-3 to 0，3 to 8)As Stritig 语句定义的数组元素有（分数：2.00）A.1-2 个B.96 个C.120 个D.80 个27.以下叙述中错误的是（分数：2.00）A.Visual Basic 是事件驱动型可视化编程工具B.Visual Basic 应用程序不具有明显的开始和结束语句C.Visual Basic 工具箱中的所有控件都具有宽度(Widt 和高度(Heigh 属性D.Visual Basic 中控件的某些属性只能在运行时设置28.假
18、定有一个菜单项，名为 Menultem，为了在运行时使该菜单项失效(变灰)，应使用的语句为（分数：2.00）A.MenulteEnabled=FalseB.MenulteEnabled=TrueC.MenulteVisible=TrueD.MenulteVisible=False29.设有如下的记录类型： Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是（分数：2.00）A.Studenname=“张红”B.Dim s As Student name=“张红”C.Dim s
19、 As Type Student name=“张红”D.Dim s As Type name=“张红”30.在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X = 5： Y = 3 Call proc(X， Y) Labell.Caption：X Label2.Caption：Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X =
20、 a * a Y = b + b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是（分数：2.00）A.5 和 3B.25 和 3C.25 和 6D.5 和 6二、B填空题/B(总题数：12，分数：24.00)31.设有如下程序段： a$=“BeijingShanghai“ b$=Mid(a$，InStr(a$，“g“)+1) 执行上面的程序段后，变量 b$的值为_。（分数：2.00）填空项 1:_32.算法复杂度主要包括时间复杂度和 1 复杂度。（分数：2.00）填空项 1:_33.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_34.在关系数据
21、库中，把数据表示成二维表，每一个二维表称为 1。（分数：2.00）填空项 1:_35.计时器控件能有规律的以一定时间间隔触发 1 事件，并执行该事件过程中的程序代码。（分数：2.00）填空项 1:_36.设有以下函数过程： Functio fun(m As Integer) As Integer Dim k As Integer， sum As Integer sum=0 For k=m To 1 Step -2 sum = sum+ k Next k fun=sum End Function 若在程序中用语句s=fun(10)调用此函数，则 s 的值为 _。（分数：2.00）填空项 1:_3
22、7.在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1.Text=“VB 程序设计“ End Sub Private Sub Text1_Change() Picturel.Print“VB Programming“ End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 _，而在图片框中显示的内容是 _。（分数：2.00）填空项 1:_38.阅读下面的程序： Private Sub Form_Click() Dim Check As Boolean，Counter As Integer Check=True C
23、ounter=5 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=Fadtse EXit Do End If Loop Loop Until Check=False Print Counter End Sub 程序运行后，单击窗体，输出结果为 _。（分数：2.00）填空项 1:_39.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a= Val(InputBox(“请输入一个整数”) b=Val(InputBox(“请输入一个整数”) Print a+b
24、End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 12 和 34，输出结果为 _。（分数：2.00）填空项 1:_40.若 s、i 均为整型变量，执行下列程序段后 s 的值为 _。 s=0 i=1 Do s=s+i i=i+1 Loop Until i5（分数：2.00）填空项 1:_41.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序： Function M(x As Integer，y As Integer) As Integer M=IIf(xy，x，y) End Function Private Sub Command1 Click() Dim a
25、 As Integer， b As Integer a=100 b=200 Print M(a，b) End Sub 程序运行后，单击命令按钮，输出结果为 _。（分数：2.00）填空项 1:_42.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim a(10)As Integer For i = 1 To 10 a(i)= i Next Call swap(_) For i=1 To 10 Print a(i)； Next End Sub Sub swap(b()As Intege
26、r) n = _ For i=1 To n/2 t = b(i) b(i)= b(n) b(n)= t _ Next End Sub 上述程序的功能是：通过调用过程 swap，调换数组中数值的存放位置，即 a(”与 a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 332 答案解析(总分：84.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.在软件设计中，不属于过程设计：工具的是（分数：2.00）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.
27、DFD 图 解析：解析 数据流图 DFD，是结构化分析方法最主要的一种图形工具，不属于过程设计工具。2.下列描述中正确的是（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体D.软件是程序、数据与相关文档的集合 解析：解析 计算机软件是计算机系统中与硬件相互依存的另一部分，包括程序、数据及相关文档的完整集合。选项 D 的描述正确。3.设 a=“Visual Basic“，下面使 b=“Basic“的语句是（分数：2.00）A.b=Left(a，8，12)B.b=Mid(a，8，5) C.b=Right(a，5，5)D.b=Left(a，8，5)解
28、析：解析 本题仍然考查字符串函数，字符串函数在 Visual Basic 考题中历年都占有很大的比重，考生应给予关注。本题 A、C、D 项都发生了格式上的错误。只有 B 项是正确的，Mid(a，8，5)是从 a 字符串的第 8 位开始截取 5 位，符合题意。4.假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button = 2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是（分数：2.
29、00）A.该过程的功能是弹出一个菜单B.PopForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 X、Y 指明鼠标的当前位置D.BuRon=2 表示按下的是鼠标左键 解析：解析 本题主要考查鼠标事件 MouseDown 的各参数的含义。参数 X、Y 指明鼠标当前所在的位置，而 Button=2 表示按下的是右键；1 表示左键；另外 Button=4 表示按下鼠标的中间键。故 D 是错误的。另外“PopupMenu PopForm”表示把在菜单编辑器中定义的菜单表示为弹出式菜单。故选项 A、B 的说法是正确的。5.以下关于窗体的描述正确的是（分数：2.00）A.只有用于启动的窗体可以有菜单
30、B.窗体事件和其中所有控件事件的代码都放在窗体文件中 C.窗体的名字和存盘的窗体文件名必须相同D.开始运行时窗体的位置只能是设计阶段时显示的位置解析：解析 每个窗体都可以通过菜单编辑器来设计自己的菜单，A 是错误的。窗体的名字(Name)与存盘的窗体文件名可以完全不同，这是两个概念，在工程资源管理器中分别显示了存盘的窗体文件名与窗体的名字，故 C 项不正确。窗体可以通过设置属性或使用程序代码来确定自己在运行时的位置，D 项也是错误的。故答案为 B。6.如果要改变窗体的标题，则需要设置的属性是（分数：2.00）A.Caption B.NameC.BackColorD.Borderstyle解析：
31、解析 Caption 属性确定窗体的标题，即显示在窗体标题栏内的内容。而 Name 确定窗体的名称，即窗体在整个程序中的“身份”。 BackColor 用来设置窗体的背景颜色：BorderStyle 确定窗体的边框样式。故本题答案为 A。7.软件测试的目的是（分数：2.00）A.证明软件系统中存在错误B.找出软件系统中存在的所有错误C.尽可能多地发现系统中的错误和缺陷 D.证明软件的正确性解析：解析 软件测试的目的不是证明系统的正确或是系统中的错误，而是要发现错误以使编程人员能够改正。系统中的错误和缺陷往往受到很多偶然因素的影响，不可能完全发现，只能是尽可能地发现并改正。8.下列程序执行后，n
32、 的值为 n=0 For I=1 To 200 If I Mod 4 = 0 Then n = n+1 Next I（分数：2.00）A.5050B.50 C.51D.33解析：解析 本题考查考生对 For 循环的理解。根据题意，在 Forl 的 200 次循环中，每遇到一次 1 为 4的倍数，变量 n 就加 1。所以本题答案为 B，在 1 到 200 之间，有 50 个数是 4 的倍数。9.以下叙述中错误的是（分数：2.00）A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B.以.BAS 为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以
33、含有多个标准模块文件解析：解析 工程管理器窗口中可以包含多个工程文件，每个工程文件又可以包含多个窗体和多个不同类型的文件。故选项 A 的说法是错误的。10.在窗体上画一个名称为 Command1 的命令按钮和三个名称分别为 Label1、Label2、Label3 的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 2 = n + z y=y+z x = x + z Label1.Caption =x Label2.Caption
34、=y Label3.Caption =z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（分数：2.00）A.10 10 10B.30 30 30C.30 30 10 D.10 30 30解析：解析 本题主要考查变量的几种定义方式，Private 定义的变量 x 为模块级变量，每单击一次Commandl，x 将在原来的基础上被赋予新值。而 y/2 为过程变量，y 由于以 Static 定义，具有存储数值的功能，为静态变量；而 z 为动态变量，每调用一次该事件过程，2 值都会自动初始化，本题正确答案为C。11.在窗体上画一个名称为 Drivel 的驱动器列表框，一
35、个名称为 Dirl 的目录列表框，一个名称为 Filel的文件列表框，两个名称分别为 Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Labell 中显示当前文件夹中文件的数量。如图所示。 （分数：2.00）A.PriVate Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Dirvel_Change() Dir1.Path=DriveDrive LabelCaption=FileListCount End SubB.Privat
36、e Sub Dir1_Change() FilePath=Dir1.Path End Sub Private Sub Drivel_Change() DirPath=DriveDrive LabelCaption=FileList End SubC.Private Sub Dir1_Change() FilePath=Dir1.Path LabelCaption=File1.ListCount End Sub Private Sub Drivel_Change() Dir1.Path=DriveDrive LabelCaption=Fil1.ListCount End Sub D.Privat
37、e Sub Dir1_Change() File1.Path=Dir1.Path LabelCaption=FileList End Sub Private Sub Drivel_Change() Dir1.Path=DriveDrive LabelCaption=FileList End Sub解析：解析 List 属性用来列出表项的内容，可以加下标用“()”括起来配合使用。根据题意，应选择文件列表框的 ListCount 属性，该属性用于返回文件的数量值。故 B、D 项错误。A 项缺少“Label1.Caption=Filel.ListCount”这一语句，从而使得在仅触动 Dirl 的
38、Change 事件时，Labell 没有反应。12.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Textl、Labell 和 Commandl，然后编写如下两个事件过程： Prirate SUb Command1 Click() strText = InputBox(“请输入”) Textl.Text = strText End Sub Private Sub Text1 Change() Labell.Caption = Right(Trim(Text1.Text)， 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是（
39、分数：2.00）A.空B.abcdefC.abcD.def 解析：解析 本题考查字符串函数。 Trim 表示去掉字符串两边的空白字符。Right 函数返回字符串最后面的 n 个字符。本题首先通过 InputBox 函数输入一个字符串并赋给 strText，然后把 strText 赋给Textl.Text。再经过 Trim 函数和 Right 函数的计算，得出的结果应该是 abcdef 的最后三个字符 def，故正确答案为 D。13.有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While
40、 y0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，b) Print x End Sub（分数：2.00）A.0B.10 C.50D.100解析：解析 本首先要读懂 Gys 函数过程的意思，Gys 函数过程返回参数 y 的值，具体过程是先令参数x 的值为 y 的值，y 的值为 x Mod y 的值，再
41、令 Gys 值为 x 的值，据此本题的正确结果为 10，选 B。14.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/2 解析：解析 假设线性表的长度为 n，在最坏情况下，冒泡排序和快速排序需要的比较次数为 n(n-1)/2。由此可见，选项 D 正确。15.确定一个控件在窗体上的位置的属性是（分数：2.00）A.Width 和 HeightB.Width 或 HeightC.Top 和 Left D.Top 或 Left解析：解析 确定一个控件在窗体中的位置，
42、用 Top 与 Left 属性，前者确定控件与窗体上端的距离，后者确定控件与窗体左端的距离。故正确答案为 c。确定一个控件在窗体上的位置要由这两个属性共同决定。故选项 D 是错误的。A、B 项的 Width 与 Height 属性确定控件本身的高度与长度，故 A、B 项都是错误的。16.以下语句错误的是（分数：2.00）A.If a=1 And b=2 Then C=3 End IfB.If a=1 Then C=2 Else If a=2 Then C=2 End IfC.If a=1 Then C=3 End IfD.If a=1 Then C=2 Else If a=2 Then C=2
43、 End If End If 解析：解析 本题考查 If 选择控制结构。If 选择控制结构的两种形式为：“If Then End If”与“If ThenElse If ThenEnd If”，选项 D 的写法是错误的，多出了 End If。答案为 D。17.以下合法的 Visual Basic 标识符是（分数：2.00）A.ForLoop B.ConstC.9abcD.a#x解析：解析 本题考查 Visual Basic 中变量的命名规则，由于“Const”、“#”是 Visual Basic 保留的关键字符，故 B、D 项所列不是合法的，同时 Visual Basic 规定变量的命名只能以
44、字母开头，所以 C 项也是非法的。A 项正确。18.在窗体上添加一个文本框，名为 Textl，然后编写如下的 Load 事件过程，则程序的运行结果是 Private Sub Form_Load() Text1.Text=“ “ Text1.Setfocus t=1 For k=10 To 6 Step -2 t=t(k Next k Text1.Text =t End Sub（分数：2.00）A.在文本框中显示 120B.文本框仍为空C.在文本框中显示 480D.出错 解析：解析 本题表面在考查 For 循环控制语句的使用，但解题的关键是理解 Text 文本框 SetFocus 方法的正确使用
45、，在触发窗体 Form 的 Load 事件时，使用 SetFocus 将发生冲突，在 Visual Basic 上调试本题的程序将显示“错误的过程调用或函数”提示。本题选择 D 项。如果删除 SetFocus 方法的使用，文本框中将显示 480。如果用控制按钮的 Click 事件触发该段事件过程，文本框也会得到 480 的答案，对此，考生不妨自己上机一试。19.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(“Input“) Select Case x Case 1， 3 Print“分
46、支 1” Case Is4 Print“分支 2” Case Else Print “Else 分支” End Select End Sub 程序运行后，如果在输入对话框中输入 2，则窗体上显示的是（分数：2.00）A.分支 1B.分支 2C.Else 分支 D.程序出错解析：解析 本题考查多分支控制结构。根据题意，输入 2 时，满足“Case Else”条件，即执行“Print “Else 分支“”，故正确答案为 C。20.目录列表框的 Path 属性的作用是（分数：2.00）A.显示当前驱动器或指定驱动器上的路径 B.显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的文件名D
47、.只显示当前路径下的文件解析：解析 Path 属性因控件而异，目录列表框的 Path 属性只显示当前驱动器或指定驱动器的路径，而不显示相关的文件名及文件。故本题选择 A 项。21.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写 如下事件过程：Private Sub Command1_Click() Text1.Text =“Visual“ Me.Text1 = “Basic“ Text1 = “Program“ End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是（分数：2.00）A.VisualB.BasicC.Program D
48、.出错解析：解析 本题主要考查文本框 Text 属性的表达方式。在写程序代码时，一般省去窗体名称，例如：Forml.Textl.Text 可以直接写成 Textl.Text。同时，由于 Text 是文本框的属性值，所以也可以省略。对于程序代码所在的窗体，可以用 Me 来代指。故本题中 Textl.Text、Mc.Textl、Textl 都是等价的。由于程序代码按顺序执行，故单击命名按钮后，文本框中最终显示 Program。正确答案为 C。22.利用 E-R 模型进行数据库的概念设计，可以分成三步：首先设计局部 E-R 模型，然后把各个局部 E-R模型综合成一个全局的模型，要得到最终的 E-R 模型，还要对全局 E-R 模型进行（分数：2.00）A.简化B.结构化C.最小化D.优化 解析：解析 在概念设计中，按照模块的划分画出各个模块的 E-R 图，然后把这些图合成一张 E-R 图作为全局模型，最后应该对全局 E-R 图进行优化，看是否有重复和不合理的地方。不能只进行简单的合并。故答案为 D。23.在窗体上画一个命令按钮，名称为 Commad1，然后编写如下事件过程： Private Sub Command1 Click() a$=“sof
