2008年 9月全国计算机等级考试二级笔试试卷&(公共基础知识和Visual Basic语言程序设计

下列叙述中正确的是（    ）。

在长度为 n 的有序线性表中进行二分查找，最坏情况下需要比较的次数是（    ）。

下列叙述中正确的是（    ）。

数据流图中带有箭头的线段表示的是（    ）。

在软件开发中，需求分析阶段可以使用的工具是（    ）。

在面向对象方法中，不属于“对象”基本特点的是（    ）。

一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（    ）。

在数据管理技术发展的三个阶段中，数据共享最好的是（    ）。

有三个关系 R、S和 T 如下：

  
由关系 R 和S通过运算得到关系 T，则所使用的运算为（    ）。

在设计窗体时双击窗体的任何地方，可以打开的窗口是（    ）。

若变量 a 未事先定义而直接使用（例如：a=0），则变量 a 的类型是（    ）。

为把圆周率的近似值 3.14159存放在变量 pi 中，应该把变量 pi 定义为（    ）。

表达式 2*3^2+4*2/2+3^2 的值是（    ）。

以下不能输出“Program”的语句是（    ）。

窗体上有一个名称为 Frame1 的框架（如图），若要把框架上显示的“Frame1”改为
汉字“框架”，下面正确的语句是（    ）。
  

以下叙述中错误的是（    ）。

设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表
项内容的是（    ）。

设a=4，b=5，c=6，执行语句 Print a<b And b<c 后，窗体上显示的是（    ）。

执行下列语句
strInput=InputBox ("请输入字符串"，"字符串对话框"，"字符串")
将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strInput 的内容是（    ）。

窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：
Option Base 0
Dim a( ) As Integer, m As Integer
Private Sub Command1_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
Private Sub Command2_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则
数组 a 中元素的个数是（    ）。

在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编
写如下事件过程：
Private Sub Command1_Click( )
  Counter=0
  For i=1 To 4
    For j=6 To 1 Step -2
      Counter=Counter+1
    Next j
  Next i
  Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（    ）。

在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：
Private Sub Command1_Click( )
  Dim M(10) As Integer
  For k=1 To 10
  M(k)=12-k
  Next k
  x=8
  Print M(2+M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是（    ）。

以下关于过程及过程参数的描述中，错误的是（    ）。

在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2
的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click( )
  X=5: Y=3
  Call proc(X, Y)
  Label1.Caption=X
  Label2.Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
  X=a*a
  Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（    ）。

在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令
按钮。运行后的窗体外观如图所示。
   
设有如下的类型和变量声明：
Private Type Person
  name As String*8
  major As String*20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给 Person 类型的变量 p，当单击“保存”按钮时，能
够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是（    ）。

在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编
写如下事件过程：
Private Sub Command1_Click( )
  Dim i As Integer, n As Integer
  For i=0 To 50
    i=i+3
    n=n+1
    If i>10 Then Exit For
  Next
  Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（    ）。

假定有以下循环结构
Do Until  条件表达式
循环体
Loop
则以下正确的描述是（    ）。

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
  Dim I, Num
  Randomize
  Do
    For I=1 To 1000
      Num=Int(Rnd*100)
      Print Num;
      Select Case Num
        Case 12
          Exit For
        Case 58
          Exit Do
        Case 65, 68, 92
          End
      End Select
    Next I
  Loop
End Sub
上述事件过程执行后，下列描述中正确的是（    ）。

在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
  Dim a
  a=Array(1, 2, 3, 4)
  j=1
  For i=4 To 1 Step -1
    s=s+a(i)*j
    j=j*10
  Next i
  Print s
End Sub
运行上面的程序，其输出结果是（    ）。

设有如下通用过程：
Public Function Fun(xStr As String)As String
  Dim tStr As String, strL As Integer
  tStr=""
  strL=Len(xStr)
  i=1
  Do While i<=strL/2
    tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1)
    i=i+1
  Loop
  Fun=tStr
End Function
在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click( )
  Dim S1 As String
  S1="abcdef"
  Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是（    ）。

某人为计算 n!(0<n<=12)编写了下面的函数过程：
Private Function fun(n As Integer) As Long
  Dim p As Long
  p=1
  For k=n-1 To 2 Step-1
    p=p*k
  Next k
  fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有
3 种是正确的，错误的方案是（    ）。

假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
  Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确
定”按钮后在窗体上的输出结果为（    ）。

为计算 a 的值，某人编写了函数 power如下：
Private Function power (a As Integer, n As Integer) As Long
  Dim p As Long
  p=a
  For k=1 To n
    p=p*a
  Next k
  power=p
End Function
在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。
程序需要修改。下面的修改方案中有 3 个是正确的，错误的一个是（    ）。

某人编写了下面的程序
Private Sub Command1_Click( )
  Dim a As Integer, b As Integer
  a=InputBox("请输入整数")
  b=InputBox("请输入整数")
  pro a
  pro b
  Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
  While (n>0)
    Print n Mod 10;
    n=n\10
  Wend
  Print
End Sub
此程序功能是：输入 2个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2
个数之和的每一位数字。例如：若输入 123 和234，则应该输出：
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前 2 行（即2 个数的反序），而未输出第 3 行（即2 个数之和
的反序），程序需要修改。下面的修改方案中正确的是（    ）。

对下列二叉树进行中序遍历的结果 ＿＿ 。
   

按照软件测试的一般步骤，集成测试应在＿＿ 测试之后进行。

软件工程三要素包括方法、工具和过程，其中， ＿＿ 支持软件开发的各个环节的
控制和管理。

数据库设计包括概念设计、＿＿ 和物理设计。

在二维表中，元组的 ＿＿ 不能再分成更小的数据项。

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
  S$=InputBox("请输入一个字符串")
  Text1.Text=S$
End Sub
Private Sub Text1_Change( )
  Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串
“VisualBasic”，则在标签中显示的内容是＿＿ 。

在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
  a$="National Computer Rank Examination"
  n=Len(a$)
  s=0
  For i=1 To n
    b$=Mid(a$, i, 1)
    If b$="n" Then
      s=s+1
    End If
  Next i
  Print s
End Sub
程序运行后，单击命令按钮，输出结果是＿＿ 。

为了在运行时把 d:\pic 文件夹下的图形文件 a.jpg 装入图片框 Picture1，所使用的语句
为＿＿ 。

设有如下程序：
Private Sub Form_Click( )
  Cls
  a$="ABCDFG"
  For i=1 To 6
    Print Tab(12-i);＿＿ 
  Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
    

在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
  Dim Arr
  Arr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)
  pos=0
  neg=0
  For k=1 To 10
    If Arr(k)>0 Then
     ＿＿ 
    Else
     ＿＿ 
    End If
  Next k
  Print pos, neg
End Sub
以上程序的功能是，计算并输出数组 Arr 中 10个数的正数之和 pos 与负数之和 neg，
请填空。

在窗体上画一个名为 Command1 的命令按钮，然后编写如下程序：
Private Sub Command1_Click( )
  Dim i As Integer
  Sum=0
  n=InputBox("Enter a number")
  n=Val(n)
  For i=1 To n
    Sum=＿＿ 
  Next i
  Print Sum
End Sub
Function fun(t As Integer)As Long
  p=1
  For i=1 To t
    p=p*i
  Next i
 ＿＿ 
End Function
以上程序的功能是，计算 1!+2!+3!+…+n!，其中n 从键盘输入，请填空。

在窗体上画一个文本框，名称为 Text1，然后编写如下程序：
Private Sub Form_Load( )
  Open "d:\temp\dat.txt" For Output As #1
  Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii=13 Then
     If UCase(Text1.Text)=＿＿ Then
       Close #1
       End
     Else
       Write #1,＿＿ 
       Text1.Text=""
     End If
  End If
End Sub
以上程序的功能是：在D盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中
输入字符，每次按回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中
的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。