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

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

1、计算机二级(VB)38 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.关于 Visual Basic“方法“的概念错误的是（ ）。（分数：2.00）A.AbstractTableModelB.TableModelC.JTableD.TableModelable2.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（ ）。（分数：2.00）A.程序的语法错B.程序在编译和运行中所发生的异常事件C.程序预先定义好的异常事件D.程序编译错误3.假定建立了一个名为 Command1 的命令按钮数组

2、，则以下说法中错误的是_。 （分数：2.00）A.数组中每个命令按钮的名称（Name 属性）均为 Command1B.数组中每个命令按钮的标题（Caption 属性）都一样C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮4.Visual Basic 60 分为 3 种版本，不属于这 3 种版本的是（ ）。（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.标准模块不附属于任何一个窗体5.在 Visual Basic 中，要将一个窗体从内存中释放，应使用的语句是（ ）。（分数：

3、2.00）A.友元函数的实现必须在类的内部定义B.友元函数是类的成员函数C.友元函数破坏了类的封装性和隐藏性D.友元函数不能访问类的私有成员6.下列程序段的执行结果为（ ）。 a=5 Fork=1 To 0 a=a + k Next k Print k；a （分数：2.00）A.OpenFormB.OpenqueryC.OpenReportD.RunSQL7.当双击窗体 Form1 时，要将窗体 Form1 隐藏起来、将窗体 Form2 以模式方式显示出来的事件过程，正确的是( )。 （分数：2.00）A.B.C.D.8.以下各项，可以作为 Visual Basic 变量名的是（ ）。（分数：

4、2.00）A.内存跟踪B.内存编译C.语法检查D.上述都不正确9.下列说法错误的是（ ）。（分数：2.00）A.CREATE REPORT PP1B.MODIFY REPORT PP1C.CREATE PP1D.MODIFY PP110.在窗体上画一个名称为 CommonDialog1 的通用对话框，一个名称为 Command1 的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为“Save”，缺省文件名称为“SaveFile”，在“文件类型”栏中显示*txt，则能够满足上述要求的程序是（ ）。（分数：2.00）A.javaB.javacC.javapD.javadoc11

5、.下列程序段的执行结果为( )。 a=2 b=0 Select Case a Case 1 Select Case b Case 0 Print “ * * 0 * *“ Case 1 Print“ * * 1 * *“ End selec Case 2 Print “ * * 2 * *“ End Select （分数：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

6、 Input As #212.下面叙述正确的是_。 （分数：2.00）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试D.程序经调试改错后不必进行再测试13.可以在常量的后面加上类型说明符以显示常量的类型，可以表示整型常量的是（ ）。（分数：2.00）A.B.#C.!D.$14.有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 =1 tempstr=tempstr+Mid(xstr，i，1) i=i-

7、1 Loop ystr=tempstr End Sub （分数：2.00）A.fedcbaB.abcdefC.afbecdD.defabc22.下面的程序的运行结果是( )。 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a （分数：2.00）A.ComputerB.什么都没有C.* * * * * * * *D.程序出错23.下列各控件不包含滚动条的控件是（ ）。（分数：2.00）A.ListBoxB.ComboBoxC.TextBoxD.LabelBox24.确定窗体控件启动位置的属性是（ ）。（分数

8、：2.00）A.Width 和 HeightB.Width 或 HeightC.StartUpPositonD.Top 和 Left25.单击一次命令结束后，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i Sat=Sum End Function （分数：2.00）A.(5)B.(6)C.(7)D.(11)26.设

9、 a=4,b=3,c=2,d=1，下列表达式的值是_。ab+1 Or cA.TrueB.1C.-1D.027.单击窗体时，下列程序的执行结果是( )。 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop yStr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As S

10、tring，s2 As String S1=“abcdef“ Invert S1，S2 Print S2 End Sub （分数：2.00）A.blooean isAlive( )B.Thread currentThread( )C.String getName( )D.smtic boolean interrupted( )28.有如下的程序： Private Sub Command1_Click( ) Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Pid(k，m) ：Print P； P=Pid(k，m) ：Print P

