《全国计算机等级考试二级VB试卷.docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB试卷.docx（23页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 全国计算机等级考试二级VB试卷 一、选择题(每题2分，共70分) 以下各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 (1) 在设计阶段，当双击窗体上的某个控件时，所翻开的窗口是 A) 工程资源治理器窗口 B) 工具箱窗口 C) 代码窗口 D) 属性窗口 (2) 以下表达中正确的选项是 A) 窗体的Name属性指定窗体的名称，用来标识一个窗体 B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C) 可以在运行期间转变对象的Name属性的值 D) 对象的Name属性值可以为空 (3) 刚建立一个新的标准EXE工程
2、后，不在工具箱中消失的控件是 A) 单项选择按钮 B) 图片框 C) 通用对话框 D) 文本框 (4) 设有如下变量声明 Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 A) TextDate=#1/1/2023# B) TestDate=#“1/1/2023”# C) TextDate=date(“1/1/2023”) D) TestDate=Format(“m/d/yy”,“1/1/2023”) (5) 设有如下声明： Dim X As Integer 假如Sgn(X) 的值为-1，则X的值是 A) 整数 B) 大于0的整数 C) 等于0的整数 D)
3、小于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 b10 B) (ab)Or(b0) C) (a0)eqv(b0) D) (-3+5a)And
4、(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”，下面使b=“Basic”的语句是 A) b=Left(a,8,12) B)
5、 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
6、(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.
7、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
8、 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 Wh
9、ile x20 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 i10 Then xit for Next Tex
10、t1.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 array1(i,j)=i+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程
11、序运行后，单击命令按钮，在文本框中显示的值是 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) 12
12、3 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) 局部变量的作用
13、域可以超出所定义的过程 C) 在某个Sub过程中定义的局部变量可以与其它大事过程中定义的局部变量同名，但其作用域只限于该过程 D) 在调用过程时，全部局部变量被系统初始化为0或空字符串 (23) 在窗体上画一个命令按钮，名称为Command1。程序运行后，假如单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中推断所输入的整数是否是奇数，假如是奇数，过程F1返回1，否则返回0。能够正的确现上述功能的代码是 A) Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x) Pri
14、nt 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
15、() 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 Func
16、tion (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)
17、 没有显示 (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
18、) 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
19、(29) 以下表达中错误的选项是 A) 在程序运行时，通用对话框控件是不行见的 B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）翻开的通用对话框具有不同的作用 C) 调用通用对话框控件的ShowOpen方法，可以直接翻开在该通用对话框中指定的文件 D) 调用通用对话框控件的ShowColor方法，可以翻开颜色对话框 (30) 在用通用对话框控件建立“翻开”或“保存”文件对话框时，假如需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是 A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)” C
20、) “text(.txt)|(*.txt)” D)“text(.txt)(*.txt)” (31) 以下表达中错误的选项是 A) 一个工程中只能有一个Sub Main过程 B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体 C) 窗体的Hide方法和Unload方法的作用完全一样 D) 若工程文件中有多个窗体，可以依据需要指定一个窗体为启动窗体 (32) 以下表达中错误的选项是 A) 一个工程中可以包含多个窗体文件 B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D) 全局变量
21、必需在标准模块中定义 (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.Tel
22、Num=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:Pers
23、on.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) 一个记录中所包含的各个元素的数据类型必需一样
24、B) 随机文件中每个记录的长度是固定的 C) Open命令的作用是翻开一个已经存在的文件 D) 使用Input #语句可以从随机文件中读取数据 (35) 名目列表框的Path属性的作用是 A) 显示当前驱动器或指定驱动器上的名目构造 B) 显示当前驱动器或指定驱动器上的某名目下的文件名 C) 显示根名目下的文件名 D) 显示该路径下的文件 二、填空题( 每空2分，共40分） 请将每空的正确答案写在答题卡( 1)至( 15) 的横线上，答在试卷上不得分。 (1) 在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水
25、平滚动条，其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个单项选择按纽的
26、控件数组，名称为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”-”
27、 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_Lo
28、ad() 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,am
29、in As Single x=InputBox(“Enter a score”) amax=x amin=x Do While 8 If xamax Then Amax=x End If If 9Then 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() Pi
30、cture1.Print“等级考试” End Sub 程序运行后，在文本框中显示的内容是 10 ，而在图片框中显示的内容是 11 。 (7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer,y As Integer)As Integer M=IIf(xy,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)
31、 为了转变计时器控件的时间间隔，应当修改该控件的 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 答案： 一、选择题： 110 C A C A D B B D D B 1120 D D D C A B B B A D 2130 C C B B D C A D C A 3135 C B A D A 二、填空题： 1、CHANGE 2、VALUE 3、OPTION1（I）.VALUE 4、OPT 5、LABEL4。CAPTION 6、CHANGE 7、 POPUPMENU 8、X=0 9、Xamain 10、计算机= 11、无显示= 12、200= 13、interval 14、LIST1_DBLCLICK 15、LIST1.TXT