2008年4月全国计算机等级考试二级VB试卷

结构化程序设计的基本原则不包括

软件设计中模块划分应遵循的准则是

在软件开发中，需求分析阶段产生的主要文档是

算法的有穷性是指

对长度为n的线性表排序，在最坏的情况下，比较次数不是n(n-1)/2的排序方法是

下列关于栈的叙述正确的是

在数据库设计中，将E—R图转换成关系数据模型的过程属于

有三个关系R、S和T如下：
           
由关系R和S通过运算得到关系T，则所使用的运算为

设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC（学号，课号，成绩），则表SC的关键字（键或码）为

以下叙述中错误的是

在Visual Basic中，表达式3* 2\5 Mod 3的值是

以下选项中，不合法的Visual Basic变量名是

以下数组定义语句中，错误的是

现有语句：y=IIf(x>0, x  Mod  3, 0) ，设x=10，则y的值是

为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为

文本框Text1的KeyDown事件过程如下：
Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer)
End Sub
其中参数KeyCode的值表示的是发生此事件时

窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。下面能够实现上述操作的事件过程是

若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是

要使两个单选按钮属于同一个框架，正确的操作是

能够存放组合框的所有项目内容的属性是

设窗体上有一个标签Labell和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是

设有如图所示窗体和以下程序：
Private Sub Command1_Click()
  Textl.Text=“Visual Basic”
EndSub                                                       
Private Sub Text1_LostFocus()
  If Text1.Text <>“BASIC”Then
    Text1.Text=””
    Text1.SetFocus
  End If
End Sub
程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是

窗体上有一个名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click()
  x=“VisualBasicProgramming”
  a=Right(x,11)
  b=Mid(x,7,5)
  C=Msgbox(a, , b)
End Sub
运行程序后单击命令按钮，以下叙述中错误的是

设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。
Form1的代码如下：
Public X As Integer
Private Sub Form_load()
  x=1
  y=5
End Sub
Private Sub Command1_Click()
  Form2.Show
End Sub
Form2的代码如下：
Private Sub Command1_Ciick()
  Print Form1.x,y
End Sub
Module1的代码如下：
Public y As Integer
运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是

窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
Private  Type  x
  a  As Integer
  b  AS Integer
End Type
Private Sub Command1_Click()
  Dim  y  As  x
  y.a = InputBox(“”)
  If y.a\2=y.a/2 Then
    y.b=y.a*y.a
  Else
    y.b = Fix(y.a/2)
  End If
  Text1.Text=y.b
End Sub
对以上程序，下列叙述中错误的是

窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Command1,其下标从左到右分别为0、1、2、3,窗体外观如图所示。
命令按钮的事件过程如下：
Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0
      CD1.Action=1
    Case 1
      CD1.ShowSave
    Case 2                                          
      CD1.Acti_dj=5
    Case 3
      End
  End Select
End Sub
对上述程序，下列叙述中错误的是

窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序：
Private Sub Command1_ClickO
  Call Cale (HV.Value, HT.Value)
End Sub                                        
Public Sub Cale(x AS Integer , y AS Integer)
  Text1.Text = x* y
End Sub
运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是

现有如下程序：
Private Sub Command1_ Click()
  S=0
  For i=1 to 5
    S=S+f(5+i)                   
  Next
  Print  S
End Sub
Public Function f(x As Integer)
  If x>=10 Then
    t=x+1
  Else                           
    t=x+2
  End If
  f=t
End Function
运行程序，则窗体上显示的是

窗体上有一个用菜单编辑器设计的菜单（见上图）。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的

窗体上有一个名称为Picture1图片框控件，一个名称Label1的标签控件。如图所示。
现有如下程序：
Public Sub display (x As Control)
  If  TypeOf  x  is  Label  Then
    x.Caption=“计算机等级考试”
  Else                                       
    x.Picture = Loadpicture(“pic.jpg”)
  EndIf
End Sub
Private Sub Label1_Click()
  Call display(Label1)              
End Sub
Private Sub Picture1_Click()
  Call display(Picture1)
End Sub
对以上程序，下列叙述中错误的是

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer)
  Dim C AS string
  Tcxt2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时，文本框Text2中显示的是

设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：
Private Sub Command1_Click()
  Dim  S  As String , ch As String
  S=“”
  For k=1 TO Len(Text1)
    ch = Mid(Text1,k,l)
    S=ch+S
  Next k
  Text1.Text=S
End Sub
程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是

某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
Private Sub Command1_Click()
  Dim a(10) As Integer, max As Integer
  For k=1 TO 10
    a(K)=InputBox(“输入一个整数”)
  Next k
  Max=0
  For k=1 To 10
    If a(k)＞max Then
      Max = a(k)
    End If
  Next k
  Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是

已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下：
Option Base 1
Private Sub Command1_Click()
  Dim sum As Integer
  Sum=0
  For i=1 To 4
    For j=1 To 3
      Sum = sum + score(i,j)
    Next j
    Print“第”&i&”个学生的总分是:”;sum
  Next i
End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是

测试用例包括输入值集和＿＿值集。

深度为5的满二叉树有＿＿个叶子结点。

设某循环队列的容量为50，头指针Front=5 (指向队头元素的前一位置)，尾指针rear=29（指向队尾元素），则该循环队列中共有＿＿个元素。

在关系数据库中，用来表示实体之间联系的是＿＿。

在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，＿＿负责数据的模式定义与数据的物理存取构建。

设有以下的循环：要求程序运行时执行3次循环体，请填空。
x=1
DO
  x=x+2
  Print x
Loop Until ＿＿ 

窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click()
  Dim total As Integer
  total = s(1)+s(2)
  Print  total
End Sub
Private Function s(m As Integer)  As Integer
  Static x As Integer
  For i =1 To  m
    x=x+1
  Next i
  S=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为 ＿＿ 

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base l
Private  Sub Command1_Click()
  Dim a(10) As Integer
  For i=1 To 10
    a(i)=i
  Next
  Call swap ( ＿＿ )
  For i=1 To 10
    Print a(i)
  Next
End Sub
Sub swap (b() As Integer)
  n= ＿＿
  For i=1 To n/2
    t=b(i)
    b(i)=b(n)
    b(n)=t
    ＿＿
  Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，请填空。

在窗体上面一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
  CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files”_
    &”(*.txt)|*.txt|Batch Files(*.bat)|*.bat”
  CommonDialog1 Filterlndex=1
  Commondialog1.ShowOpen
  MsgBox CommonDialog1.File Name
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是＿＿；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是＿＿ 。

以下程序的功能是：把程序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
  Dim inData As String
  Text1.Text=“”
  Open“smtext1.txt”  ＿＿As  ＿＿
  Do While ＿＿
    Input#2,  inData
    Text1.Text=Text1.Text& inData
  Loop
  Close #2
End Sub