计算机等级考试二级VISUAL BASIC机试6
(总分100,考试时间90分钟)
一、选择题
计算机二级vb1. VB中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是( )。
A) . vbp B) . bas C) . vbw D) . frm
2. 下列关于栈叙述正确的是( )。
A) 栈顶元素最先能被删除 B) 栈顶元素最后才能被删除
C) 栈底元素永远不能被删除 D) 栈底元素最先被删除
3. 软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是( )。
A) 学生成绩管理系统 B) C语言编译程序
C) UNIX操作系统 D) 数据库管理系统
4. 向文本框中输入字符时，下面能够被触发的事件是( )。
A) GotFocus B) KeyPress C) Click D) MouseDown
5. 要删除列表框中最后一个列表项，正确的语句是( )。
A) List1. RemoveItem ListCount B) List1. RemoveItem List1. ListCount
C) List1. RemoveItem ListCount - 1 D) List1. RemoveItem List1. ListCount - 1
6. 满足下列条件之一的年份是闰年：
1)年份能被4整除但不能被100整除
2)年份能被400整除
若y代表年份，下面判断闰年的正确表达式是( )。
A) y Mod 4 And y Mod 100 Or y Mod 400
B) y Mod 4 =0 Or y Mod 100 ＜ ＞0 And y Mod 400 =0
C) y Mod 100 ＜ ＞0 And(y Mod 4 =0 Or y Mod 400 =0)
D) y Mod 4 =0 And y Mod 100 ＜ ＞0 Or y Mod 400 =0
7. 能够产生1到50之间(含1和50)随机整数的表达式是( )。
A) Int(Rnd*51) B) Int(Rnd(50)+1) C) Int(Rnd*50) D) Int(Rnd*50+1)
8. 以下关于键盘事件的叙述中，错误的是( )。
A) 按下键盘按键既能触发KeyPress事件，也能触发KeyDown事件
B) KeyDown、KeyUp事件过程中，大、小写字母被视作相同的字符
C) KeyDown、KeyUp事件能够识别Shift、Alt、Ctrl等键
D) KeyCode是KeyPress事件的参数
A) 顺序结构 B) GOTO跳转
C) 选择(分支)结构 D) 重复(循环)结构
10. 关于KeyPress事件，以下叙述中正确的是( )。
A) 在控件数组的控件上按键盘键，不能触发KeyPress事件
B) 按下键盘上任一个键时，都能触发KeyPress事件
C) 按字母键时，拥有焦点的控件的KeyPress事件会被触发
D) 窗体没有KeyPress事件
11. 要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是( )。
A) If x mod 7 = 2 Then Print x B) If x - (x\7) * 7 = 2 Then Print x
C) If x - (x/7) * 7 = 2 Then Print x D) If x - Int(x/7) * 7 = 2 Then Print x
12. 设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：
Private Sub Command1_Click()
CD1. DialogTitle = "打开文件"
CD1. InitDir = "C: "
CD1. Filter = "所有文件| *. * |Word文档| *. doc |文本文件| *. txt"
CD1. FileName = " "
CD1. Action = 1
If CD1. FiteName = " " Then
Print"未打开文件"
Else
Print"要打开文件" & CD1. FileName
End If
End Sub
但实际显示的对话框中列出了C: \下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是( )。
A) 把CD1. Action=1改为CD1. Action=2
B) 把 "CD1. Filter=" 后面字符串中的 "所有文件" 改为 "文本文件"
C) 在语句CD1. Action=1的前面添加：CD1. FilterIndex=3
D) 把CD1. FileName=" " 改为CD1. FileName="文本文件\
13. 窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是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
运行程序时发现圆立即移动到了右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是( )。
A) 把计时器的Interval属性设置为1
B) 把For k=Line1. X1 To Line2. X1 Step 100和Next k两行删除
C) 把For k=Line1. X1 To Line2. X1 Step 100改为For k=Line2. X1 To Line1. X1 Step 100
D) 把If Shape1. Left+Shape1. Width＜Line2. X1 Then改为If Shape1. Left＜Line2. X1 Then
14. 如果在窗体模块中所有程序代码的前面有语句：Dim x，则x是( )。
A) 全局变量 B) 局部变量
C) 静态变量 D) 窗体级变量
15. 设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer, b As Integer)
While a＞b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是( )。
A) 把a=a-b改为a=b-a B) 把a=a-b改为a=a\b
C) 把While a＞b改为While a＜b D) 把While a＞b改为While a＞=b
16. 在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAseii) ＜ ＞ Then ss = ss + Chr(KeyAseii)
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
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是( )。
A) NUMBER 100 B) REBMUN C) REBMUN 100 D) 001 REBMUN
17. 有三个关系R、S和T如下：
则由关系R和S得到关系T的操作是( )。
A) 自然连接 B) 并 C) 交 D) 差
18. 设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为
13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序： 菜单结构
发布评论