??End If
??End Function
??(24) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
??Private Sub Command1_Click() ??Dim x,y,z As Integer ??x=5 ??y=7 ??z=0
??Text1.text=“” ??Call P1(x,y,z) ??Text1.Text=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。为了在运行时隐藏该菜单项，应使用的语句是
??A) menu1.Enabled=True B) Munu1.Enabled=False ??C) Menu1.Visible=True D) Menu1.Visible=False ??(29) 以下叙述中错误的是
??A) 在程序运行时，通用对话框控件是不可见的
??B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用
??C) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文
件
??D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框
??(30) 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是 ??A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)” ??C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)” ??(31) 以下叙述中错误的是
??A) 一个工程中只能有一个Sub Main过程
??B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 ??C) 窗体的Hide方法和Unload方法的作用完全相同
??D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 ??(32) 以下叙述中错误的是
??A) 一个工程中可以包含多个窗体文件
??B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
??C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
??D) 全局变量必须在标准模块中定义
??(33) 设在工程中有一个标准模块，其中定义了如下记录类型 ??Type Books
??Name As String *10
??TelNum As String *20 ??End Type
??在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 ??A) Private Sub Command1_Click() ??Dim B As Books
??Open “c:\\Person.txt”For Output As #1 ??B.Name=InputBox(“输入姓名”)
??B.TelNum=InputBox(“输入电话号码”) ??Write #1,B.Name,B.TelNum ??Close #1
??End Sub
??B) Private Sub Command1_Click() ??Dim B As Books
??Open “c:\\Person.txt”For Input As #1 ??B.Name=InputBox(“输入姓名”) ??B.TelNum=InputBox(“输入电话号码”) ??Print #1,B.Name,B.TelNum ??Close #1 ??End Sub
??C) Private Sub Command1_Click() ??Dim B As Books
??Open “c:\\Person.txt”For Output As #1
??B.Name=InputBox(“输入姓名”) ??B.TelNum=InputBox(“输入电话号码”) ??Write #1,B ??Close #1 ??End Sub
??D) Private Sub Command1_Click()
??Open “c:\\Person.txt”For Input As #1 ??Name=InputBox(“输入姓名”)
??TelNum=InputBox(“输入电话号码”) ??Print #1,Name,TelNum ??Close #1 ??End Sub
??(34) 以下叙述中正确的是
??A) 一个记录中所包含的各个元素的数据类型必须相同 ??B) 随机文件中每个记录的长度是固定的
??C) Open命令的作用是打开一个已经存在的文件 ??D) 使用Input #语句可以从随机文件中读取数据 ??(35) 目录列表框的Path属性的作用是
??A) 显示当前驱动器或指定驱动器上的目录结构
??B) 显示当前驱动器或指定驱动器上的某目录下的文件名 ??C) 显示根目录下的文件名
??D) 显示该路径下的文件
??二、填空题( 每空2分，共40分）
?? 请将每空的正确答案写在答题卡( 1)至( 15) 的横线上，答在试卷上不得分。
??(1) 在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在 [1] 和 [2] 处填入适当的内容，将程序补充完整。 ??
??Private Sub HScroll1_ [1] () ??Labl2.Caption=HScroll1. [2]
??End Sub
??(2) 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在 [3] 、 [4] 和 [5] 处填入适当的内容，将程序补充完整。 ?? ??
??Private Sub Command1_Click() ??For i=0 To 3 ??If [3] =True then
??opt=Option1(i).Caption ??End If ??Next
??Select Case [4] ??Case”+”
??Result=Val(Text1.Text)+Val(Text2.Text) ??Case”-”
??Result=Val(Text1.Text)-Val(Text2.Text) ??Case”*”
??Result=Val(Text.Text)*Val(Text2.Text) ??Case”/”
??Result=Val(Text1.Text)/Val(Text2.Text) ??End Select ?? [5] =Result ??End Sub
??(3) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。 ??Private Sub Form_Load() ??Command1.Enabled=False ??End Sub
??Private Sub Text1_ [6] ( )
??Command1.Enabled=True
??End Sub
??(4) 在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 ?? Form1. [7] Pmenu
??(5) 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [8] 和 [9] 处填入适当的内容，将程序补充完整。
??Private Sub Form_Click()
??Dim x As Single,amax As Single,amin As Single ??x=InputBox(“Enter a score”) ??amax=x ??amin=x ??Do While [8] ??If x>amax Then ??Amax=x ??End If ??If [9]Then ??Amin=x ??End If
??x=InputBox(“Enter a score”)
??Loop
??Print”Max=”;amax,”Min=”;amin ??End Sub
??(6) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： ??Private Sub Form_Load() ??Text1.Text=”计算机” ??End Sub
??Private Sub Text1_Change() ??Picture1.Print“等级考试” ??End Sub
?? 程序运行后，在文本框中显示的内容是 [10] ，而在图片框中显示的内容是 [11] 。 ??(7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： ??Function M(x As Integer,y As Integer)As Integer ??M=IIf(x>y,x,y) ??End Function
??Private Sub command1_Click() ??Dim a As Integer,b As Integer ??a=100 ??b=200
??Print M(a,b)
??End Sub
?? 程序运行后，单击命令按钮，输出结果为 [12] 。
??(8) 为了改变计时器控件的时间间隔，应该修改该控件的 [13] 属性。
??(9) 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。 ??Private Sub Form_load() ??List1.AddItem”北京” ??List1.AddItem”上海” ??List1.AddItem”湖北” ??End Sub
??Private Sub [14] () ??Label1.Caption= [15]
??End Sub
??2002年9月全国计算机等级考试二级 VB 试卷答案 ??
??一、选择题：
??1—10 C A C A D B B D D B ??11—20 D D D C A B B B A D ??21—30 C C B B D C A D C A ??31—35 C B A D A ??
??二、填空题：