1、计算机二级(VB)41 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n/10 m=m/10 End Sub （分数：2.00）A.0 8B.5
2、0 78C.4 50D.78 502.数据库系统的核心是_。 （分数：2.00）A.数据模型B.数据库管理系统C.数据库D.数据库管理员3.Sub 过程与 Function 过程最根本的区别是（ ）。（分数：2.00）A.12 12B.12 21C.21 12D.21 214.下列程和序段的执行结果为（ ）。 x=Int(Rnd()+9) Select Case X Case 10 Print “excellent“ Case 9 Print “good“ Case 8 Print “pass“ Case Else Print “fail“ End Select （分数：2.00）A.派生类一
3、般都用公有派生B.对基类成员的访问必须是无两义性的C.赋值兼容规则也适用于多重继承的组合D.基类的公有成员在派生类中仍然是公有的5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：2.00）A.-5B.25C.1D.-16.为了使模块尽可能独立，要求_。 （分数：2.00）A.模块的内聚程度要尽量高，且各模
4、块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强7.关于货币型数据的说明，正确的是（ ）。（分数：2.00）A.货币型数据有时可以表示成整型数据B.货币型数据与浮点型数据完全一样C.货币型数据是由数字和小数点组成的字符串D.货币型数据是小数点位置固定的实型数8.在窗体上画一个命令按钮，然后编写如下事件过程： Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer Fo
5、r 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 程序运行后，单击命令按钮输出结果为( )。 （分数：2.00）A.65+13B.“电脑商情“C.中国D.x=y9.下列描述中正确的是_。 （分数：2.00）A.程序就是软件B.软
6、件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体D.软件是程序、数据与相关文档的集合10.下面语句正确的是（ ）。（分数：2.00）A.If xy Then y=x3B.If xy Then y=3xC.If xy Then y=x3D.If xy Then y=x * * 311.以下叙述中错误的是【 】（分数：2.00）A.打开一个工程文件时,系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时,应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行D.窗体文件包含该窗体及其控件的属性12. 以下语句的输出结果是( )。 a
7、 = Sqr(26) Print Formats (a，“#“) （分数：2.00）A.5.099B.5.099C.5099D.000509913.设有声明语句 Dim b(-1 To 10，2 To 9，20)As Integer 则数组 b 中全部元素的个数是（ ）。 （分数：2.00）A.“设计”视图B.“打印预览”视图C.“报表预览”视图D.“版面预览”视图14.如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性？（分数：2.00）A.ValueB.VisibleC.DefaultD.Enabled15.下列程序执行的结果为（ ）。 x=25：y=20：z=7 Pri
8、nt “S“；x+z*y；“)“ （分数：2.00）A.!a=bB.a!=bC.a=：bD.a=b16.下列关于栈的描述中错误的是_。 （分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针17.有如下程序： 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)：Print op End Sub Private Function，PPC(a A
9、s 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 程序运行后，输出的结果为( )。 （分数：2.00）A.4 6B.6 6C.8 8D.10 1218.下列说法正确的是（ ）。（分数：2.00）A.对象的可见性可设为 True 或 FalseB.标题的属性值不可设为任何文本C.属性窗口中属性只能按字母顺序排列D.某些属性的值可以跳过不设置，自动设为空值19.使“计算机技术”在当前窗体上输出的语句是（ ）。（分数：2.00）A.MenuOneVis
10、ible=TreeB.MenuOneVisible=FalseC.MenuOneEnabled=TrueD.MenuOneEnabled=False20.为了使命令按钮（名称为 Command1）右移 200，应使用的语句是_。 （分数：2.00）A.Command1.Move -200B.Command1.Move 200C.Command1.Left = Command1.Left + 200D.Command1.Left = Command1.Left - 20021. 以下程序运行后，单击按钮输出结果是( )。 Private Sub Commandl_Click( ) Dim x A
11、s Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub （分数：2.00）A.6 6 12 7 11 11B.8 5 10 5 11 11C.9 6 12 9 10 15D.8 10 10 5 9 1022.下列程序的执行结果为( )。 a
12、=10 b=20 If a b Then a=a + b Else b=b-a Print a，b （分数：2.00）A.，* ，- * ，：，?：B.+，-，new，delete，=C.sizeof，new，delete，+，-D.sizeof，new，delete，+，-23.以下叙述中正确的是【 】（分数：2.00）A.窗体的 Name 属性指定窗体的名称,用来标识一个窗体B.窗体的 Name 属性值是显示在窗体标题栏中的文本C.可以在运行期间改变窗体的 Name 属性的值D.窗体的 Name 属性值可以为空24.在窗体上有 1 个名称为 Text1 的文本框和 1 个名称为 Comma
13、nd1 的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。下面能够正确实现上述功能的程序是【 】（分数：2.00）A.Private Sub Command1_Click() Text1.Left=100 End SubB.Private Sub Command1.Click() Text1.Left=Text1l.Left-100 End SubC.Private Sub Cornmand1_Click() Text1.Move Text1.Left+100 End SubD.Private Sub Command1_Click() Text1.Move Text1.
14、Left End Sub25.在窗体上添加标签控件 Label1 之后，标签控件的默认的名称 Name 是（ ）。（分数：2.00）A.LabelB.Label1C.TextD.Text126.在窗体上画一个名称为 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 j If j Sqr(i) Then Print i Nex
15、t i End Sub 该事件过程的功能是（ ）。 （分数：2.00）A.输出 n 以内的奇数B.输出 n 以内的偶数C.输出 n 以内的素数D.输出 n 以内能被 j 整除的数27.有关菜单的说法不恰当的是（ ）。（分数：2.00）A.在 C+语言中调用函数时，只能把实参的值传给形参，形参的值不能传送给实参B.C+语言函数既可以嵌套定义又可以递归调用C.函数必须无返回值，否则不能使用函数D.函数必须有返回值，返回值类型不定28.下列语句的输出结果为( )。 Print Format (1000936，“000，000000”) （分数：2.00）A.10，00936B.10，009360C.
16、10，0093D.010，00936029.下列各选项说法错误的一项是（ ）。（分数：2.00）A.窗体模块和报表模块都属于类模块，它们从属于各自的窗体或报表B.窗口模块和报表模块具有局部特性，其作用范围局限在所属窗体或报表内部C.窗体模块和报表模块中的过程可以调用标准模块中已经定义好的过程D.窗口模块和报表模块生命周期是伴随着应用程序的打开而开始、关闭结束30.下面说法不正确的是（ ）。（分数：2.00）A.Float.MIN_VALUEB.1.8e-6FC.2.0D.abcd31.下列叙述中正确的是【 】（分数：2.00）A.软件测试的主要目的是发现程序中的错误B.软件测试的主要目的是确定
17、程序中错误的位置C.为了提高软件测试的效率,最好由程序编制者自己来完成软件测试的工作D.软件测试是证明软件没有错误32.下列各控件不包含滚动条的控件是（ ）。（分数：2.00）A.ListBoxB.ComboBoxC.TextBoxD.LabelBox33.以下定义数组或给数组元素赋值的语句中，正确的是（ ）。 （分数：2.00）A.Dim a As Variant a=Array(1,2,3,4,5)B.Dim a(10) As Integera =Array(1,2,3,4,5)C.Dim a%(10) a(1)=“ABCDE“D.Dim a(3),b(3) As Integer a(0)
18、=0 a(1)=1 a(2)=2 b=a34.如果在程序中要将 c 定义为静态变量，且为整型数，则应使用的语句是（ ）。（分数：2.00）A.Redim a As IntegerB.Static a As IntegerC.Public a As IntegerD.Dim a As Integer35.执行以下程序段 Dim i As Integer, x As nteger x = 0 For i = 20 To 1 Step -2 Next x = x + i / 5 Print x 后，x 的值为_。 （分数：2.00）A.16B.17C.18D.19二、填空题（每空 2 分，共 30
19、分）(总题数：15，分数：30.00)36.有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以 4 余 1，除以 5 余 2 则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click( ) x=Val(Text1Text) If 1 Then Print x Else Text1Text=“ 2 End If End Sub （分数：2.00）填空项 1:_37.如果存在如下过程： Private Function FMax(a1As Integer) Dim First As Integer，Last As Integer，i
20、 As Integer First=LBound(A) Last=UBound(A) Max=a(First) For i=First To Last If a(i) Max Then Max=a(i) Next i FMax=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click2 ReDim m(1 To 4) As Integer m(1)=20：m(2)=30：m(3)=50：m(4)=100 c=FMax(m) Print c End Sub 单击命令按钮，其输出结果为 3。 （分数：2.00）填空项
21、1:_38.用户可以用 1 语句定义自己的数据类型。（分数：2.00）填空项 1:_39.下面程序是用来打印九九乘法表的，请补充完整。 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)+“=“+Str$(Val(i * j) Else Strl=Strl s End Sub （分数：2.00）填空项 1:_ （正确答案：a(i)=Int(Rnd）填空项 1:_ （正确答案：*）填空项 1:_ （正确答案：200+100)）解析：求随机数要用到随机函数 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。
