2014年全国计算机等级《二级VB》上机考试冲刺试题(4)
时长:120分钟 总分:100分
73浏览 0人已完成答题
题型介绍
| 题型 | 单选题 | 简答题 |
|---|---|---|
| 数量 | 40 | 3 |
一、选择题
4.
设有如下通用过程：
设有如下通用过程：
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
程序运行后，单击命令按钮，输出结果是（ ）。
8.
在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是（ ）。
在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是（ ）。
9.
在窗体上添加一个命令按钮，名为Co mmand1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出（ ）。
在窗体上添加一个命令按钮，名为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）
12.
编写如下两个事件过程：
编写如下两个事件过程：
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"键，则程序输出的结果是（ ）。
13.
在窗体上画一个命令按钮，名称为Co mmand1，然后编写下列代码：
在窗体上画一个命令按钮，名称为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，则输出结果为（ ）。
15.
下面程序的输出结果是（ ）。
下面程序的输出结果是（ ）。
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
18.
在窗体上先后画2个图片框，名称分别为Picture1和banana，banana 中添加了香蕉图片，如图1所示，且将banana．Drag Mode 属性设置为1。要求程序运行时，可以用鼠标把banana 拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（ ）。
在窗体上先后画2个图片框，名称分别为Picture1和banana，banana 中添加了香蕉图片，如图1所示，且将banana．Drag Mode 属性设置为1。要求程序运行时，可以用鼠标把banana 拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（ ）。
21.
函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
函数值和余弦函数值，角度为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
22.
下列程序运行时输出的结果是（ ）。
下列程序运行时输出的结果是（ ）。
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
23.
某人为计算n！（O ＜n ＜＝12）编写了下面的函数过程：
某人为计算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种是正确的，错误的方案是（ ）。
25.
设在窗体上有一个文本框，然后编写如下的事件过程：
设在窗体上有一个文本框，然后编写如下的事件过程：
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键，则在文本框中显示的是（ ）。
26.
在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Co mmand1），然后编写下列事件过程：
在窗体上画两个文本框（名称分别为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
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
34.
在窗体上画2个命令按钮，名称分别为Co mmand1、Co mmand2，然后编写下列事件过程。
在窗体上画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（）的作用是（ ）。
38.
已知在4行3列的全局数组score（4，3）中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下：
已知在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个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是（ ）。
二、基本操作题
41.
（1）在名称为Form1的窗体上画一个命令按钮，名称为Command1，标题为"缩小一半"。编写事件过程，程序运行后，如果单击Command1命令按钮，则使Command1按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图25-1所示。
（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。
三、简单应用题
42.
（1）在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为"体育"、"音乐"和"美术"，还有一个命令按钮，名称为c1，标题为"显示"。要求程序运行后，如果选中某个复选框，当单击"显示"命令按钮时，则显示相应的信息。例如，如果选中"体育"和"美术"复选框，单击"显示"命令按钮后，在窗体上显示"我的爱好是体育美术"，如图2－4所示。
（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
在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。
注意：去掉程序中的注释符"'"，把程序中的问号"？"改为正确的内容，
使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
四、综合应用题
43.
在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。
