全国计算机等级考试二级VB模拟试题18

日期：12-29| http://www.59wj.com |VB模拟题|人气:436次

全国计算机等级考试二级VB模拟试题18 答案 www.59wj.com 答案 www.59wj.com 答案 www.59wj.com 答案 www.59wj.com 答案 www.59wj.com 答案 www.59wj.com 答案

www.59wj.com 答案

二、填空题（每空2分，共计30分）
1.数组0[n]表示一个环形队列，设f的值为队列中第一个元素的位置，r的值为队列中实际队尾元素的位置加1，并假定队列中至多只有n-1个元素，则计算队列中有元素个数的公式为____。
输入答案，中间不含空格:
2.在插入和选择排序中，若初始数据基本正序，则选用____。
输入答案，中间不含空格:
3.设计数据库模式结构时应首先确定____。
输入答案，中间不含空格:
4.假设班级和班长之间的联系是一对一联系，则班级和学生之间的联系是____的联系。
输入答案，中间不含空格:

www.59wj.com 答案

5.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色）。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在____处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1._____()
Command1.Enabled = True
End Sub

输入答案，中间不含空格:

6.在窗体上画一个命令按钮，其名称为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
程序运行后，单击命令按钮，输出结果为______。

输入答案，中间不含空格:

7.为了改变计时器控件的时间间隔，应该修改该控件的____属性。

输入答案，中间不含空格:

8.如果希望使用变量X来表示钱款，应将变量X声明为____类型。

输入答案，中间不含空格:

9.列表框中列表项的数目可通过以下____属性获得。

输入答案，中间不含空格:

www.59wj.com 答案

10.下面程序用于求三个数中的最大数，试将程序段填写完整。
Private Sub Command1_Click( )
a=Val(InputBox("请输入第一个数"))
b=Val(InputBox("请输入第二个数"))
____
Max=a
Min=a
If ____ Then Max=b
If ____ Then Min=b
If c>Max Then Max=c
If c Print"最大数为";Max
Print"最小数为";Min
End Sub

输入答案，中间不含空格:

11.上一题第 2 空

输入答案，中间不含空格:

12.上一题第 3 空

输入答案，中间不含空格:

13.一个VB应用程序有多种存盘文件，并由不同的扩展名来区分，其中.bas文件为标准
模块，.frm文件为____，.cls文件为类模块，.vbp文件为单工程，.vbg文件为____。

输入答案，中间不含空格:

14.上一题第 2 空

输入答案，中间不含空格:

www.59wj.com 如果觉得《全国计算机等级考试二级VB模拟试题18》VB模拟题,jsj不错，可以推荐给好友哦。

本文Tags： 计算机等级考试 - 模拟试题 - 计算机二级模拟试题 - VB模拟题,jsj,

在百度中搜索相关文章：全国计算机等级考试二级VB模拟试题18
在谷歌中搜索相关文章：全国计算机等级考试二级VB模拟试题18
在soso中搜索相关文章：全国计算机等级考试二级VB模拟试题18
在搜狗中搜索相关文章：全国计算机等级考试二级VB模拟试题18

31.在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容为____。 A、bbb B、BBB C、BB D、bb
A B C D
32.编写如下事件过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single,Y As Single) If Shift=6 And Button=2 Then Print "Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下____操作。 A、同时按下Shift键和鼠标左按钮 B、同时按下Shift键和鼠标右按钮 C、同时按下Ctrl、Alt键和鼠标左按钮 D、同时按下Ctrl、Alt键和鼠标右按钮
A B C D
33.设在D盘下有一文本文件fm.txt，该文件中存储了一些记录信息，在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String End Type Private Sub Command1_Click() Dim MaxSize,Nextchar,Mychar Open "d:“fm.txt" For Input As #2 Maxsize=LOF(2) For NextChar=Maxsize To 1 Step -1 Seek #2,NextChar MyChar=Input(1,#2) Next Nextchar Print EOF(2) Close #2 End Sub 程序运行后，单击命令按钮，其输出结果为_____。 A、0 B、Null C、True D、False
A B C D
34.单击窗体时输出“斐波那契数列”的前20项。该数列第一项为0，第二项为1，其后每一项的值都是前两项之和。即：0,1,1,2,3,5,8,13,…以下为实现此运算的程序段，试填写以下程序中空白处，构成完整程序。 Private Sub Form_Clicd( ) X1=1 X2=1 N=0 Do While____ Print X1,X2 X1=X1+X2 X2=X1+X2 N=N+1 Loop End Sub A、N<=10 B、N<9 C、N<10 D、N<20
A B C D
35.设有如下程序： Option Base O Prvate 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
A B C D
36.____是把输入转化为输出的一组彼此相关的资源和活动。
A B C D
二、填空题（每空2分，共计30分）
1.数组0[n]表示一个环形队列，设f的值为队列中第一个元素的位置，r的值为队列中实际队尾元素的位置加1，并假定队列中至多只有n-1个元素，则计算队列中有元素个数的公式为____。
输入答案，中间不含空格:
2.在插入和选择排序中，若初始数据基本正序，则选用____。
输入答案，中间不含空格:
3.设计数据库模式结构时应首先确定____。
输入答案，中间不含空格:
4.假设班级和班长之间的联系是一对一联系，则班级和学生之间的联系是____的联系。
输入答案，中间不含空格:
5.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色）。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在____处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled = False End Sub Private Sub Text1._____() Command1.Enabled = True End Sub
输入答案，中间不含空格:
6.在窗体上画一个命令按钮，其名称为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 程序运行后，单击命令按钮，输出结果为______。
输入答案，中间不含空格:
7.为了改变计时器控件的时间间隔，应该修改该控件的____属性。
输入答案，中间不含空格:
8.如果希望使用变量X来表示钱款，应将变量X声明为____类型。
输入答案，中间不含空格:
9.列表框中列表项的数目可通过以下____属性获得。
输入答案，中间不含空格:
10.下面程序用于求三个数中的最大数，试将程序段填写完整。 Private Sub Command1_Click( ) a=Val(InputBox("请输入第一个数")) b=Val(InputBox("请输入第二个数")) ____ Max=a Min=a If ____ Then Max=b If ____ Then Min=b If c>Max Then Max=c If c Print"最大数为";Max Print"最小数为";Min End Sub
输入答案，中间不含空格:
11.上一题第 2 空
输入答案，中间不含空格:
12.上一题第 3 空
输入答案，中间不含空格:
13.一个VB应用程序有多种存盘文件，并由不同的扩展名来区分，其中.bas文件为标准模块，.frm文件为____，.cls文件为类模块，.vbp文件为单工程，.vbg文件为____。
输入答案，中间不含空格:
14.上一题第 2 空
输入答案，中间不含空格: