2012年9月计算机等级考试二级VB程序设计考前全真模拟试卷（十）

 10．阅读程序：

 Sub p( b () As Integer)

For i =1To 4

 b(i) = 2(i

Next i

 End Sub

 Private Sub Command1_Click()

Dim a (1 To 4) As Integer

     a(1)=5

     a(2)=6

     a(3)=7

       a(4)=8

 call p (a)

 For i=1 To 4

       Print a(i)

 Next i

End Sub

运行上面的程序，单击命令按钮，输出结果为。

9．设在工程中有一个标准模块，其中定义了如下记录类型：

Type Books

 Name As String ( 10

 Te1Num As String * 20

End Type

在窗体上添加一个名为Command1的命名按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容，将程序补充完整。

Private Sub Command1_Click()

  Dim B As____

  Open "c：\person.txt"For Output As #1

  B.Name=InputBox("输入姓名")

  B.Te1Num=InputBox("输入学号")

  Write#1,B.Name,B.Te1Num

  Close #1

End Sub

7．在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后将计算结果显示在Label2中。请填空。

Private Sub Command1_Click()

Sum = 0

For i = 0 To 4

   Sum = Sum + ____

Next

____ = Sum

End Sub

8．为了改变计时器控件的时间间隔，应该修改该控件的属性。

5．本程序的功能是利用随机函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

  

Private Sub Command1_Click()

  Randomize

  n = CInt(Text1.Text)

  n1 = 0

  n2 = 0

  For i = 1To

     r = Int(Rnd*2)

     If r = ____Then

        n1 = n1+1

     Else

        n2 = n2+1

     End If

  Next

  Text2.text = n2

  Text2.text = n2

 End Sub

6．阅读程序：

 Option Base 1

 Private Sub Form_Click()

Dim a(3) As Integer

Print "输入的数据是：";

For i =1 To 3

   a(i) = InputBox("输入数据")

   Print a(i);

Next

Print

If a(1)    t = a(1)

    a(1) = a(2)

    a(2) = ____

End If

If a(2)>a(3) Then

     m = a(2)

ElseIf a(1)>a(3) Then

     m = ____

Else

     m = ____

End If

Print "中间数是：";m

End Sub

 程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数种的中间数，如图所示。请填空。

4．为了使设计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的属性设置为____。

3．按数据流的类型，结构化设计方法有两种设计策略，它们是变换分析设计和。

2．以下程序段的输出结果是。

 num=0

 while num<=2

  num = num+1

 wend

 Print

31．设在工程中有一个标准模块，其中定义了如下记录类型：

Type Books

 Name As String *10

 Te1Num As String *20

End Type

 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是。

• A．Private Sub Command1_Click()
• Dim B As Books    Open"c":\Person.txt"For Output As #1
• B.Name=InputBox（"输入姓名"）
• B.Te1Num=InputBox（"输入电话号码"）    Write #1,B.Name,B.Te1Num
• Close #1
• End Sub
• B．Private Sub Command1_Click()
• Dim B As Books    Open"c":\Person.txt"For Input As #1
• B.Name=InputBox（"输入姓名"）
• B.Te1Num=InputBox（"输入电话号码"）    Prite #1,B.Name,B.Te1Num

1．数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是。

30．以下叙述中错误的是。

• A．一个工程中只能有一个Sub Main过程
• B．窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
• C．窗体的Hide方法和UnLoad方法的作用完全相同
• D．若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

29．设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load()

 Show

 Text1.Text=""

 Text1.SetFocus

End Sub

Private Sub Form_MouseUp(Button As Integer，_

Shift As Integer,X As Single,Y As Single）

  Print"程序设计"

End Sub

Prinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)

  Print "Visual Basic";

End Sub

 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是。

• A．Visual Basic
• B．程序设计
• C．Visual Basic 程序设计
• D．a程序设计 

26．以下叙述中错误的是 。

• A．在KeyUp和KeyDowm事件过程中，从键盘上输入A或a被视作相同的字母（即具有相同的KeyCode）
• B．在KeyUp和KeyDowm事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字（具有不同的KeyCode）
• C．KeyPress事件中不能识别键盘上某个键的按下与释放
• D．KeyPress事件中可以识别键盘上某个键的按下与释放

28．在窗体上画一个名称为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

  Next i

End Sub

  该事件过程的功能是。

• A．输出n以内的奇数
• B．输出n以内的偶数
• C．输出n以内的素数
• D．输出n以内能被j整除的数

27．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

 Private Sub Command1_Click()

 ’ c=1234

   c1=Trim(Str(c))

For i=1 To 4

 Print__

Next

 End Sub

      程序运行后，单击命令按钮，要求在窗体上显示如下内容：

1

12

123

1234

 则在下划线处应填入的内容为。

• A．Right(c1,i)
• B．Left(c1,i)
• C．Mid(c1,i,1)
• D．Mid(c1,i,i)

24．在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

 Dim a1(4,4),a2(4,4)

 For i=1 To 4

 For j=1 To 4

• al(i,j)=i+j
• a2(i,j)=a1(i,j)+i+j    Next j    Next i    Print al(3,3);a2(3,3)
• End Sub    程序运行后，单击命令按钮，在窗体上输出的是（ ）。
• A．6 6           B．10 5        C．7 21          D．6 12

25．假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是 。

• A．数组中每个命令按钮的名称（Name属性）均为Command1
• B．数组中每个命令按钮的标题（Caption属性）都一样
• C．数组中所有命令按钮可以使用同一个事件过程
• D．用名称Command1（下标）可以访问数组中的每个命令按钮

23．在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。

• A．Private Sub Command1_Click()    x=InputBox("请输入整数")
• a=F1（Val（x））    Print a
• End Sub
• Function F1(ByRef b As Integer)
• If b Mod 2=0 Then    Return 0
• Else    Return 1
• End If
• End Function
• B．Private Sub Command1_Click()    x=InputBox("请输入整数")
• a=F1（Val（x））    Print a

22．在窗体上绘制一个名称为Command1的命令按钮，然后编写如下事件过程：

 Private Sub Command1_Click()

c="ABCD"

For n=1 To 4

 Print__

Next

 End Sub

      程序运行后，单击命令按钮，要求在窗体上显示如下内容：

D

CD

BCD

ABCD

    则在横线处应填入的内容为

• A．Left(c.n)      B．Right(c,n)          C．Mid(c,n,1)        D．Mid(c,n,n)

21．在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

 Dim i As Integer,x As Integer

 For i=1 To6

 If i=1 Then x=i

 If i<= 4 Then

x=x+1

 Else

x=x+2

 End If

 Next i

 Print x

End Sub

  程序运行后，单击命令按钮，其输出结果为 。

• A．9          B．6          C．12           D．15

20．在窗体上绘制一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中的项目的名称。下列能正确实现上述操作的程序是 。

• A．Private Sub List1_Click()    Labell.Caption=List.ListIndex
• End Sub
• B．Private Sub List1_Click()    Labell.Name=List1.ListIndex
• End Sub
• C．Private Sub List1_Click()    Labell.Name=List1.Text
• End Sub
• D．Private Sub List1_Click()    Labell.Caption=List.Text
• End Sub

19．执行如下两条语句后，窗体上显示的是 。

• a=9.8596    print Format(a,"$00,00.00")
• A．0,009.86      B．$9.86       C．9.86      D．$0,009.86

18．执行语句Open"Tel.dat"For Random As#1 Len=50后，对文件Tel.dat中的数据能够执行的操作是 。

• A．只能写，不能读
• B．只能读，不能写
• C．既可以读，也可以写
• D．不能读，不能写

16．下列程序段的执行结果为

Dim M(10)

For k=1 To 10

 M (k)=11-k

Next k

x=6

Print M (2+M(x))

• A．2      B．3          C．4           D．5

17．在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：

Private sub Command1_Click()

 Text1.text="AB"

End Sub

Private Sub Command2_Click()

 Text1.Text="CD"

End Sub

 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示 。

• A．AB      B．CD      C．ABCD      D．CDAB

14．执行下面的程序段，x的值为 。

private Sub Command1_Click()

For i=1 To 5

• a=a+i    Next i    X=Val(i)    msgBox x
• End Sub
• A．5          B．6         C．7         D．8

15．设a=5，b=10，则执行

c=Int((b-a)*Rnd+a)+1后，c值的范围为

• A．5~10       B．6~9      C．6~10        D．5~9

11．在窗体（名称为Form1）上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是。

• A．Private Sub Tex1_Change()
• Command1.Caption="计算机等级考试"
• End Sub
• B．Private Sub Command1_Click()
• Caption="计算机等级考试"
• C．Private Sub Command1_Click()    Text.Caption="计算机等级考试"
• End Sub
• D．Private Sub Command1_Click()    Text1.Text="计算机等级考试"
• End Sub

12．以下关于变量作用域的叙述中，正确的是。

• A．窗体中凡被声明为Private的变量只能在某个指定的过程中使用
• B．全局变量必须在标准模块中声明
• C．模块级变量只能用Private关键字声明
• D．Static类型变量的作用域是它所在的窗体或模块文件

13．如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是。

• A．如果工程中含有Sub Main过程，则程序一定首先执行该过程
• B．不能把标准模块设置为启动模块
• C．用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
• D．任何时刻最多只有一个窗体是活动窗体

10．以下叙述中错误的是。

• A．一个工程可以包括多种类型的文件
• B．Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
• C．程序运行后，在内存中只能驻留一个窗体
• D．对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

9．表示滚动条控件取值范围最大值的属性是。

• A．Max
• B．LargeChange
• C．Value
• D．Max-Min

8．在数据库管理系统提供的数据语言中，负责数据的查询及增、删、改等操作的是 。

• A．数据定义语言
• B．数据转换语言
• C．数据操纵语言
• D．数据控制语言

7．在软件开发中，下面任务不属于设计阶段的是 。

• A．数据结构设计
• B．给出系统模块结构
• C．定义模块算法
• D．定义需求并建立系统模型

4．在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为

• A．For i=0 To List1.ListCount?1    ．．．    Next
• B．For i=0 To List1.Count?1    ．．．    Next
• C．For i=1 To List1.ListCount    ．．．    Next
• D．For i=1 To List1.Count    ．．．    Next

5．下列对于线性链表的描述中正确的是

• A．存储空间不一定是连续，且各元素的存储顺序是任意的
• B．存储空间不一定是连续，且前件与元素一定存储在后件元素的前面
• C．存储空间必须连续，且前件元素一定存储在后件元素的前面
• D．存储空间不想连续，且各元素的存储顺序是任意的

6．下列对于软件测试的描述中正确的是。

• A．软件测试的目的是证明程序是否正确
• B．软件测试的目的是使程序运行结果正确
• C．软件测试的目的是尽可能多地发现程序中的错误
• D．软件测试的目的是使程序符合结构化原则

下列关于栈的描述中错误的是。

• A.栈是先进后出的线性表
• B.栈只能顺序存储
• C.栈具有记忆作用
• D.对栈的插入与删除操作中，不需要改变栈底指针

3．在一棵二叉树上第5层的结点数最多是 。

• A．8       B．16           C．32      D．15

1．下面叙述正确的是 。

• A．算法的执行效率与数据的存储结构无关
• B．算法的空间复杂度是指算法程序中指令（或语句）的条数
• C．算法的有穷性是指算法必须能在执行有限个步骤之后终止
• D．以上三种描述都不对