11、 End Sub Private Function Pid(a As Integer，b As Integer) Static m As Integer，i As Integer m=5：i=2 i=i + m + 1 m=i + a + b Pid=m/2 End Function 单击命令按钮后，输出结果为（ ）。 （分数：2.00）A.2 2B.4 4C.5 5D.6 629.通过设置何属性可以改变所画图形的形状?（分数：2.00）A.变量名的长度不能超过 255 个字符B.变量名可以包含小数点或者内嵌的类型声明字符C.变量名不能使用关键字D.变量名的第一个字符必须是字母30.在代码编辑

12、器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是（ ）。（分数：2.00）A.一个空格加一个下划线“_”B.一个下划线“_”C.一个造字符“_”D.一个空格加一个连字符“-”31.在窗体上建立通用对话框需要添加的控件是（ ）。（分数：2.00）A.Data 控件B.From 控件C.CommonDialog 控件D.VBComboBox 控件32.Visual Basic 集成的主窗口中不包括（ ）。（分数：2.00）A.属性窗口B.标题栏C.菜单栏D.工具栏33.下列程和序段的执行结果为（ ）。 x=Int(Rnd()+9) Select Case X Case 10 Prin

13、t “excellent“ Case 9 Print “good“ Case 8 Print “pass“ Case Else Print “fail“ End Select （分数：2.00）A.派生类一般都用公有派生B.对基类成员的访问必须是无两义性的C.赋值兼容规则也适用于多重继承的组合D.基类的公有成员在派生类中仍然是公有的34.定义过程的格式中，Static 关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static 关键字，则（ ）。（分数：2.00）A.每次调用此过程，该过程中的局部变量都会被重新初始化B.在本过程中使用到的，在其他过程中定义的变量也为 Statc

14、i 型C.每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值D.定义了该过程中定义的局部变量为“自动“变量35.Sub 过程与 Function 过程最根本的区别是（ ）。（分数：2.00）A.2，3B.3，2C.2，2D.3，3二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.下列事件过程的功能是：建立一个名为 Data1 的随机文件，存放角度值及这些角度的正弦 函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx

15、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 （分数：2.00）填空项 1:_37.描述“x 是小于 100 的非负整数“的 Visual Basic 表达式是 1。（分数：2.00）填空项 1:_38.下面程序运行后，单击命令按钮，输出的结果是 1。 Private Sub Commandl

16、_Click2 Dim a(1 To 4) ，b(2 To 6) ，i，strl#，str2# For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(a) str2 =YAG(b) Print“strl“；str1;“str2=“；str2 End Sub Function YAG (a3As Integer) Dim T#，i t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next i YAG =t End Function （分数：2.00）填空项 1:_39.如图所示，

17、在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框（即“查 找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显 示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。 （分数：2.00）填空项 1:_40.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click1 n = 5 f = 1 s = 0 For i = 1 To n f = f 2 s = s + f

18、Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：2.00）填空项 1:_41.新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮， Form1 窗体消失，显示 Form2 窗体，程序如下： Private Sub Command1_Click1 2 Form2 3 End Sub 试补充完整。 （分数：2.00）填空项 1:_填空项 1:_42.在窗体上画 1 个名称为 Command1 和命令按钮和 2 个名称分别为 Text1、Text2 的文本框， 如图所示，然后编写

19、如下程序： （分数：2.00）填空项 1:_43.下列程序计算 Sn 的值。Sn=a+aa+aaa+aaaa，其中最后一项为 n 个。 例如：a=5，n=4 时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click1 Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入 a 的值：“) 2 Do Tn=Tn * 10 + a Sn 二 Sn + Tn Cout=

