2014年全国计算机等级《二级VB》上机考试冲刺试题(4)

设计数据库的存储结构属于（　　）

某人创建了1个工程，其中的窗体名称为Form1；之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（　　）。

设有如下通用过程：
Public Function Fun（xStr As Stri ng）As Stri ng
Di mt Str As Stri ng ，strLAs Integer
tStF＝＂＂
strL＝Len（xStr）
i ＝1 Do While i ＜＝strL／2
tStr ＝Tstr ＆Mid（xStr ，i ，1）＆Mid（xStr ，strL－i＋1，1）
i ＝i ＋l
Loop
Fun ＝tStr
End Function
在窗体上画一个名称为Co mmand1的命令按钮。然后编写如下的事件过程：
Private Sub Co mmandI＿Click（）
Di mS1As Stri ng
S1＝＂abedef＂
Pri m UCase（Fun（S1））
End Sub
程序运行后，单击命令按钮，输出结果是（　　）。

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

下列程序段的运行结果是（　　）。
Sub sele（　　）
Di mn As Integer
i ＝21：n ＝3
Do While i ＞n
i ＝i －n
Loop
Print i
End Sub

复选框的Value 属性为0时，表示该复选框（　　）。

在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是（　　）。
　　

在窗体上添加一个命令按钮，名为Co mmand1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出（　　）。
For i ＝1To 4
For j＝1To 3
x＝3
For k ＝1To 2
x＝x＋3
Next k
Next j
Next i
Textl ．Text ＝Str（x）

下列关于Sub 过程的叙述正确的是（　　）。

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

编写如下两个事件过程：
Private Sub Form＿KeyDown （KeyCode As Integer，Shift As Integer）
Print Chr（KeyCode）
End Sub
Private Sub Form＿KeyPress（KeyAscii As Integer）
Print Chr（KeyAscii）
End Sub
在一般情况下（即不按住Shift 键也未锁定大写键时）运行程序，如果按键盘上的"A"键，则程序输出的结果是（　　）。

在窗体上画一个命令按钮，名称为Co mmand1，然后编写下列代码：
Option Base 0
Private Sub Co mmand1＿Click（）
Di m A1（4）As Integer ，A2（4）As Integer
For k ＝0To 2
A1（k ＋1）＝InputBox（＂请输入一个整数＂）
A2（3－k）＝A1（k ＋1）
Next k Print A2（k）
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（　　）。

下面语句正确的是（　　）。

下面程序的输出结果是（　　）。
Private Sub Co mmand1＿Click（）
Ch$＝＂ABCDEF＂
proc ch ：Print ch
End Sub
Private Sub proc（ch As Stri ng）
s ＝＂＂
For k ＝Len（ch）To 1Step －1
s ＝s ＆Mid（ch ，k ，1）
Next k
ch ＝s
End Sub

语句Di ma（－3To 4，3To 6）As Integer 定义的数组元素个数是（　　）。

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

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

用Print 方法在Forml 窗体中显示出4个＃号的正确代码为（　　）。

一个模块内部各个元素彼此结合的紧密程度的度量称为（　　）

函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Si nx As Si ngle
Cosx As Si ngle
End Type
Private Sub Form＿Click（）
Di m Y As Si ngle
Di mi As Integer
Di m Ksc As Ang
Open ____________
Y ＝3．14159／180
For i ＝1To 90
Ksc ．K ＝i
Ksc ．Si nx＝Si n（i＊Y）
Ksc ．Cosx＝Cos（i ＋Y）
________
Next i
Close ＃2
Elld Stub

下列程序运行时输出的结果是（　　）。
Option Base 1
Const a＝10
Private Sub Form＿Click0
Di mx（a）As Integer
k ＝－1
For i ＝1To a
x（i）＝i＊k
k ＝（－1）＊k
Next i
For i ＝1To 10
Print x（i）
Next i
End Sub

某人为计算n！（O ＜n ＜＝12）编写了下面的函数过程：
Private Function fun（n As Integer）As Long
Di m P As Long
P＝l
For k ＝n －1To 2Step －1
p ＝p＊k
Next k
fun ＝p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是（　　）。

要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是（　　）。

