1、 全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计(考试时间：90 分钟，满分 100 分)二二年八月一、选择题(每题 2 分，共 70 分) 下列各题 A) 、 B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A) 工程资源管理器窗口 B) 工具箱窗口C) 代码窗口 D) 属性窗口(2) 以下叙述中正确的是A) 窗体的 Name 属性指定窗体的名称，用来标识一个窗体B) 窗体的 Name 属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的
2、 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)
3、的值为-1，则 X 的值是A) 整数 B) 大于 0 的整数 C) 等于 0 的整数 D) 小于 0 的数(6) 在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮 Commandl 后，窗体上显示的结果为A) 15 16 B) 15 6 C) 15 15 D) 5 6(7) 设 a=3,b=5，则以下表达式值为真的是A) a=b And b10 B)
4、(ab)Or(b0)C) (a0) D) (-3+5a)And(b0)(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”，
5、下面使 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=TimeEnd Sub在下划线上应填入的内容是A) Enabled B
6、) Visible C) Interval D) Timer(13) 在窗体上画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”和“黑体” ；一个复选框，名称为 Check1,标题为“粗体” ；一个文本框，名称为Text1，Text 属性为“改变文字字体” 。要求程序运行时， “宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是A) Option1.value=True B) Option1.Value=TrueCheck1.Value=False Check1.Value=TrueC) Option2.Value=False
7、D) Option1.Value=TrueCheck1.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 4For J=0 To 1Print Chr$(65+I);Next JPrintNext IEnd Sub程序运行后，如果单击
8、命令按钮，则在窗体上显示的内容是A) BB B) A C) B D) AACC BB CC BBBDDDD CCC DDD CCCCEEEEE DDDD EEEE DDDDD(16) 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是A) Autosize B) StretchC) AutoRedraw D) Appearance(17) 在窗体上画两个名称分别为 Text1、Texte2 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integ
9、erx=1n=0Do While x10 Then xit forNextText1.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 IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext IText1.Text=ar
10、ray1(2,3)+array1(3,4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A) 12 B) 13 C) 14 D) 15(20) (20) 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后，单击命令按钮，窗体上显示的是A) 12
11、3 B) 234 C) 147 D) 123246 345 258 456369 456 369 789(21) 设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd 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) 局部变
12、量的作用域可以超出所定义的过程C) 在某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D) 在调用过程时，所有局部变量被系统初始化为 0 或空字符串(23) 在窗体上画一个命令按钮，名称为 Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1。在 F1 中判断所输入的整数是否是奇数，如果是奇数，过程 F1 返回 1，否则返回 0。能够正确实现上述功能的代码是A) Private Sub Command1_Click()x=InputBox(“请输入整数”)a=F1(
13、Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd FunctionB) Private Sub Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd FunctionC) Private Sub Command1_Click()x=InputBox
14、(“请输入整数”)F1(Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd FunctionD) Private Sub Command1_Click()x=InputBox(“请输入整数”)F1(Val(x)Print aEnd SubFunction F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function(24) 在窗体上画一个名称为 Command1 的命令按钮和
15、一个名称为 Text1 的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是A) 0 B) 12 C) Str(z) D) 没有显示(25) 以下叙述中错误的是A) 如果过程被定义为 Static 类型，则该过程中
16、的局部变量都是 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
17、) 以下叙述中错误的是A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项B) 在菜单的标题栏中， “amax,”Min=”;aminEnd Sub(6) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_Load()Text1.Text=”计算机”End SubPrivate Sub Text1_Change()Picture1.Print“等级考试”End Sub程序运行后，在文本框中显示的内容是 10 ，而在图片框中显示的内容是 11 。(7) 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序：Function M(x A
18、s Integer,y As Integer)As IntegerM=IIf(xy,x,y)End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub程序运行后，单击命令按钮，输出结果为 12 。(8) 为了改变计时器控件的时间间隔，应该修改该控件的 13 属性。(9) 在窗体上画一个名称为 Lable1 的标签和一个名称为 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label1 中显示所选中的项目，如图
19、所示。请在 14 和 15 处填入适当的内容将程序补充完整。Private Sub Form_load()List1.AddItem”北京”List1.AddItem”上海”List1.AddItem”湖北”End SubPrivate Sub 14 ()Label1.Caption= 15 End Sub评分标准和参考答案一、一、 选择题（(1)(20)每小题 2 分，(21)(30)每小题 2 分，共 70 分）(1) (1) C (2) (2) A (3) (3) C (4) (4) A (5) (5) D(6) (6) B (7) (7) B (8) (8) D (9) (9) D (
20、10) (10) B(11) (11) D (12) (12) D (13) (13) D (14) (14) C (15) (15) A(16) (16) B (17) (17) B (18) (18) C (19) (19) A (20) (20) D(21) (21) C (22) (22) C (23) (23) B (24) (24) B (25) (25) C(26) (26) D (27) (27) A (28) (28) D (29) (29) C (30) (30) A(31) (31) C (32) (32) B (33) (33) A (34) (34) B (35) (
21、35) A二、填空题(每空 2 分,共 20 分)【1】 Change【2】 Value【3】 Option(i).Value【4】 opt【5】 Label4.Caption 或 Form1.Label4.Caption 或Me.Label4.Caption 或 Command1.Parent_Label4.Caption【6】 Change【7】 PopupMenu【8】 x=0【9】 xx 或 amin=x【10】 计算机【11】 等级考试【12】 200【13】 Interval【14】 List1_DblClick 或 Form1.List1_DblClick 或 Me.list1_DblClick