20、Cout+1 3 DebugPrint a，n，Sn End Sub （分数：2.00）填空项 1:_44.下列程序的功能是：将数据 1，2，8 写入顺序文件 Numtxt 中，请补充完整。 Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next i Close #1 End Sub （分数：2.00）填空项 1:_45.下列软件系统结构图的宽度为 1 （分数：2.00）填空项 1:_46.下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer，j

21、 As Integer，Strl$ Strl=“ “ For i=1 To 9 Forj=1 To 9 If 1 Then Strl=Strl + Str$(j)+“X“+Str$(i)+“=“+Str$(Val(i * j) Else Strl=Strl “str2=“；str2 End Sub Function YAG (a3As Integer) Dim T#，i t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next i YAG =t End Function （分数：2.00）填空项 1:_ （正确答案：strl=24 str2=720）解析

22、：程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=I；b(i)=I，且数 组 a 的上下界分别为 1 和4，数组 b 的上下界分别为 2 和 6；接着将数组 a 作为参数调用 YAG 过程，在 YAG 过程中，定义了两个变量 t 及 I，I 作为循环语句 For 的变量，它的初始 值和终值分别为数组的上下界，循环体为 t=t * a(i)，即将 a(i)的值乘以 t，然后再赋 给 t，当循环结束后，程序返回的就是数组 a 中的各元素的积；同理程序将数组 b 作为参 数传递给 YAG 过程后返回数组 b 中各元素的积，运行程序结束后，输出结果为：strX=24 str2=720。39.

23、如图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框（即“查 找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显 示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。 （分数：2.00）填空项 1:_ （正确答案：Text1 , List1.List(k)）解析：本题是把 Text1 中的内容与 List1 中的项目逐个比较，而比较的时候，是先求出 Text1 中内容的长度，即 n = Len(Text1)，再从 List1

24、的项目中取出相同长度的内容与 Text1 的值进 行比较，如果找到，则把项目显示到 Text2 中，即 Text2 = List1.List(k)。40.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click1 n = 5 f = 1 s = 0 For i = 1 To n f = f 2 s = s + f Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：2.00）填空项 1:_ （正确答案：/i）解析：41.新建一个工程，内有两个窗体，

25、窗体 Form1 上有一个命令按钮 Command1，单击该按钮， Form1 窗体消失，显示 Form2 窗体，程序如下： Private Sub Command1_Click1 2 Form2 3 End Sub 试补充完整。 （分数：2.00）填空项 1:_ （正确答案：MeHide 或者 Form1Hide 或者 Unload）填空项 1:_ （正确答案：Me）解析：解答此题首先要了解以下方法： Show 方法：将窗体加载到内存并显示。 Hide 方法：将窗体加载到内存并隐藏。 Load 语句：加载窗体到内存。 Unload 语句：从内存卸载窗体，Unload Me 卸载本窗体。所以本

26、题中，可以用 Hide 方法，也可以用 Unload 语句使 Form1 窗体消失；用 Show 方法显示窗体。 42.在窗体上画 1 个名称为 Command1 和命令按钮和 2 个名称分别为 Text1、Text2 的文本框， 如图所示，然后编写如下程序： （分数：2.00）填空项 1:_ （正确答案：-5 , 5）解析：Fun 函数的目的是修改参数 x 的值为 x+y，如果 x43.下列程序计算 Sn 的值。Sn=a+aa+aaa+aaaa，其中最后一项为 n 个。 例如：a=5，n=4 时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private

27、Sub Command1_Click1 Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入 a 的值：“) 2 Do Tn=Tn * 10 + a Sn 二 Sn + Tn Cout=Cout+1 3 DebugPrint a，n，Sn End Sub （分数：2.00）填空项 1:_ （正确答案：答案：n = InputBox(“请输入 n 的值！”)）解析： a 和 n 的值必须已知，表达式才能计算。但程序中没有给变量 n 赋值的语句

