2014年全国计算机等级《二级VB》考前押密试题(4)
时长:120分钟 总分:100分
76浏览 0人已完成答题
题型介绍
| 题型 | 单选题 | 简答题 |
|---|---|---|
| 数量 | 40 | 3 |
一、选择题
2.
执行下列语句：
执行下列语句：
strInput ＝InputBox（＂请输入字符串＂，＂字符串对话框＂，＂字符串＂）
将显示输入对话框。此时如果直接单击"确定"按钮，则变量strlnput 的内容是（ ）。
3.
在窗体上有一个文本框控件，名称为Txt Ti me ，一个计时器控件，名称为Ti mer1，要求每一秒钟在文本框中显示一次当前的时间。程序如下：
在窗体上有一个文本框控件，名称为Txt Ti me ，一个计时器控件，名称为Ti mer1，要求每一秒钟在文本框中显示一次当前的时间。程序如下：
Private Sub Ti mer1＿（）
Txt Ti me ．text ＝Ti me
End Sub
在横线上应填入的内容是（ ）。
11.
窗体上有一个列表框和一个文本框，编写下列两个事件过程：
窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form．Load（ ）
List1．AddIte m＂北京＂
List1．AddIte m＂天津＂
List1．AddIte m＂上海＂
Textl ．Text ＝＂＂
End Sub
Private Sub List1．Click（ ）
Print Textl ．Text ＋List1．Text
End Sub
程序运行后，在文本框中输入"中国"，然后单击列表框中的"北京"，则输出结果是（ ）。
13.
设有如下程序：
设有如下程序：
Option Base l
Private Sub Form＿Click（）
Di ma（5）As Stri ng ，i As Integer
For i ＝1To 5
a（i）＝Chr（Asc（＂A＂）＋i）
Call f（a，i）
Next i
End Sub
Sub f（ta（）As Stri ng ，n As Integer）
Di mi As Integer
For i ＝1To n
Print ta（i）；
Next i Print
End Sub
对上述程序，以下叙述中正确的是（ ）。
17.
在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：
在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：
Function Funl （ByVal a As Integer ，b As Integer）As Integer
Di mt As Integer t ＝a－b
b ＝t ＋a
Funl ＝t ＋b
End Function
Private Sub Co mmand1＿Click（）
Di mx As Integer
x＝10
Print Funl（Funl（x，（Funl（x，x－1））），x－1）
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
21.
窗体上有一个名称为Co mmand1的命令按钮，其事件过程如下：
窗体上有一个名称为Co mmand1的命令按钮，其事件过程如下：
Private Sub Co mmand1＿Click（）
Di mi As Integer ，j As Integer ，k As Integer
Di ms As Double
s ＝0：i ＝1：j＝0：k ＝－1
Do While i ＜6
s ＝s ＋k＊（j／i）
i ＝i ＋1
j＝j＋1
k ＝－k
Loop
Print s
End Sub
以上程序所计算的表达式是（ ）。
22.
在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：
在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
x＝0
Do While x＜50
x＝（x＋2）＊（x＋3）
n ＝n ＋1
Loop
Text1．Text ＝Str（n）
Text2．Text ＝Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
23.
某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
Private Sub Co mmand1＿Click（ ）
Di ma（10）As Integer ，max As Integer
For k ＝1TO 10
a（K）＝InputBox（＂输入一个整数＂）
Next k
Max＝0
For k ＝1To 10
If a（k）＞max Then
Max＝a（k）
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是（ ）。
24.
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：
Private Sub func（LAs Label）
L .Caption ＝＂1234＂
End Sub
Private Sub Form＿Load（）
Label1．Caption ＝＂ABCDE＂
Label2．Caption ＝10
End Sub
Private Sub Co mmand1＿Click（）
a＝Val（Label2．Caption）
Call func（Label1）
Label2．Caption ＝a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
26.
窗体上有一个名称为CD1的通用对话框，一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下：
窗体上有一个名称为CD1的通用对话框，一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Co mmand1＿Click（）
CD1．File Name ＝＂＂
CD1．Filter ＝＂All Files｜＊．＊｜（＊．Doc）｜＊．Doc｜（＊．Txt）｜＊．Txt＂
CD1．FilterIndex＝2
CD1．Action ＝1
End Sub
关于以上代码，叙述错误的是（ ）。
34.
设工程文件包含两个窗体文件Form1．frm、Form2．frm 及一个标准模块文件Module1．bas ，两个窗体上分别只有一个名称Co mmand1的命令按钮。
设工程文件包含两个窗体文件Form1．frm、Form2．frm 及一个标准模块文件Module1．bas ，两个窗体上分别只有一个名称Co mmand1的命令按钮。
Form1的代码如下：
Public X As Integer
Private Sub Form＿load（）
x＝1
y ＝5
End Sub
Private Sub Co mmand1＿Click（）
Form2．Show
End Sub
Form2的代码如下：
Private Sub Co mmand1＿Click（）
Print Form1．x，y
End Sub
Module1的代码如下：
Public y As Integer
运行以上程序，单击Form1的命令按钮Co mmand1，则显示Form2；再单击Form2上的命令按钮Co mmand1，则窗体上显示的是（ ）。
37.
有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y 处画一个点）：
有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y 处画一个点）：
Di mc mdmave As Boolean
Private Sub Form＿MouseDown （Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝True
End Sub
Private Sub Form＿Mouse Move（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） If c mdmave Then Form1．Pset（X，Y）
End If
End Sub
Private Sub Form＿Mouse Up（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝False
End Sub
此程序的功能是（ ）。
38.
在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
Private Sub Form＿Load（）
Command2．Enabled ＝False
Check1．Value ＝1
End Sub
刚运行程序时，看到的窗体外观是（ ）。
39.
下列程序的执行结果为（ ）。
下列程序的执行结果为（ ）。
Private Sub Co mmand1＿Click（）
Di mp As Integer ，q As Integer
p ＝12：q ＝20 Call Value（p ，q）
Print p ；q
End Sub
Private Sub Value（ByVal m As Integer ，ByVal n AsInteger）
m＝m＊2：n ＝n －5
Print m；n
End Sub
40.
在窗体上放置一个命令按钮Co mmand1，并编写下列单击事件的程序：
在窗体上放置一个命令按钮Co mmand1，并编写下列单击事件的程序：
Option Base 1
Private Sub Co mmand 1＿Click（）
Di mc As Integer ，d As Integer
d ＝0
c ＝6
X＝Array（2，4，6，8，10，12）
For i ＝1To 6
If X（i）＞c Then
d ＝d ＋X（i）
c ＝X（i）
Else
d ＝d －c
End If
Next i
Print d
End Sub
程序运行后，单击命令按钮，则在窗体上输出的内容为（ ）。
二、基本操作题
41.
(1)在窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为"操作"，名称为Op。该菜单有两个子菜单，其标题分别为"显示"和"退出"，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在文本框中显示"计算机考试"；如果单击"退出"命令，则程序结束。程序的运行情况如图4-1所示。
(1)在窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为"操作"，名称为Op。该菜单有两个子菜单，其标题分别为"显示"和"退出"，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在文本框中显示"计算机考试"；如果单击"退出"命令，则程序结束。程序的运行情况如图4-1所示。
图4-1
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
（2）在名为Form1的窗体上建立一个名为Cmd1、标题为"显示"的命令按钮。编写适当的事件过程，使程序运行后，若单击"显示"命令按钮，则在窗体上显示"计算机等级考试VisualBasic课程"。程序运行情况如图4-2所示。
图4-2
注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
三、简单应用题
42.
（1）在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有"?"号的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
（1）在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有"?"号的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在名称为Form1的窗体上有一个标题为"求n以内（包括n）所有奇数的和"的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的奇数的累加和。本题要求刚启动工程时，"计算显示"和"清空"按钮均为灰色，可以在输入框内输入任意自然数（n值太大时，运算时间将很长，建议不超过9位）。在输入数的同时"计算显示"变为可用；当输入数后，"计算显示"变为禁用；当输入为非数值时，累加结果为0。单击"计算显示"可以在Text1中显示累加和，同时"计算显示"变灰，"清空"变为可用。单击"清空"，输入框和显示框均被清空。
本题运行时的窗体界面如图39-3所示。
图39-3
（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序与控件结构是不完整的，请在有"?"号的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），同时补充完整需要的控件属性。存盘时不得改变文件名和文件夹。
本题描述如下：在窗体中有一个文本框控件，名称为Text1；两个命令按钮，名称分别为Command1和Command2、标题分别为"读取文本"、"统计字数"；一个名称为Label1的标签控件。要求程序运行后，单击Command1将考生文件夹下的sjin.txt的内容显示到Text1中；单击"统计字数"按钮统计Text1中有多少个字符，将结果显示在Label1中。
程序运行时的窗体界面如图39-4所示。
图39-4
四、综合应用题
43.
在考生文件夹下有一个工程文件sj5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为"取数"、"排序"、"存盘"。"取数"按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；"排序"按钮的功能是对这50个数按升序排序，并显示在Text2中；"存盘"按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写"排序"按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