设在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1＿KeyDown （KeyCode As Integer ，Shift As Integer）
Const Alt ＝4
Const Key＿F2＝＆H71
altdown ％＝（Shift And Alt）＞0
f2down ％＝（KeyCode ＝Key＿F2）
If altdown ％And f2down ％Then
Text1．Text ＝＂abl＂
End If
End Sub
程序运行后，清除文本框中原有内容，如果按Shift ＋F2键，则在文本框中显示的是（ ）。

在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Co mmand1），然后编写下列事件过程：
Private Sub Co mmand1＿Click（）
x＝0
DO While x＜50
x＝（x＋2）＊（x＋3）
n ＝n ＋l
Loop
Text1．Text ＝Str（n）
Text2．Text ＝Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　　）。

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

一个工程必须包含的文件的类型是（ ）。

在文本框中输入字符时，通过（ ）事件过程可以得到字符的ASCII 码值。

在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是（　　）。

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

一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再一次出栈，则元素出栈的顺序是（　　）。

在窗体上建立通用对话框需要添加的控件是（　　）。

在窗体上画2个命令按钮，名称分别为Co mmand1、Co mmand2，然后编写下列事件过程。
Const n ＝5，m＝4
Di ma（m，n）
Private Sub Co mmand1＿Click（）
k ＝1
For i ＝1To m
For j＝1To n
a（i ，j）＝k
k ＝k ＋1
Next j
Next i
End Sub
Private Sub Co mmand2＿Click（）
summ＝0
For i ＝1To m
For j＝1To n
If i ＝1Or i ＝m Then
summ＝summ＋a（i ，j）
Else
If j＝1Or j＝n Then
summ＝summ＋a（i ，j）
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1＿Click（）的作用是在二维数组a 中存放1个m 行n 列的矩阵；过程Command2＿Click（）的作用是（　　）。

下列关于复选框的说法，正确的是（　　）。

按照"后进先出"原则组织数据的数据结构是（　　）。

当一个复选框被选中时，它的Value 属性的值是（ ）。

已知在4行3列的全局数组score（4，3）中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下：
Option Base 1
Private Sub Co mmand1＿Click（　　）
Di msum As Integer
Sum＝0
For i ＝1To 4
For j＝1To 3
Sum＝sum＋score（i ，j）
Next j
Print ＂第＂＆i ＆＂个学生的总分是：＂；sum Next i
End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是（　　）。

设有数组定义语句：Di ma（5）As Integer ，List1为列表框控件。下列给数组元素赋值的语句错误的是（　　）。

下列（ ）标识符不能作为Visual Basic 的变量名。

（1）在名称为Form1的窗体上画一个命令按钮，名称为Command1，标题为"缩小一半"。编写事件过程，程序运行后，如果单击Command1命令按钮，则使Command1按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图25-1所示。
　　
图25-1
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
（2）在名称为Form1的窗体上画一个命令按钮和一个水平滚动条，其名称分别为Command1和HScroll1。命令按钮的标题为"滚动条变长"。编写适当的事件过程，使得程序运行后，如果单击Command1命令按钮，则使HScroll1水平滚动条的Width属性减小1000，Min属性为0，LargeChange的属性为100，SmallChange的属性为20，且Command1不可用，移动滚动条，在窗体上显示滚动条的位置值。不得使用任何变量。程序运行时的窗体界面如图25-2所示。
　　
图25-2
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。

（1）在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为"体育"、"音乐"和"美术"，还有一个命令按钮，名称为c1，标题为"显示"。要求程序运行后，如果选中某个复选框，当单击"显示"命令按钮时，则显示相应的信息。例如，如果选中"体育"和"美术"复选框，单击"显示"命令按钮后，在窗体上显示"我的爱好是体育美术"，如图2－4所示。
　　
图2-4
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。
（2）在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是Wait、Edit、Aix和Move，如图2-5所示。
　　
图2-5
在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。
注意：去掉程序中的注释符"'"，把程序中的问号"？"改为正确的内容，
使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在名称为 Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Command1和Command2、标题分别为"读入数据"和"计算保存"，运行界面如图1-5所示。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的50个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则先进行升序排列，计算前25个数的和与后25个数的和的差，并把求得的结果在文本框Text2 中显示出来，同时把该结果存入考生文件夹中的文件"out.txt"中。（在考生文件夹下的标准模块mode.bas中的writedata过程可以把结果存入指定的文件）
　　
图1-5
注意：文件必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp，计算结果存入out.txt文件，否则没有成绩。