1、二级 VISUAL+BASIC 笔试 389 及答案解析(总分：98.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.将一个窗体设置为 MDI 子窗体的方法是（分数：2.00）A.将窗体的名称改为 MDIB.将窗体的 MDIChild 属性设为 TrueC.将窗体的 MDIChild 属性设为 FalseD.将窗体的 Enabled 属性设为 False2.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应使用的语句是（分数：2.00）A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1
2、.Visible=TrueD.menu1.Visible=False3.有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 20 And i Mod 3=0 Then Sum=Sum+i EndIf Next Print Sum End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.12B.30C.24D.184.下列叙述中，不符合良好程序设计风格要求的是（分数：2.00）A.程序的效率第一，清晰第二B.程序的可读性好C.程序中要有必要的注释D.
3、输入数据前要有提示信息5.表达式 Right(“Beijing“，4)的值是（分数：2.00）A.BeijB.jingC.eijiD.ijin6.下面的属性中，用于自动调整图像框中图形内容的大小的是（分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch7.以下不是面向对象思想中的主要特征的是（分数：2.00）A.多态B.继承C.封装D.垃圾回收8.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为 M1。设窗体 Form1 标题为“myform1”，双击控件数组中的第 3 个按钮，打开代码编辑器，写下如下代码： Prinvate Sub M1_Cl
4、ick(Index As Integer) Form1.Caption=“myform2“ End Sub 运行时，单击按钮数组中的第 1 个按钮，窗体标题为（分数：2.00）A.Form1B.MIC.myform1D.myform29.以下语句用于打开一个顺序文件 Open “C:/MyFile.txt“ For OutPut，但是该语句的一个重要错误是没有（分数：2.00）A.指定打开方式B.指定文件号C.指定打开文件名D.指定文件类型10.能够将 Picture 对象 Pic1 加载当前目录中的 face.bmp 的语句是（分数：2.00）A.Pic1.Picutre=LoadPictu
5、re(Appath arr(n) End Sub 程序的运行结果为（分数：2.00）A.3 11B.11 3C.13 3D.3 1327.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住“Shift“键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是 ) A )
6、 a ) A ) a A A a a（分数：2.00）A.B.C.D.28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer) As Integer If X20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Pdvate Sub
7、 Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 25C.输出 45D.无任何输出29.下列程序段的执行结果
8、为 m=2 n=3 Do m=m+n n=n+1 Loop While m10 Print m;n（分数：2.00）A.1 5B.14 6C.a bD.10 2530.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到（分数：2.00）A.GotFocus 事件B.Click 事件C.Change 事件D.DblClick 事件31.软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指（分数：2.00）A.模块间的关系B.系统结构部件转换成软件的过程描述C.软件层次结构D.软件开发过程32.在深度为 5 的满二叉树中，叶子节点的个数为（分数
9、：2.00）A.32B.31C.16D.1533.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： PrivateSub Form_Load() List1.AddItem “Item1“ List1.AddItem “Item2“ List1.AddItem “Item3“ End Sub Private Sub Command1_Click() List1.List(List1.Listcount) =“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但位置不能
10、确定B.把字符串“AAAA“添加到列表框的最后(即“Item3“的后面)C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面(即“Item1“的前面)34.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.“Alt+B”B.“Alt+Q”C.“Alt+Shift”D.“Alt+A”35.以下用户自定义函数 Function Func(a As Integer，b As Integer) As Integer Static m As Integer，i As Integer m=0:i=2 i=i+m+i m=i+a+b Func
11、=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4:m=1 P=Func(k,m) Print p End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8B.9C.10D.11二、B填空题/B(总题数：14，分数：28.00)36.软件定义时期主要包括 1 和需求分析两个阶段。（分数：2.00）填空项 1:_37.软件维护活动包括：改正性维护、适应性维护、 1 维护和预防性维护。（分数：2.00
12、）填空项 1:_38.数据的逻辑结构有线性结构和 1 两大类。（分数：2.00）填空项 1:_39.某二叉树中度为 2 的节点有 n 个，则该二叉树中有 1 个叶子节点。（分数：2.00）填空项 1:_40.在 E-R 图中，矩形表示 1。（分数：2.00）填空项 1:_41.在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=“VB Programming“ Text2.Text=Text1.Text Text1.Text=“ABCD“ End Sub 程序运行后，单击命令按钮，Text1 文
13、本框中显示的内容为_。（分数：2.00）填空项 1:_42.在窗体上有一个名称为 Label1 的标签和一个名称 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Labe1 中显示所选中的项目，如图 2.2 所示。请在空白处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_43.当对象得到焦点时，会触发 GotFocus 事件，当对象失去焦点时将触发 1 事件。（分数：2.00）填空项 1:_44.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1 2，3，90。请
14、在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End TyPe Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open “c:/Data1.txt“ For Random As #2 Len=10 Y=3.14159/180 For i=1 T0 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) _ Next Close #2 End Sub（分数：2.00）填空项 1:
15、_45.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度：1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private TyPe Ang K As Integer Sinx As Single Cosx As Single End TyPe Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open _ Y=3.14159/180 For i=1 T0 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Put #
16、2，i，Ksc Next i Close #2 End Sub（分数：2.00）填空项 1:_46.执行如下程序段后，int sum 的值为_。 Private SubCommand1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If (i Modj)0 Then sum=sum+j Next Next Print sum End Sub（分数：2.00）填空项 1:_47.下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer，j As Integer，Str1 $ Str1=“ For i=1 To 9 For j=1
17、 To 9 If U12 /UThen Str1=Str1+Str$(j)+“X“+Str$(i)+“=“+Str$(Val(i*j) Else Str1=Str1 arr(n) End Sub 程序的运行结果为（分数：2.00）A.3 11B.11 3 C.13 3D.3 13解析：解析 在给数组赋值时，如果每次都是赋给数组中同一个成员，那么后面的赋值将覆盖以前的值。27.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Su
18、b Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住“Shift“键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是 ) A ) a ) A ) a A A a a（分数：2.00）A.B.C. D.解析：解析 KeyCode 是按键的实际的字符(不区分大小写) ，KeyAscii 是以字符为准，是所按键的ASCII 码。28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Intege
19、r) As Integer If X20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Pdvate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=True End Sub Private Sub Command1_Click(
20、) Dim intNum As Integer intNum=InputBox(“) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 25C.输出 45 D.无任何输出解析：解析 本题考查的是鼠标事件，当按下鼠标左键(发生 MouseDown 时)，SW 的值为 False，当松开鼠标左键(触发 MouseUp 时)，SW 的值为 True。29.下列程序段的执行结果为 m=2 n=3 Do m=m+n n=n+1 Loo
21、p While m10 Print m;n（分数：2.00）A.1 5B.14 6 C.a bD.10 25解析：解析 此题内容比较简单，开始 m 为 2，n 为 3，执行 Do 语句，具体运行为：执行 m=m+n；n=n+1语句后，m 为 5，n 为 4。这样运行到 m=14，程序终止循环，此时 n=6。30.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到（分数：2.00）A.GotFocus 事件B.Click 事件C.Change 事件 D.DblClick 事件解析：解析 文本框 Change 事件在用户改变正文或通过代码改变 Text 属性
22、的设置时发生。31.软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指（分数：2.00）A.模块间的关系B.系统结构部件转换成软件的过程描述 C.软件层次结构D.软件开发过程解析：解析 软件设计包括软件结构设计、数据设计、接口设计和过程设计。其中，结构设计是定义软件系统各主要部件之间的关系；数据设计是将分析时创建的模型转化为数据结构的定义；接口设计是描述软件内部、软件和操作系统之间及软件与人之间如何通信；过程设计则是把系统结构部件转换成软件的过程性描述。32.在深度为 5 的满二叉树中，叶子节点的个数为（分数：2.00）A.32B.31C.16 D.15解析：解析 满二叉树是指
23、除最后一层外，每一层上的所有节点都有两个叶子节点。在满二叉树中，层上的节点数都达到最大值，即在满二叉树的第 A 层上有 2k-1个节点，且深度为 m 的满二叉树有 2m-1 个节点。33.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： PrivateSub Form_Load() List1.AddItem “Item1“ List1.AddItem “Item2“ List1.AddItem “Item3“ End Sub Private Sub Command1_Click() List1.List(List1.Listcount
24、) =“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但位置不能确定B.把字符串“AAAA“添加到列表框的最后(即“Item3“的后面) C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面(即“Item1“的前面)解析：解析 列表框的 list 属性用来列出列表项的内容，也可以改变数组中的已有值。列表框中列表项的排列是从 O 开始，最后项的序号为 ListCount-1，该题语句的作用足把字符串“AAAA“添加到列表框的最后，但不改变 Item3 的值，所以本题的正确答案是选项 B)
25、。34.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.“Alt+B”B.“Alt+Q” C.“Alt+Shift”D.“Alt+A”解析：解析 “Alt+Q”关闭当前的工程并退出 VisualBasic。35.以下用户自定义函数 Function Func(a As Integer，b As Integer) As Integer Static m As Integer，i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Com
26、mand1_Click() Dim k As Integer，m As Integer，p As Integer k=4:m=1 P=Func(k,m) Print p End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8 B.9C.10D.11解析：解析 变量；的计算过程为 i=2+0+1=3，变量 m 的计算过程为 m=3+4+1=8，m 的值通过子函数名Fun c 返回。二、B填空题/B(总题数：14，分数：28.00)36.软件定义时期主要包括 1 和需求分析两个阶段。（分数：2.00）填空项 1:_ （正确答案：可行性研究）解析：解析 软件生命周期一般包括可行
27、性研究与需求分析、设计、实现、测试、交付使用以及维护等。另外还可以将软件生命周期分为三个阶段：软件定义阶段：可行性研究和需求分析；软件开发阶段：设计、实现和测试；软件运行维护阶段：交付使用和维护。37.软件维护活动包括：改正性维护、适应性维护、 1 维护和预防性维护。（分数：2.00）填空项 1:_ （正确答案：完善性）解析：解析 软件维护活动包括：改正性维护、适应性维护、完善性维护和预防性维护。改正性维护是指在软件交付使用后，为了识别和纠正软件错误，改正软件性能上的缺陷，排除实施中的误使用，应当进行的诊断和改正错误的过程；适应性维护是指为了使软件适应变化，而去修改软件的过程；完善性维护是指为
28、了满足用户对软件提出的新功能与性能要求，需要修改或再次开发软件，以扩充软件功能、增强软件性能、改进加工效率、提高软件的可维护性；预防性维护是为了提高软件的可维护性、可靠性等，为以后的进一步改进软件打下良好基础。38.数据的逻辑结构有线性结构和 1 两大类。（分数：2.00）填空项 1:_ （正确答案：非线性结构）解析：解析 数据的逻辑结构有线性结构和非线性结构两大类。39.某二叉树中度为 2 的节点有 n 个，则该二叉树中有 1 个叶子节点。（分数：2.00）填空项 1:_ （正确答案：n+1）解析：解析 在任意一棵二叉树中，度为 0 的节点(即叶子节点)总是比度为 0 的节点多一个。40.在
29、 E-R 图中，矩形表示 1。（分数：2.00）填空项 1:_ （正确答案：实体）解析：解析 在 E-R 图中用矩形表示实体；椭圆形表示属性；菱形表示联系。41.在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=“VB Programming“ Text2.Text=Text1.Text Text1.Text=“ABCD“ End Sub 程序运行后，单击命令按钮，Text1 文本框中显示的内容为_。（分数：2.00）填空项 1:_ （正确答案：ABCD）解析：解析 Text1 中的值被赋到
30、Text2 中，Text1 中的值被重新赋值为 ABCD。42.在窗体上有一个名称为 Label1 的标签和一个名称 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Labe1 中显示所选中的项目，如图 2.2 所示。请在空白处填入适当的内容，将程序补充完整。 （分数：2.00）填空项 1:_ （正确答案：List1.Text）解析：解析 双击事件为 DblClick；ListBox 的 Text 属性返回当前列表项的文本。43.当对象得到焦点时，会触发 GotFocus 事件，当对象失去焦点时将触发 1 事件。（分数：2.00）填空项 1:_
31、（正确答案：LostFocus）解析：解析 在 Visual Basic 中，当对象得到焦点时，它可以接收用户的输入；当得到焦点时会触发GotFocus 事件，当失去焦点时会触发 LostFocus 事件。44.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1 2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End TyPe Dim Ksc As Ang Private Sub Form_Click
32、() Dim Y As Single Open “c:/Data1.txt“ For Random As #2 Len=10 Y=3.14159/180 For i=1 T0 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) _ Next Close #2 End Sub（分数：2.00）填空项 1:_ （正确答案：“C:/Data1.txt” For Random As #2 Len=10）解析：解析 打开一个随机文件的一般格式为： “Open “文件名称“ For Random As #文件号Len=记录长度”45.下列事件过程的功能是：建立一个
33、名为 Data1 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度：1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private TyPe Ang K As Integer Sinx As Single Cosx As Single End TyPe Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open _ Y=3.14159/180 For i=1 T0 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Put #2，i，Ksc Next i Clos
34、e #2 End Sub（分数：2.00）填空项 1:_ （正确答案：text(*.txt)|*.txt）解析：解析 使用通用对话框指定打开文件类型的格式为： 文件类型名(*.扩展名) |*.扩展名。46.执行如下程序段后，int sum 的值为_。 Private SubCommand1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If (i Modj)0 Then sum=sum+j Next Next Print sum End Sub（分数：2.00）填空项 1:_ （正确答案：161）解析：解析 单循环次数 r=int(终值-初值+
35、步长) /步长) ，嵌套循环次数是各层循环次数的乘积。该段程序的循环次数为 95=45(次)，当 i 不能被 j 整除时，j 的值相加。该段程序中只有以下条件不成立，即 3/3、5/5、9/3、15/3、15/5，所以计算结果为 9(2+3+4+5+6)-(3+5+3+3+5)=161。47.下面程序是用来打印九九乘法表的，请填空。 Dim i As Integer，j As Integer，Str1 $ Str1=“ For i=1 To 9 For j=1 To 9 If U12 /UThen Str1=Str1+Str$(j)+“X“+Str$(i)+“=“+Str$(Val(i*j)
36、Else Str1=Str1 & Chr(13) U 13 /U End If Next Next Print Str1（分数：2.00）填空项 1:_ （正确答案：12 j=i）解析：13 Exitfor 解析 本题考查了双重 For 循环和转换函数。Str$(x)：把 x 的值转换为一个字符串；Chr(x)：把 x 的值转换为相应的 ASCII 字符。48.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是_。（分数：2.00）填空项 1:_ （正确答案：下拉式列表框）解析：解析 下拉式列表框仅允许从下拉式列表中选择。 (默认值) 下拉式组合框包括一个下拉式列表和一个文本框，可
37、以从列表选择或在文本框中输入。 简单组合框包括一个文本框和一个不能下拉的列表，可以从列表中选择或在文本框中输入。简单组合框大小包括编辑和列表部分。按默认规定，简单组合框的大小调整在没有任何列表显示的状态。增加 Height 属性值可显示列表的更多部分。49.在一个窗体上有一个命令按钮 CmdMax。单击 CmdMax 时，窗体上显示“字体由小变大”，字号每次增加 2。请填空。 Private Sub Form_Load() Form1.Caption=“字体变化示范“ CmdMax.Caption=“字体变大“ End Sub Private Sub CmdMax_Click() _ Form1.Print “字体由小变大“ End Sub（分数：2.00）填空项 1:_ （正确答案：Form1.FontSize=Form1.FontSize+2）解析：解析 决定字体大小的是 FontSize 属性，所以要改变字体的大小需要改变 FontSize 的值。CmdMax 按钮的作用是单击 CmdMax 时，窗体上显示“字体由小变大”，字号每次增加 2，所以应填入的是Form1.FontSize=Form1.FontSize+2。
