200209月全国计算机等级考试二级VB试卷(含答案)

2002年9月全国计算机等级考试二级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_ ()五十二、=Time五十三、End Sub五十四、在下划线上应填入的内容是五十五、A) Enabled B) Visible C) Interval D) Timer五十六、(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。

要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是五十七、五十八、A) =True B) =True五十九、=False =True六十、C) =False D) =True六十一、=True =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九十、=Str(x)九十一、=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百三、=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百十三、array1(i,j)=i+j百十四、Next j百十五、Next I百十六、=array1(2,3)+array1(3,4)百十七、End Sub百十八、程序运行后，单击命令按钮，在文本框中显示的值是百十九、A) 12 B) 13 C) 14 D) 15百二十、(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：百二十一、Private Sub Command1_Click()百二十二、Dim i As Integer,j As Integer百二十三、Dim a(10,10)As Integer百二十四、For i=1 To 3百二十五、For j=1 To 3百二十六、a(i,j)=(i-1)*3+j百二十七、Print a(i,j);百二十八、Next j百二十九、Print百三十、Next j百三十一、End Sub百三十二、程序运行后，单击命令按钮，窗体上显示的是百三十三、A) 123 B) 234 C) 147 D) 123百三十四、 246 345 258 456百三十五、 369 456 369 789百三十六、 (21) 设有如下程序：百三十七、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百四十六、程序运行后，单击窗体，则在窗体上显示的是百四十七、A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4百四十八、(22) 下列叙述中正确的是百四十九、A) 在窗体的Form_Load事件过程中定义的变量是全局变量百五十、B) 局部变量的作用域可以超出所定义的过程百五十一、C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程百五十二、D) 在调用过程时，所有局部变量被系统初始化为0或空字符串百五十三、(23) 在窗体上画一个命令按钮，名称为Command1。

程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。

在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。

能够正确实现上述功能的代码是百五十四、A) Private Sub Command1_Click()百五十五、x=InputBox(“请输入整数”)百五十六、a=F1(Val(x))百五十七、Print a百五十八、End Sub百五十九、百六十、Function F1(ByRef b As Integer)百六十一、If b Mod 2=0 Then百六十二、Return 0百六十三、Else百六十四、Return 1百六十五、End If百六十六、End Function百六十七、B) Private Sub Command1_Click() 百六十八、x=InputBox(“请输入整数”)百六十九、a=F1(Val(x))百七十、Print a百七十一、End Sub百七十二、百七十三、Function F1(ByRef b As Integer) 百七十四、If b Mod 2=0 Then百七十五、F1=0百七十六、Else百七十七、F1=1百七十八、End If百七十九、End Function百八十、C) Private Sub Command1_Click()百八十一、x=InputBox(“请输入整数”)百八十二、F1(Val(x))百八十三、Print a百八十四、End Sub百八十五、百八十六、Function F1(ByRef b As Integer) 百八十七、If b Mod 2=0 Then百八十八、F1=1百八十九、Else百九十、F1=0百九十一、End If百九十二、End Function百九十三、D) Private Sub Command1_Click() 百九十四、x=InputBox(“请输入整数”)百九十五、F1(Val(x))百九十六、Print a百九十七、End Sub百九十八、百九十九、Function F1(ByRef b As Integer) 二百、If b Mod 2=0 Then二百一、Return 0二百二、Else二百三、Return 1二百四、End If二百五、End Function二百六、(24) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：二百七、Private Sub Command1_Click()二百八、Dim x,y,z As Integer二百九、x=5二百十、y=7二百十一、z=0二百十二、=“”二百十三、Call P1(x,y,z)二百十四、=Str(x)二百十五、End Sub二百十六、Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)二百十七、c=a+b二百十八、End Sub二百十九、程序运行后，如果单击命令按钮，则在文本框中显示的内容是二百二十、A) 0 B) 12 C) Str(z) D) 没有显示二百二十一、(25) 以下叙述中错误的是二百二十二、A) 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型二百二十三、B) Sub过程中不能嵌套定义Sub过程二百二十四、C) Sub过程中可以嵌套调用Sub过程二百二十五、D) 事件过程可以像通用过程一样由用户定义过程名二百二十六、(26) 以下叙述中错误的是二百二十七、A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)二百二十八、B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)二百二十九、C) KeyPress事件中不能识别键盘上某个键的按下与释放二百三十、D) KeyPress事件中可以识别键盘上某个键的按下与释放二百三十一、(27) 以下叙述中错误的是二百三十二、A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项二百三十三、B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键二百三十四、C) 程序运行过程中，可以重新设置菜单的Visible属性二百三十五、D) 弹出式菜单也在菜单编辑器中定义二百三十六、(28) 设在菜单编辑器中定义了一个菜单项，名为menu1。