2014年全国计算机等级《二级VB》考前押密试题(1)
时长:120分钟 总分:100分
63浏览 0人已完成答题
题型介绍
| 题型 | 单选题 | 简答题 |
|---|---|---|
| 数量 | 40 | 3 |
一、选择题
1.
在窗体上画一个名为Co mmand1的命令按钮，然后编写如下代码：
在窗体上画一个名为Co mmand1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Co mmand1＿Click（）
Di ma
a＝Array（1，2，3，4）
j＝1
For i ＝4To 1Step －1
s ＝s ＋a（i）＊j
j＝j＊10
Nexti
Print S
End Sub
运行上面的程序，其输出结果是（ ）。
10.
下面程序段执行结果为（ ）。
下面程序段执行结果为（ ）。
x＝Int（Rnd（）＋3）
Select Case x
Case 5
Print ＂excellent＂
Case 4
Print ＂good＂
Case 3
Print ＂pass＂
Case Else
Print ＂fail＂
End Select
11.
现有如下程序：
现有如下程序：
Private Sub Co mmand1＿Click（）
S＝0
For i ＝1to 5
S＝S＋f（5＋i）
Next
Print S
End Sub
Public Function f（x As Integer）
If x＞＝10Then
t ＝x＋1
Else
t ＝x＋2
End If
f ＝t
End Function
运行程序，则窗体上显示的是（ ）。
15.
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：
Di mSW As Boolean
Function func（X As Integer）As Integer
If X＜20Then
Y ＝X
Else
Y ＝20＋X
End If
func ＝Y
End Function
Private Sub Form＿MouseDown（Button As Integer ，＿
Shift As Integer ，X As Si ngle ，Y As Si ngle）
SW＝False
End Sub
Private Sub Form＿Mouse Up（Button As Integer ，＿
Shift As Integer ，X As Si ngle ，Y As Si ngle）
SW＝True
End Sub
Private Sub Co mmand1＿Click（）
Di mi nt Num As Integer
i nt Num＝InputBox（＂＂）
If SW Then
Print func（i nt Num）
End If
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为（ ）。
16.
设窗体上有一个标签Labell 和一个计时器Ti mer1，Ti mer1的Interval 属性被设置为1000，Enabled 属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（ ）。
26.
假定有下列函数过程：
假定有下列函数过程：
Function Fun（S As Stri ng）As Stri ng
Di ms1As Stri ng
For i ＝1To Len（S）
S1＝LCase（Mid（S，i ，1））＋s1
Next i
Fun ＝s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Di mStr1As Stri ng ，Str2As Stri ng
Str1＝InputBox（＂请输入一个字符串＂）
Str2＝Fun（Str1）
Print Srt2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串＂abcdefg＂，则单击＂确定＂按钮后在窗体上的输出结果为（ ）。
31.
下面程序的输出结果是（ ）。
下面程序的输出结果是（ ）。
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
33.
在窗体上画一个文本框（名称为Text1）和一个标签（名称为Labell），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（ ）。
二、基本操作题
41.
（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为"打开文件"，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：
（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，标题为"打开文件"，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为"打开文件"；
②设置适当属性，使对话框的"文件类型"下拉式组合框中有两项可供选择："文本文件"、"所有文件"(如图所示)，默认的类型是"所有文件"；
③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sj1.vbp，窗体文件名保存为sj1.frm。
（2）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为"移动本按钮"，如图所示。
要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。
要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sj2.vbp，窗体文件名保存为sj2.frm。
三、简单应用题
42.
（1）在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
（1）在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名称为Label1的标签，一个名称为Timer1的计时器，一个名称为HScroll1的滚动条，还有一个名称为Command1，标题为"开始"的命令按钮。要求程序运行后，单击开始按钮，则标签中的文本根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动块的位置，则文本交替变换的速度也随之变化。程序运行界面如图27-5所示。
图27-5
（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体中有一个名为Image1的图像框，还有两个命令按钮，名称分别是Command1和Command2、标题分别是"纵向拉伸"和"横向拉伸"。要求程序运行后，单击Command1按钮，则图像框变高；单击Command2按钮，则图像框变宽。程序运行界面如图27-6所示。
图27-6
四、综合应用题
43.
在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序并保存”，如图4－6所示。程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序并保存”按钮，则对这100个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件result.txt中(在程序中的标准模块prog.bas过程可以把指定个数的数组元素存入result.txt文件中)。
