2013年9月全国计算机等级《二级VB》上机模考试卷(5)

以下关于顺序文件的叙述中，正确的是（　　）。

下列关于关系运算的叙述中正确的是（　　）。

语句Dim a(-3 To 4，3 To 6)As Integer定义的数组元素个数是（　）。

下列选项中属于面向对象设计方法主要特征的是（　　）。

在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1 Click（　　）
a$=”software and hardware”
b$=Right(a$，8)
c$=Mid(a$，L，8)
MsgBox a$，，bs，CS，1
End sub
则在弹出的信息框标题栏中显示的标题是（　　）。

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

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

一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是（　　）。

以下关于局部变量的叙述中错误的是（　　）。

要在命令按钮控件上显示图像应（　　）。

在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（　　）。
　　

假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（　　）。

在窗体E先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片，如图1所示，且将banana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（　　）。
　　

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

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（　）。

某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中：
Private Sub Command1Click（　　）
Open"out．txt" For Output As#2
Print”Text1”
Close#2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是（　　）。

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

执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1中选中一个列表项(数据为456)，使结果为123456 的语句是（　　）。

在窗体上画1个名为Textl的文本框和1个名为Labell的标签，再画4个名为Opl 的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales．txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（　　）。
　　
Option Base 1
Dim sales(12)As Long
Private Sub Fo rm Load（　　）
Open"C：＼sales．txt"For Input As#1
For k=1 To 12
Input#1，sales(k)
Nextk
Close#1
End Sub
Private Sub (Index As Integer)
Dim sum As Long，k As Integer，month As Integer
sum=0
m_dj=In&x*
For k=1 To 3
m_dj=month+1
sum=sum+sales(month)
Next k
Label1．Capti_dj=________．Caption＆"销售总额："
Text1=Sum
End Sub

为了使列表框中的项目分为多列显示，需要设置的属性为（　　）。

窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：
Private Sub Command1_Click（　　）
For k=List1．ListCout-1 To 0 Step-1
If List1．Selected(k)Then
List2．Addltem List1．List(k)
List1．Removeltem k
End If
Next k
End Sub
　　
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（　　）。

下列不能扫开菜单编辑器的操作是（　　）。

设X是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是（　　）。

窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1Click（　　）
Dim a(10)，x％
Fork=1 To 10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Next k
Print X
End Sub
程序运行后，单击命令按钮，输出结果是（　　）。

下列关于栈的叙述正确的是（　　）。

下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（　　）。Private Sub Command1Click（　　）
Dim cout(25)As Integer，ch As String
ch=Ucase(Int,utBox("请输入字母字符串"))
For k=1 To i en(ch)．
n=ASC(Mid(ch，k，1))-Asc("A")
If n>=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m<COUNT(K)THEN
m=count(k)
End If
Next k
Print m
End Sub

设有下列程序
Private Sub Form Click（　）
X=50
For i=1 T0 4
y=InputBox("请输入一个整数")
y=Val(v)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（　）。

下面正确使用动态数组的是（　　）。

在窗体上面有一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（　　）
MsgBox Str(123+321)
End Sub
程序运行后，单击命令按钮，则在信息框中显示的提示信息为（　　）。

窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1 Click（　）
Dim n As Integer
n=add(5，10)
Print n
End Sub
Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（　）。

某系统总体结构图如下图所示：
　　
该系统总体结构图的深度是（　　）。

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

窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：
Private Sub Command1_Click（　　）
Timer1．Enabled=True
End Sub
Private Sub Form_Load（　　）
Timer1．Interval=10
Timer1．Enabled=False
End Sub
Private Sub Timer1 Timer（　　）
Command1．Left=Command1．Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（　　）。

设a=2，b=3，c=4，d=5，下列表达式的值是（　　）。
Not a<=c Or 4*C=b^2 And b<>a+C

有两个关系R，S如下：
　　
由关系R通过运算得到关系S，则所使用的运算为（　）。

数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是（　　）。

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是（　　）。

为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是（　　）。

在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：
Private Sub Command1_Click（　　）
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen／2
temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则在窗体上显示的是（　　）。

在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图2—1所示。
　　
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1．vbp。

在窗体Form1上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件爿编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。程序运行时的窗体界面如图5-1所示。
　　
注意：保存时必页存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为Sj1．vbp。

在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。
　　
注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件和文件名。

在窗体上建立一个名称为List1的列表框和一个名为Text1的文本框。编写程序，实现列表框和文本框中项目的交换。要求List1中的项目按字母升序排列，Text1中的项目按照加人的先后顺序排列。当双击List1某个项目时，该项目从列表框中消失，并出现在Text1中。程序运行时的窗体界面如图2-3所示。
　　
注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3．vbp与sj3．frm。

在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars 属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”，如图3-6所示。要求程序运行后，如果单击“读入数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result．txt文件中(在prog．bas中的putdata过程可以把结果存入result．txt文件)。
　　
注意：文件必须存放在考生文件夹下，窗体文件名为si5．frm，工程文件名为si5．vbp，计算结果存入result．txt文件中，否则没有成绩。