2014年全国计算机等级《二级VB》考前押密试题(4)

执行下列语句：
strInput ＝InputBox（＂请输入字符串＂，＂字符串对话框＂，＂字符串＂）
将显示输入对话框。此时如果直接单击"确定"按钮，则变量strlnput 的内容是（　　）。

在窗体上有一个文本框控件，名称为Txt Ti me ，一个计时器控件，名称为Ti mer1，要求每一秒钟在文本框中显示一次当前的时间。程序如下：
Private Sub Ti mer1＿（）
Txt Ti me ．text ＝Ti me
End Sub
在横线上应填入的内容是（　　）。

设a ＝＂Visual Basic＂，下面使b ＝＂Basic＂的语句是（　　）。

执行语句Di m X，Y As Integer 后，（　　）。

以下关于多重窗体程序的叙述中，错误的是（　　）。

只有将组合框的Style 属性设置为何值，才能触发DblClick 事件？（ ）。

数据流图中带有箭头的线段表示的是（　　）。

SQL语言又称为（ ）。

源程序的文档化不包括（　　）。

窗体上有一个列表框和一个文本框，编写下列两个事件过程：
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
程序运行后，在文本框中输入"中国"，然后单击列表框中的"北京"，则输出结果是（　　）。

为了在列表框中使用Ctrl 和Shift 键进行多个列表项的选择，应将列表框的Multi Select 属性设置为（　　）。

设有如下程序：
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
对上述程序，以下叙述中正确的是（　　）。

下列符号常量的声明中，不合法的是（　　）。

MsgBox 函数的返回值的类型为（ ）。

下列说法正确的是（　　）。

在窗体上画一个命令按钮（名称为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
程序运行后，单击命令按钮，输出结果是（　　）。

执行下列程序段后，整型变量n 的值为（　　）。
n ＝0
For i ＝1To 20Step 5
n ＝n ＋1
Next i

设有变量声明为"Di m aDate As Date"，则为变量aDate 正确赋值的表达方式是（　　）。

下列叙述中错误的是（　　）。

窗体上有一个名称为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
以上程序所计算的表达式是（　　）。

在窗体上画两个文本框（其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
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　　）。

某人编写了如下程序，用来求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个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是（　　）。

在窗体上画两个标签和一个命令按钮，其名称分别为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
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（　）。

要在命令按钮控件上显示图像应（　　）。

窗体上有一个名称为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
关于以上代码，叙述错误的是（　　）。

可以产生30～50(含30和50)之间的随机整数的表达式是( )。

在窗体上建立通用对话框需要添加的控件是（　　）。

设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是（　　）。

声明一个变量为局部变量应该用（　　）。

如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（　　）。

已知a＝5，b ＝／，c ＝12，下列表达式的值为True 的是（　　）。

在设计窗体时双击窗体的任何地方，可以打开的窗口是（　　）。

设工程文件包含两个窗体文件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，则窗体上显示的是（ ）。

在Visual Basic 工程中，可以作为"启动对象"的程序是（　　）。

将文本框的Pass wordChar 属性设置为一个星号＊，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（　　）。

有一个名称为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
此程序的功能是（　　）。

在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
　　
Private Sub Form＿Load（）
Command2．Enabled ＝False
Check1．Value ＝1
End Sub
刚运行程序时，看到的窗体外观是（　　）。

下列程序的执行结果为（　　）。
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

在窗体上放置一个命令按钮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
程序运行后，单击命令按钮，则在窗体上输出的内容为（　　）。

(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。

（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

在考生文件夹下有一个工程文件sj5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为"取数"、"排序"、"存盘"。"取数"按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；"排序"按钮的功能是对这50个数按升序排序，并显示在Text2中；"存盘"按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写"排序"按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。