计算机等级考试二级VB语言笔试试题及答案

一、选择题(每题2分，共70分)
　　下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
　　(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
　　A) 工程资源管理器窗口 B) 工具箱窗口
　　C) 代码窗口 D) 属性窗口
　　(2) 以下叙述中正确的是
　　A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
　　B) 窗体的Name属性的值是显示在窗体标题栏中的文本
　　C) 可以在运行期间改变对象的Name属性的值
　　D) 对象的Name属性值可以为空
　　(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
　　A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框
　　(4) 设有如下变量声明
　　 Dim TestDate As Date
　　为变量TestDate正确赋值的表达方式是
　　A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#
　　C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)
　　(5) 设有如下声明：
　　 Dim X As Integer
　　如果Sgn(X) 的值为-1，则X的值是
　　A) 整数 B) 大于0的整数 C) 等于0的整数 D) 小于0的数
　　(6) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
　　Private Sub Command1_Click()
　　Static X As Integer
　　Static Y As Integer
　　Cls
　　Y=1
　　Y=Y+5
　　X=5+X
　　Print X,Y
　　End Sub
　　程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
　　A) 15 16 B) 15 6 C) 15 15 D) 5 6
　　(7) 设a=3,b=5，则以下表达式值为真的是
　　A) a>=b And b>10 B) (a>b)Or(b>0)
　　C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0)
　　(8) 设有语句
　　x=InputBox(“输入数值”，“0”，“示例”)
　　程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
　　A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”
　　C) 0是默认值 D) 变量X的值是字符串“10”
　　(9) 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
　　A) Left B) Mid C) String D) Instr
　　(10) 设a=“Visual Basic”，下面使b=“Basic”的语句是
　　A) b=Left(a,8,12) B) b=Mid(a,8,5)
　　C) b=Rigth(a,5,5) D) b=Left(a,8,5)
(11) 以下能够触发文本框Change事件的操作是
　　A) 文本框失去焦点 B) 文本框获得焦点
　　C) 设置文本框的焦点 D) 改变文本框的内容
　　(12) 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
　　Private Sub Timer1_ ()
　　TxtTime.text=Time
　　End Sub
　　在下划线上应填入的内容是
　　A) Enabled B) Visible C) Interval D) Timer
　　(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是
　　A) Option1.value=True B) Option1.Value=True
　　Check1.Value=False Check1.Value=True
　　C) Option2.Value=False D) Option1.Value=True
　　Check1.Value=True Check1.Value=1
　　(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
　　A) Value B) Default C) Cancel D) Enabled
　　(15) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
　　Private Sub Command1_Click()
　　 For I=1 To 4
　　 For J=0 To 1
　　 Print Chr$(65+I);
　　 Next J
　　 Print
　　 Next I
　　End Sub
　　程序运行后，如果单击命令按钮，则在窗体上显示的内容是
　　A) BB B) A C) B D) AA
　　CC BB CC BBB
　　DDDD CCC DDD CCCC
　　EEEEE DDDD EEEE DDDDD
　　(16) 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是
　　A) Autosize B) Stretch
　　C) AutoRedraw D) Appearance
　　(17) 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　Dim x As Integer,n As Integer
　　x=1
　　n=0
　　Do While x<20
　　x=x*3
　　n=n+1
　　Loop
　　Text1.Text=Str(x)
　　Text2.Text=Str(n)
　　End Sub
　　程序运行后，单击命令按钮，在两个文本框中显示的值分别是
　　A) 15和1 B) 27和3 C) 195和3 D) 600和4
　　(18) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　Dim i As Integer,n As Integer
　　For I=0 To 50
　　i=i+3
　　n=n+1
　　If i>10 Then xit for
　　Next
　　Text1.Text=Str(n)
　　End Sub
　　程序运行后，单击命令按钮，在文本框中显示的值是
　　A) 2 B) 3 D) 4 D) 5
　　(19) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　Dim array1(10,10) As Integer
　　Dim i,j As Integer
　　For i=1 To 3
　　For j=2 To 4