2009年9月全国计算机等级考试二级笔试试卷(Visual Basic语言程序设计)

下列数据结果中，能够按照“先进后出”原则存取数据的是

对于循环队列，下列叙述中正确的是

算法的空间复杂度是指

软件设计中划分模块的一个准则是

下列选项中不属于结构化程序设计原则的是

软件详细设计产生的图如下：
  
该图是

数据库管理系统是

在E-R图中，用来表示实体联系的图形是

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

  
其中关系T由关系R和S通过某种操作得到，该操作为

以下变量名中合法的是

把数学表达式 图1 表示为正确的VB表达式应该是

下面有关标准模块的叙述中，错误的是

下面控件中，没有Caption属性的是

用来设置文字字体是否斜体的属性是

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时
Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)
Print “VB Program”
End Sub

可以产生30-50（含30和50）之间的随机整数的表达式是

在程序运行时，下面的叙述中正确的是

窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text=”程序设计”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text=”等级考试”
End Sub
运行以上程序，单击命令按钮后

设窗体上有名称为Option1的单选按钮，且程序中有语句：
If Options.Value=True Then
下面语句中与该语句不等价的是

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述正确的是

有如下过程代码：
Sub var_dim()
Static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa;numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是

在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
For i=5 to 1 step -0.8
Print Int(i);
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为

在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为

设有以下函数过程
Function fun(a As Integer,b As Integer)
Dim c As Integer
If a<b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End function
若调用函数fun时的实际参数都是自然数，则函数返回的是

窗体上有1个名称为Text1的文本框；1个名为Timer1的计时器控件，其Interval属性值为5000，Enable属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HFF&  ‘&HFF&为红色
Else
Text1.ForeColor=&HC000& ‘&HC000&为绿色
End If
End Sub
以下叙述正确的是

为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1_Click()
Dim a%,s%,k%
s=1
a=2
For k=2 To 10
a=a*2
s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是

标准模块中有如下程序代码：
Public x As Integer,y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer,b As Integer)
While a>b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是

下列关于通用对话框CommonDialog1的叙述中，错误的是

在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出（X）”菜单项的访问键，可以将该菜单项的标题设置为

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As integer)
If chr(KeyAscii)<>””Then ss=ss+chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss) To 1 step -1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
End Sub
程序运行后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是

窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其Enable属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。
  
为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：
Private Sub Timer1_Timer()
For k=Line1.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.Width<Line2.X1 Then
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是

下列有关文件的叙述中，正确的是

窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：
 
Private Sub Command1_Click()
Dim n%,k%
n=Len(Text1.Text)
For k=0 To List1.ListCount-1
If Left(List1.List(k),n)=Text1.Text Then
List1.RemoveItem k
End If
Next k
End Sub
在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1改为

某二叉树有5个度为2的结点以及3个度为1的结点为，则该二叉树共有 【1】＿＿个结点。

程序流程图中的菱形框表示的是 【2】＿＿。

软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中 【3】＿＿阶段产生“软件需求规格说明书”。

在数据库技术中，实体集之间的联系可以是一对一或一对多或多对多的，那么“学生”和“可选课程”的联系为 【4】＿＿。

人员基本信息一般包括：身份证号，姓名，性别，年龄等。其中可以作为主关键字的是 【5】＿＿。

工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Command1），则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”请填空。
  Private Sub Command1_Click()
   If Text1.Text=”” Then
      MsgBox “请输入半径！”
   Else If Not IsNumeric( 【6】＿＿  ) Then
      MsgBox “请输入数值数据！”
   Else
      r=val( 【7】＿＿  )
      Form2.show
      【8】＿＿  .Print “圆的面积是”&3.14*r*r
   End If
End Sub

设有整形变量s，取值范围为0~100，表示学生的成绩。有如下程序段：
If s>=90 Then
   Level=”A”
Else If s>=75 Then
   Level=”B”
Else If s>=60 Then
   Level=”B”
Else
   Level=”D”
End If
下面用SelectCase结构改写上述程序，使两段程序所实现的功能完全相同。请填空。
Select Case s
Case  【9】＿＿>=90
Level=”A”
Case 75 To 89
Level=”B”
Case 60 To 74
Level=”B”
Case  【10】＿＿
Level=”D”
【11】＿＿

窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下：
Private Sub Command1_Click()
   Dim x As Integer,y As Integer,z
   x=3
   y=5
   z=fy(y)
   print fx(fx(x)),y
End Sub
Function fx(ByBal a As Integer)
   a=a+a
   fx=a
End Function
Function fy(ByRef a As Integer)
   a=a+a
   fy=a
End Function
运行程序，并单击命令按钮，则窗体上显示的2个值依次是 【12】＿＿和 【13】＿＿。

窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请填空。
Private Sub Command1_Click()
   Text1=””
   Number=FreeFile
      Open “c:\test.txt”For Input As Number
      Do While Not Eof( 【14】＿＿)
         Line Input #Number,s
         Text1.Text=Text1.Text+ 【15】＿＿+Chr(13)+Chr(10)
      Loop
   Close Number
End Sub