1、计算机二级(VB)25 及答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：25，分数：1750.00)1.下列说法不正确的是（ ）。（分数：70.00）A.对象的可见性可设为 True或 FalseB.标题的属性值可设为任何文本C.属性窗口中属性可以按字母顺序排列D.某些属性的值可以跳过不设置，系统之不理自动设为空值2.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：70.00）A.在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放 控件B.若一个控件上有 4个黑色的小方块，表明该控件是活动的C.窗体中
2、活动控件只能有一个D.非活动控件在窗体是隐藏的3.为了通过键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某个字母前插入何字符，建立热键字母? （分数：70.00）A. s End Sub （分数：3.00）_39.下面的程序用于根据文本框 Test中输入的内容进行以下处理： 若 Text为 1，则打印“您的成绩为优秀！”；若 Text为 2，则打印“您的成绩为良好!”；若 Text 为 3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case -|_|-
3、 Print “您的成绩为优秀！“ Case -|_|- Print “您的成绩为良好！“ Case -|_|- Print “您的成绩为一般！“ Case Else Print “您的成绩为一般以下！“ End Select End Sub （分数：3.00）_40. 阅读程序： Option Base1 Private Sub Form_Click( ) Dim a(3)As Integer Print“输入的数据是：”； For i1 To 3 a(i)=InputBox(“输人数据”) Print a(i)； Next Print If a(1)a(3) Then m=a(2) Els
4、e If a(1)a(3)Then m= -|_|- Else m= -|_|- End If Print“中间数是：”；m End Sub 程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。 （分数：3.00）_41.在 E盘当前目录文件夹下建立一个名为“Studenttxt的顺序文件，要求用 InputBox函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private Sub Form _ Click( ) -|_|- For i=1 To 5 StuName=InputBox(“请输入姓名“
5、) StuGrade=InputBox(“请输入年级号“) StuAge=InputBox(“请输入年龄“) -|_|- Next i -|_|- End Sub （分数：3.00）_42.在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n = 5 f = 1 s = 0 For i = 1 To n f = f -|_|- s = s + f Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：3.00）_43.在菜单编辑器中建立一个
6、菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form -|_|-(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then -|_|-mnuEdit End If End Sub （分数：3.00）_44.下面程序的功能是产生 10个小于 100(不含 100)的随机正整数，并统计其中 5的倍数所占比例，但程序不完整，请补充完整。
7、 Sub PR( ) Randomize Dim a For j=1 To 10 a(i)=Int( -|_|- ) If -|_|-Then k=k+1 Print a(j) Next j Print Print k/10 End Sub （分数：3.00）_45.下面运行程序后，单击命令按钮，输出的结果是 -|_|-。 Private Sub Command1_Click( ) Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i) =i Next i For i=3 To 6 b(i) =i Next i s1=YAS(A) s2=Y
8、AS(B) Print“s1=“；s1；“s2=“；s2 End Sub Function YAS(a( )As Integer) Dim t#，i% t=1 For i=LBound(A) To UBound(A) t=t * a(i) Next i YAS=t End Function （分数：3.00）_46.当数据的物理结构(存储结构、存取方式等)改变时，不影响数据库的逻辑结构，从而不至于引起应用程序的变化，这是指数据的 1。 （分数：-1.00）填空项 1:_47.一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体 “项目”的联系属于 1 的联系。 （分数
9、：-1.00）填空项 1:_48.用的黑箱测试有等价分类法、 1、因果图法和错误推测法 4种。（分数：-1.00）填空项 1:_49.一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件 的 1。 （分数：-1.00）填空项 1:_50.软件工程的出现是由于 1。（分数：-1.00）填空项 1:_计算机二级(VB)25 答案解析(总分：1765.00，做题时间：90 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：25，分数：1750.00)1.下列说法不正确的是（ ）。（分数：70.00）A.对象的可见性可设为 True或 FalseB.标题的属性值可设为任
10、何文本C.属性窗口中属性可以按字母顺序排列D.某些属性的值可以跳过不设置，系统之不理自动设为空值 解析：在 vieual Basic中，对象具有 Visible属性，它有两个值 True和 False，决定时象是否可见如果设置为 True，则可见如果设置为 False，则是不可见的，所以选项 A)是正确的；标准即 Caption属性，可设为任何文相包括空字符串，所以选项 B)是正确的；属性的值可以不设置，但是系统会设为默认值而不是空值，所以选项 D)不正确；属性窗口除按字母排列外，还可以有其他类型的排列方式所以选项 C)是正确的。2.表达式(7/2+1)*(8/2+2)的值为（ ）。（分数：7
11、0.00）A.在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放 控件B.若一个控件上有 4个黑色的小方块，表明该控件是活动的C.窗体中活动控件只能有一个 D.非活动控件在窗体是隐藏的解析：属性是一个对象的特性，不同的对象有不同属性，故选项 C)是不正确 的；引用属性的一般格式为：对象名属性名称，故选项 A)不正确；对象的属性值可以在 属性窗口中设置，也可以在程序语句中设置，故迭项 D)是不正确的；对象是有特殊属性 和行为方法的实体，不同的对象有不同的属性，选项 B)是正确的。3.为了通过键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某个字母前插入何字符，建立热键字母?
12、 （分数：70.00）A.1 表示控件中只有水平 滚动条；2，表示控件中只有垂直滚动条;3，同时具有水平和垂直潦动条。 5.要想在过程调用中返回两个结果，下面的过程定义语句合法的是（ ）。（分数：70.00）A.20B.21 C.56D.32解析：在 C+语言中，调用函数不可能改变实参指针变量的值，但可以改变实参指针变量所指变量的值，了解了实参指针变量的改变情况，本题只剩下简单的”加减法”了。6.语句 A=B+C代表的意思是（ ）。（分数：70.00）A.B. C.D.解析：参数查询跟操作查询并列，而操作查询有 4种：生成表查询、删除查询、更新查询和追加查询。7.以下关于文件的叙述中，错误的是
13、（ ）。 （分数：70.00）_解析：8.有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为( )。 （分数：70.00）A.const，break，defaultB.long，void，usingC.virtual，extern，include D.try，throw，this解析：选项 A)用来查询数据，属于 SQL的查询功能。
14、选项 B)用来创建表，选项 C)用来修改表结构，选项D)用来删除表文件，都属于 SQL的 定义功能。9.表达式 32 Mod l4/23的值是（ ）。（分数：70.00）A.1B.0 C.2D.3解析：在做本题之前要先了解各种运算符的优先级，只有了解了之后才能作对。幂运算符()优先级最高，其次是取负、乘、浮点除、整除、取模、加减、字符串连接等。其中，乘和浮点除是同级别的运算符，加和减是同级运算符。此外，如果表达式中有括号，则计算括号内的表达式的值。通过运算本题的结果是0。10.用来设置文本框有无滚动条的属性是（ ）。（分数：70.00）A.在 File1中的 Change事件中，输入 File
15、1Path=Dir1PathB.在 Dirl中的 Change事件中，输入 File1Path=Dir1Path C.在 File1中的 Change事件中，输入 Dir1Path=File1PathD.在 Dir1中的 Change事件中，输入 Dir1Path=File1Path解析：菜单控件的主要属性有：Caption、Name、Index、Enabled、Visible 等，其中 Enabled和 Visible属性值为逻辑值，Visible 属性用于表示菜单项是否可见，Enabled 属性用于表示菜单项是否可用。当Enabled属性值为 False时，表示菜单项当前不可 用，属性值为
16、 True时，表示菜单项可用。11.变量 L的值为-8，则-L2 的值为（ ）。（分数：70.00）A._Nol B.No1C.12345D.int解析：实型常量如果数字后没有任何字母，Java 默认的是 double型。float 型数据必须在数字后加 f或F；FloatMIN_VALUE 属于常值变量，代表 float型数据中的最小值。12.有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：
17、Print op End Sub Private Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为( )。 （分数：70.00）A.25B.36C.258 D.369解析：本题考查的是含有虚基类的继承中构造函数的调用顺序，应该先 调用基类的构造函数，接着是按照派生类继承列表的顺序依次调用虚基类的构造函数， 最后调用派生类自己的构造函数。13.在窗体上画一个命令按钮，然后编写如下事件过程：
18、Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer For i=LBound(oldCopy( )To UBound(oldCopy( ) newCopy(i)=oldCopy(i) Next i End Sub Private Sub Command1 _ Click( ) Dimm(10) As Integer，n(10)As Integer For i=1 To 10 m(i) =i*i Next i Call BTC(m，n) Print n(5) End Sub 程序运行后，单击命令按钮输出结
19、果为( )。 （分数：70.00）A.65+13B.“电脑商情“C.中国 D.x=y解析：C+语言标识符只能由数字，字母和下划线组成，并且只能以字母和下划线为开头。14.如果要将文本框作为密码框使用时，应设置的属性为（ ）。（分数：70.00）A.NameB.CaptionC.PasswordChar D.Text解析：文本框没有 Caption属性，所以选项 B)肯定不对；Text 属性返回或设置控件中包含的文本，所以选项 D)也不对；Nmne 属性是标识对象的名称，故选项 A)也不正确，只有选项 C)是设置文本框内容格式的，即用什么字符显示，符合本题的意思。15.如果将文本框的 MaxLe
20、ngth属性设置为 0，则文本框中的字符不能超过（ ）。（分数：70.00）A.SELECT FROM 教师表 IF(性别=男)B.SELECT性别 FROM教师表 IF(性别=男)C.SELECT * FROM教师表 WHERE(性别=男) D.SELECT * FROM性别 WHERE(性别=男)解析：该段语法为 SELECT*|FROMWHERE。16.阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr，Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If ar
21、r(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为（ ）。 （分数：70.00）_解析：17.下列说法错误的是（ ）。（分数：70.00）A.System B.ObjectC.ClassD.Thread解析：一般情况下，Applet 中的 paint( )方法有一个参数 g是 Graphics类的实例。而且 update( )方法也会用到 Graphics类的实例。Graphics 类中提供的绘图方法有两种：一是绘制图形；二是绘制文本。18.假定在窗体（名称为 Form1）的代
22、码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open “c:/vbTest.dat“ For Random As #1 Len = Len(rec) rec.animalName = “Cat“ rec.aColor = “White“ Put #1, , rec Close #1 End Sub 则以
23、下叙述中正确的是（ ）。 （分数：70.00）_解析：19.在菜单编辑器中建立 1 个名称为 Menu0 菜单项，将其“可见”属性设置为 False，并 3 建立其若干子菜单，然后编写如下过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu Menu0 End If End Sub 则以下叙述错误的是_。（分数：70.00）A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单 C.Menu0在菜单编辑
24、器中定义的弹出菜单的名称D.参数 X、Y 指明鼠标当前位置的坐标解析：MouseDown 参数中 Button=1 时，说明是鼠标的左键被单击（右手习惯），故该代段代码作用是在鼠 标左键被单击时，在 x,y 处弹出名称为 Menu0 的菜单。20.Visual Basic程序设计采用的编程机制是（ ）。（分数：70.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不可缺少的 解析：Visual Basic 中的一个工程可以包括一个或多个窗体，最多不超过 255个 窗体，因此选项 D)是正确的，而选项 C)的说法是不
25、正确的；资源文件的扩展名是res，所 以选项 A)是正确的；一个窗体对应于一个窗体文件，所以选项 B)也是正确的。 21.在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如 下事件过程：Private Sub Commandl_Click() CommonDialogl，Flags=vbOFNHideReadOnly CommontDialoglFilter=“All Files(*)|*|Text Files (*.*)|*txt|“_ s End Sub （分数：3.00）_正确答案：(a(i)=Int(Rnd-|-*-|-200+100)解析：求
26、随机数要用到随机函数 Rnd，所以在程序中调用了 Rnd函数，100300 之间的随机函数表示为：a(i)=Int(Rnd * 200+100)；求某个数的倍数要用到取模运算符 Mod，本题中求 7的倍数，所以表示为：a(i) Mod 7=0；对于条件语句，有 If开头的必须有 End If结尾，Select Case 开头的，必须要用 End Select结尾，所以本题中应添加 End If。39.下面的程序用于根据文本框 Test中输入的内容进行以下处理： 若 Text为 1，则打印“您的成绩为优秀！”；若 Text为 2，则打印“您的成绩为良好!”；若 Text 为 3，则打印“您的成绩
27、为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case -|_|- Print “您的成绩为优秀！“ Case -|_|- Print “您的成绩为良好！“ Case -|_|- Print “您的成绩为一般！“ Case Else Print “您的成绩为一般以下！“ End Select End Sub （分数：3.00）_正确答案：(1)解析：函数调用了 Val(Text1Text)函数将从文本框中得到的字符串转化为数据，将转换来的数据作为情况语句的测试条件。因为当输入
28、 1时，则打印“您的成绩为优秀!”；所以当测试表达式的值与之相同时，就执行该 Case分支的语句，同样当输入 2，3 等其他数字时执行其他的 Case分支。40. 阅读程序： Option Base1 Private Sub Form_Click( ) Dim a(3)As Integer Print“输入的数据是：”； For i1 To 3 a(i)=InputBox(“输人数据”) Print a(i)； Next Print If a(1)a(3) Then m=a(2) Else If a(1)a(3)Then m= -|_|- Else m= -|_|- End If Print“
29、中间数是：”；m End Sub 程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。 （分数：3.00）_正确答案：(t)解析：41.在 E盘当前目录文件夹下建立一个名为“Studenttxt的顺序文件，要求用 InputBox函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private Sub Form _ Click( ) -|_|- For i=1 To 5 StuName=InputBox(“请输入姓名“) StuGrade=InputBox(“请输入年级号“) StuAge=InputB
30、ox(“请输入年龄“) -|_|- Next i -|_|- End Sub （分数：3.00）_正确答案：(Open“E:/Studenttxt“ For Output As #1)解析：在 Form _ Click过程中，要在文件中写入数据，首先要建立一个文件，建立文件用 Open语句，文件名必须是全称；因为要建立的文件为空文件，所以可以认为不能从它里面读出数据，只能写入数据在For“模式”中应该用“Output”，所以在第一个空处应填入的语句是“Open”E:/Studenttxt“ For Output As #1”；在 For循环语句中，首先调用 InputBox函数，给出提示信息，
31、并将接收到的信息依次赋给相应的变量，然后将它们写入文件中，因为 StuName，StuGrade，StuAge 为变量名，不能用双引号，所以在第二个空处应填入的语句是“Write #1，StuName，StuGrade，StuAge”；当对文件写完以后，就要关闭文件，关闭文件用 Close语句，关闭文件的格式为 Close#文件号，#文件号，文件号即为打开文件时的文件号，所以第三个空应填入的语句是“Close #1”。42.在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n = 5 f = 1 s = 0 Fo
32、r i = 1 To n f = f -|_|- s = s + f Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：3.00）_正确答案：(/i)解析：43.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form -|_|-(Button As Integer, Shift As Integer, X As Single, Y A
33、s Single) If Button=2 Then -|_|-mnuEdit End If End Sub （分数：3.00）_正确答案：(mousedown)解析：44.下面程序的功能是产生 10个小于 100(不含 100)的随机正整数，并统计其中 5的倍数所占比例，但程序不完整，请补充完整。 Sub PR( ) Randomize Dim a For j=1 To 10 a(i)=Int( -|_|- ) If -|_|-Then k=k+1 Print a(j) Next j Print Print k/10 End Sub （分数：3.00）_正确答案：(99*Rnd)+1)解析：
34、小于 100的随机正整数用(99 * Rnd)+1 来表示；求倍数用取模来表示，即 a (j)Mod 5=0，用 k作计数器，累计计算能被 5整除的数的个数。45.下面运行程序后，单击命令按钮，输出的结果是 -|_|-。 Private Sub Command1_Click( ) Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i) =i Next i For i=3 To 6 b(i) =i Next i s1=YAS(A) s2=YAS(B) Print“s1=“；s1；“s2=“；s2 End Sub Function YAS(a(
35、 )As Integer) Dim t#，i% t=1 For i=LBound(A) To UBound(A) t=t * a(i) Next i YAS=t End Function （分数：3.00）_正确答案：(s1=24 s2=360)解析：程序首先调用循环语句为数组 a、b 赋值，其中 a(i)=I;b(i)=I，且数组 a 的上下界分别为 1和4，数组 b的上下界分别为 3和 6；接着将数组 a作为参数调用 YAS 过程，在 YAS过程中，定义了两个变量 t及 I，I 作为循环语句 For的变量，它的初始值和终值分别为数组的上下界，循环体为 t=t*a(i)即将a(i)的值乘以
36、t，然后再赋给 t，当循环结束后，程序返回的就是数组 a中的各元素的积；同理程序将数组 b作为参数传递给 YAS 过程后返回数组 b中各元素的积，运行程序结束后，输出结果为:s1=24 s2=360。46.当数据的物理结构(存储结构、存取方式等)改变时，不影响数据库的逻辑结构，从而不至于引起应用程序的变化，这是指数据的 1。 （分数：-1.00）填空项 1:_ （正确答案：物理独立性）解析：数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。也就是说，数 据的逻辑结构、存储结构与存取方式的改变不会影响应用程序。数据独立性一般分为物理独立性与逻辑独立性两级。47
37、.一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体 “项目”的联系属于 1 的联系。 （分数：-1.00）填空项 1:_ （正确答案：一对多(或 1：N)）解析：两个实体集间的联系实际上是实体集间的函数关系，这种函数关系可以有 3种，即一对一(1：1)的联系、一对多(1：N)或多对一(N：1)的联系和多对多(N：N)的联系。48.用的黑箱测试有等价分类法、 1、因果图法和错误推测法 4种。（分数：-1.00）填空项 1:_ （正确答案：边值分析法）解析：黑箱测试方法完全不考虑程序的内部结构和内部特征，而只是根据程序功能导出测试用例。常用的黑箱测试有等价分类法、边值
38、分析法、因果图法和错误推测法 4种。 49.一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件 的 1。 （分数：-1.00）填空项 1:_ （正确答案：可重用性）解析：本题考查了继承的优点：相似的对象可以共享程序代码和数据结构，从而大大减少了程序中的冗余，提高软件的可重用性。50.软件工程的出现是由于 1。（分数：-1.00）填空项 1:_ （正确答案：软件危机的出现）解析：从 20世纪 60年代中期到 70年代中期，随着计算机应用的日益普及，软件数量急剧膨胀，在程序运行时发现的错误必须设法改正，用户有了新的需求时必须相应的修改程序以适应新的环境。种种软件维护工作耗费惊人的资源，更严重的是许多程序个体化使得程序最终无法维护，“软件危机”就这样出现了。为了更有效的开发与维护软件，新兴了一门软件工程学即软件工程。
