2014年全国计算机等级《二级VB》上机考试冲刺试题(5)
时长:120分钟 总分:100分
86浏览 0人已完成答题
题型介绍
| 题型 | 单选题 | 简答题 |
|---|---|---|
| 数量 | 40 | 3 |
一、选择题
1.
在C盘当前文件夹下有一个已建立好的顺序文件Alph ．txt ，文件内容为只含有字母的一个字符串（有双引号界定符）。单击窗体，打开A1ph ．txt 文件，读取字符串并显示在文本框Textl 中，然后调用StrSort 过程将此字符串按ASCII 码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO ．txt 文件中（无双引号界定符）。请选择横线处合适的语句（ ）。
在C盘当前文件夹下有一个已建立好的顺序文件Alph ．txt ，文件内容为只含有字母的一个字符串（有双引号界定符）。单击窗体，打开A1ph ．txt 文件，读取字符串并显示在文本框Textl 中，然后调用StrSort 过程将此字符串按ASCII 码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO ．txt 文件中（无双引号界定符）。请选择横线处合适的语句（ ）。
Private Sub Form＿Load（ ）
Di mStrIn As Stri ng ，StrOut As Stri ng
Open ＂C：＼Alph ．txt＂For Input As ＃1
________________
Close
Textl ．Text ＝StrIn
___________
Text2．Text ＝StrOut
Open ＂C：＼AlpO ．txt＂For Output As ＃2
_______
Close
End Sub
Private Function StrSort（s As Stri ng）As Stri ng
Di ms Arr（ ）As Stri ng＊1，j As Integer ，J As Integer ，nAs Integer
Di mt As Stri ng＊1
n ＝Len（s）
ReDi ms Arr（n）
For i ＝1To n
s Arr（i）＝Mid（s ，i ，1）
Next i For i ＝1To n ．1
For j＝i ＋1To n
If s Arr（i）＞s Arrj Then
t ＝s Arr（i）：s Arr（i）＝s Arr（i）：s Arr（j）＝t
End If
Next i ，i
For i ＝1To n
StrSort ＝StrSort ＆s Arr（i）
Next i
End Function
2.
窗体上有一个名称为Picture1的图片框控件，一个名称为Ti merl 的计时器控件，其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：
窗体上有一个名称为Picture1的图片框控件，一个名称为Ti merl 的计时器控件，其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：
Private Sub Ti mer1＿Ti mer（）
Static n As Integer
n ＝n ＋1
If（n／5）＝Int （n／5）And Picturel ．Left ＜Forml ．Width Then
Picture1．Left ＝Picture1．Left ＋100
End If
End Sub
分析以上程序，以下叙述中正确的是（ ）。
5.
窗体上有一个名称为Co mmand1的命令按钮，其单击事件过程如下：
窗体上有一个名称为Co mmand1的命令按钮，其单击事件过程如下：
Private Sub Co mmand1＿Click（）
Di ma，b（2，3）As Integer
a＝Array（3，7，5，11，31，43，17，62，9，23，37，41）
i ＝0
Do While i ＜＝UBound（a）
For j＝0To 2
For k ＝0To 3
b（j，k）＝a（i）
i ＝i ＋1
Next k
Next j
Loop
Print b（2，2）
End Sub
运行程序，窗体上显示的是（ ）。
7.
设窗体上有一个文体框Text1和一个命令按钮Co mmand1，并有以下事件过程：
设窗体上有一个文体框Text1和一个命令按钮Co mmand1，并有以下事件过程：
Private Sub Co mmand1＿Click（ ）
Di mS As Stri ng ，ch As Stri ng
S＝＂＂
For k ＝1TO Len（Text1）
ch ＝Mid（Text1，k ，l）
S＝ch ＋S
Next k
Text1．Text ＝S
End Sub
程序执行时，在文本框中输入"Basic"，然后单击命令按钮，则Text1中显示的是（ ）。
13.
为了计算1＋3＋5＋…＋99的值，某人编程如下：
为了计算1＋3＋5＋…＋99的值，某人编程如下：
k ＝1
s ＝0
While k ＜＝99
k ＝k ＋2：s ＝s ＋k
Wend
Print s
在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（ ）。
17.
窗体上有Co mmand1、Co mmand2两个命令按钮。现编写以下程序：
窗体上有Co mmand1、Co mmand2两个命令按钮。现编写以下程序：
Option Base 0
Di ma（）As Integer ，m As Integer
Private Sub Co mmand1Click（）
m＝InputBox（＂请输入一个正整数＂）
ReDi ma（m）
End Sub
Private Sub Co mmand2Click（）
m＝InputBox（＂请输入一个正整数＂）
ReDi ma（m）
End Sub
运行程序时，单击Co mmand1后输入整数10，再单击Co mmand2后输入整数5，则数组a 中元素的个数是（ ）。
18.
设有如下程序：
设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是（ ）。
20.
有如下过程代码：
有如下过程代码：
Sub var_dim()
static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa; numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是（ ）。
25.
在窗体上画一个名为Co mmand1的命令按钮，然后编写以下程序：
在窗体上画一个名为Co mmand1的命令按钮，然后编写以下程序：
Private Sub Co mmand1＿Click（）
Di m M（10）As Integer
For k ＝l To 10
M（k）＝12－k
Nextk
x＝8
Print M（2＋M（x））
End Sub
运行程序，单击命令按钮，在窗体上显示的是（ ）。
26.
某人设计了下面的函数fun ，功能是返回参数a 中数值的位数
某人设计了下面的函数fun ，功能是返回参数a 中数值的位数
Function fun（a As Integer）As Integer
Di mn ％
n ＝1
While a＼10＞＝0
n ＝n ＋1
a＝a＼10
Wend
fun ＝n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是（ ）。
27.
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：
Public Enums
a＝4
b ＝3
End Enum
Private Sub Co mmand1＿Click（）
Di mx As Integer
x＝a
If x＞＝3Then
MsgBox ＂Pass ！＂
End Sub
运行程序，其结果是（ ）。
28.
在窗体上画两个单选按钮（名称分别为Optionl、Option2，标题分别为"宋体"和"黑体"）、1个复选框（名称为Checkl ，标题为"粗体"）和1个文本框（名称为Text1，Text
在窗体上画两个单选按钮（名称分别为Optionl、Option2，标题分别为"宋体"和"黑体"）、1个复选框（名称为Checkl ，标题为"粗体"）和1个文本框（名称为Text1，Text
属性为"改变文字字体"），窗体外观如下图所示。程序运行后，要求"宋体"单选钮和"粗体"复选框被选中，则下列能够实现上述操作的语句序列是（ ）。
31.
下列程序在调试时出现了死循环：
下列程序在调试时出现了死循环：
Private Sub Co mmand1＿Click（）
n ＝InputBox（＂请输入一个整数＂）
Do
If n Mod 2＝0Then
n ＝n ＋1
Else
n ＝n ＋2
End If
Loop Until n ＝1000
End Sub
下列关于死循环的叙述中正确的是（ ）。
39.
在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
Private Sub Text1＿KeyPress（KeyAscii As Integer）
Di mstr As Stri ng
str ＝Chr（KeyAscii）
KeyAscii ＝Asc（UCase（str））
Text1．Text ＝Stri ng（2，KeyAscii）
End Sub
程序运行后，如果在键盘上输入字母"a"，则在文本框Text3中显示的内容为（ ）。
40.
某人编写了一个能够返回数组a 中10个数中最大数的函数过程，代码如下：
某人编写了一个能够返回数组a 中10个数中最大数的函数过程，代码如下：
Function MaxValue（a（）As Integer）As Integer
Di m max％
max＝1
For k ＝2To 10
If a（k）＞a（max）Then
max＝k
End If
Next k
MaxValue ＝max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是（ ）。
二、基本操作题
41.
（1）在名称为Form1的窗体上画一个名称为Check1的复选框数组，它含4个复选框，它们的标题依次为"Item1"、"Item2"、"Item3"和"Item4"，其索引号分别为0，1，2，3。初始状态下，"Item1"和"Item4"为选中状态。程序运行后的窗体界面如图39-1所示。
（1）在名称为Form1的窗体上画一个名称为Check1的复选框数组，它含4个复选框，它们的标题依次为"Item1"、"Item2"、"Item3"和"Item4"，其索引号分别为0，1，2，3。初始状态下，"Item1"和"Item4"为选中状态。程序运行后的窗体界面如图39-1所示。
图39-1
注意：存盘时必须存放考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
（2）在名称为Form1的窗体上画一个名称为VScroll1的垂直滚动条，其刻度值范围为1~200；画一个命令按钮，名称为Command1、标题为 "向下移动"。请编写适当的事件过程，使得程序运行时，每单击命令按钮一次（假定单击次数少于10次），滚动块向下移动20个刻度。程序运行时的窗体界面如图39-2所示。要求程序中不得使用变量，事件过程中只能写一条语句。
图39-2
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。
三、简单应用题
42.
（1）在考生文件夹下有一个工程文件sj3.vbp，相应的窗体文件名为sj3.frm，请装入该文件，在窗体上画一个命令按钮，名称分别为Command1，标题为"添加项目"，再画一个列表框和一个文本框，名称分别为List1和Text1。
（1）在考生文件夹下有一个工程文件sj3.vbp，相应的窗体文件名为sj3.frm，请装入该文件，在窗体上画一个命令按钮，名称分别为Command1，标题为"添加项目"，再画一个列表框和一个文本框，名称分别为List1和Text1。
编写适当的事件过程，要求程序运行后，如果从键盘上输入某项，再单击"添加项目"命令按钮，则将该添加到列表框中（内容任意，不少于3个），如图4-4所示；如果单击列表框中的某一项则将其从列表框中删除，如图4-5所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。
图4-4
图4-5
要求：去掉程序中的注释符"'"，把程序中的"?"改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
（2）在考生文件夹下有一个工程文件sj4.vbp，相应的窗体文件名为sj4.frm。程序运行后，在5个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来，如图4-6所示。这个程序不完整，请把它补充完整，并能正确运行。
图4-6
要求：去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
四、综合应用题
43.
打开考生文件夹下的sj5.vbp，在名称为Form1的窗体上建立一个名为Text1的文本框和两个命令按钮，名称分别为Command1和Command2，命令按钮上分别显示"读入"和"排序"（如图3-6所示）。程序运行时，单击"读入"按钮，将"in.txt"文件中的50个数读入，单击"排序"则把数组a中的数值按照降序排列。请在有"?"号的地方填正确内容，然后删除"?"及代码前的所有注释符（即'号）但不能修改其他部分。