28、，可见第一个空白行应该填写给 n 赋值的语句。 Do 循环应该有与之对应的终端语句，可见于第二个空白行应填写 Do 循环的终端语句，即 While 语句，同时要构造出控制循环的。程序中有四个赋值语句，其中有 一个计数语句 Cout=Cout + 1，可见控制循环次数的变量应是 Cout。 44.下列程序的功能是：将数据 1，2，8 写入顺序文件 Numtxt 中，请补充完整。 Private Sub Form_Click1 Dim i As Integer Open“Numtxt“For Output As #1 For i=1 To 8 2 Next i Close #1 End Sub （

29、分数：2.00）填空项 1:_ （正确答案：Print #1，i）解析：向文件中写入数据用 Print 语句。45.下列软件系统结构图的宽度为 1 （分数：2.00）填空项 1:_ （正确答案：3）解析：在程序结构图的有关术语中,宽度的概念是：整体控制跨度,即各层中所含的模块数的最大值,由图可得此软件系统结构图的宽度为 3。46.下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer，j As Integer，Strl$ Strl=“ “ For i=1 To 9 Forj=1 To 9 If 1 Then Strl=Strl + Str$(j)+“X“+Str$(i)

30、+“=“+Str$(Val(i * j) Else Strl=Strl & Chr(13) 2 End If Next j Next i Print Str （分数：2.00）填空项 1:_ （正确答案：j=i）解析：Exit 语句总是出现在 If 语句或 Select Case 语句内部，而 If 语句或 Select Case 语句在循环内嵌套，用 Exit 语句中断循环。函数首先定义了两个 Integer 型变量 i、 j,并将空格赋给 Strl；第一个For 循环的变量 I 从 1 到 9 步长为 1，第二个循环的变量 i 也是从 1 到 9 步长为 l，循环体为选择结构，它是用来输出

31、 i*j 的值，所以 j 的值应该小于此时 i 的值，那么 If 的判断语句为 j=i，当满足条件时执行 Then 后面的语句，即输出 i*j 的值，如果不满足执行 Else 后面的语句，并跳出内循环。47.执行下面的程序段，x 的值为 1。 Private Sub Command1_Click2 For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub （分数：2.00）填空项 1:_ （正确答案：10）解析：MsgBox 函数的格式如下： MsgBox(msg，type)，title)，helpfile，content msg：一个字符串，

32、长度不能超过 1024 个字符。 type：一个整数值或符号常量，用来控制在对话框内显示的按钮，图标的种类及数量。 title：一个字符串，用来显示对话框的标题。 hdpfile，content：同 InputBox 函数。 在这 5 个参数中，只有第一个是必须的，其他的可以省略。 在程序中 ForNext 语句之后并没有对 I 的值改变，此时 I 为 10，故运行后结果为 10。 48.要使标签的背景样式为不透明，应将 BackStyle 属性设置为 1。（分数：2.00）填空项 1:_ （正确答案：1）解析：BackStyle 属性用来指定标签的背景样式是否透明，该属性可以取两个值：0 和

33、 1。当为 0 时，标签为“透明”的；当值为 1 时，标签将覆盖背景。49.在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画 7 个标签，其中 5 个标签组成名称为 Label1 的控件数组；名称为 Label2 的标签用于显示计算结果，其 Caption 属性的初始值为空；标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数绍各元素的值累加，然后将计算结果显示在Label2 中。请填空。 （分数：2.00）填空项 1:_ （正确答案：Label1(i).Caption）解析：50.下面程序的功能是统计字符串中“广的个数，请填空。 Sub COU( ) a$=“Beijing University of Technology“ Dim n AS Integer n=Len(a$) For i=1 To n b$= 1 If 2 Then x=x+1 Next i Print “x=“；x End Sub （分数：2.00）填空项 1:_ （正确答案：Mid$(a$，i，1)）解析：本题的思路是用截取字符函数 Mid 来逐个查找字符中 a$中是否有“i“41 字符，x 记录“i”的总个数。如果满足条件语句 b$=“i“就执行 x=x+1，然后输出。