全国计算机二级vb考试题库
“无秋好人”通过精心收集，向本站投稿了12篇全国计算机二级vb考试题库，下面是小编收集整理后的全国计算机二级vb考试题库，供大家参考借鉴，希望可以帮助到有需要的朋友。
篇1：全国计算机二级vb考试题库
一、选择题((1)~(35)每小题2分，共70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1)数据的存储结构是指______。
A)存储在外存中的数据 B)数据所占的存储空间量
C)数据在计算机中的顺序存储方式 D)数据的逻辑结构在计算机中的表示
(2)下列关于栈的描述中错误的是______。
A) 栈是先进后出的线性表
B) 栈只能顺序存储
C) 栈具有记忆作用
D)对栈的插入与删除操作中，不需要改变栈底指针
(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是______。
A)冒泡排序为n/2 B)冒泡排序为n
C)快速排序为n D)快速排序为n(n-1)/2
(4)对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为______。
A)log2n B)n/2 C)n D)n+1
(5)下列对于线性链表的描述中正确的是______。
A) 存储空间不一定是连续，且各元素的存储顺序是任意的
B) 存储空间不一定是连续，且前件元素一定存储在后件元素的前面
C) 存储空间必须连续，且前件元素一定存储在后件元素的前面
D) 存储空间必须连续，且各元素的存储顺序是任意的
(6)下列对于软件测试的描述中正确的是______。
A) 软件测试的目的是证明程序是否正确
B) 软件测试的目的是使程序运行结果正确
C) 软件测试的目的是尽可能多地发现程序中的错误
D) 软件测试的目的是使程序符合结构化原则
(7)为了使模块尽可能独立，要求______。
A) 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B) 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C) 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D) 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
(8)下列描述中正确的是______。
A)程序就是软件 B)软件开发不受计算机系统的限制
C)软件既是逻辑实体，又是物理实体
D)软件是程序、数据与相关文档的集合
(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指______。
A)数据与程序独立存放
B)不同的数据被存放在不同的文件中
C)不同的数据只能被对应的应用程序所使用
D)以上三种说法都不对
(10)用树形结构表示实体之间联系的模型是______。
A)关系模型 B)网状模型 C)层次模型 D)以上三个都是
(11)在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。
A) Private Sub Text1_Change
Command1.Caption = “计算机等级考试”
End Sub
B) Private Sub Command1_ Click ()
Caption = “计算机等级考试”
End Sub
C) Private Sub Form1_ Click ()
Text1.Caption = “计算机等级考试”
End Sub
D) Private Sub Command1_ Click ()
Text1.Text = “计算机等级考试”
End Sub
(12)设a=5，b=4，c=3，d=2下列表达式的值是______。
3 > 2 * b Or a = c And b c Or c > d
A)1 B)True C) False D)2
(13)设a = “MicrosoftVisualBasic” ，则以下使变量b的值为“VisualBasic”的语句是______。
A) b = Left(a, 10) B) b = Mid(a, 10)
C) b = Right(a, 10) D) b = Mid(a, 11, 10)
(14)假定有如下的窗体事件过程：
Private Sub Form_Click()
a$ = “Microsoft Visual Basic”
b$ = Right(a$, 5)
c$ = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。
A) Microsoft Visual B) Microsoft
C) Basic D)5
(15)设a = “a”，b = “b”，c = “c”，d = “d”，执行语句x=IIf((ad),”A”,”B”)后，x的值为 ______。
A)”a” B)”b” C)”B” D)”A”
(16)为了使命令按钮(名称为Command1)右移200，应使用的语句是______。
A) Command1.Move -200
B) Command1.Move 200
C) Command1.Left = Command1.Left + 200
D) Command1.Left = Command1.Left - 200
(17)在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
x = InputBox(“请输入一个整数”)
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为______。
A) 123 B)456 C) 479 D) 123456
(18)在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1.______
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在下划线处应填入的内容是______。
A) Enabled = True B) Enabled = False
C) Visible = True D) Visible = False
(19)假定在图片框Picture1中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是______。
A)选择图片框，然后按Del键
B)执行语句Picture1.Picture = LoadPicture (“”)
C)执行语句Picture1.Picture =“”
D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键
篇2：计算机二级vb上机题库
(34)某人设计了下面的函数fun，功能是返回参数a中数值的位数
Function fun(a As Integer) As Integer
Dim n%
n = 1
While a 10 >= 0
n = n + 1
a = a 10
Wend
fun = n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是
A)把语句n = 1改为n = 0
B)把循环条件a 10 >= 0改为a 10 > 0
C)把语句 a = a 10改为a = a Mod 10
D)把语句fun = n改为 fun = a
(35)在窗体上有一个名称为Check1的复选框数组
(含4个复选框)，还有一个名称为Text1的文本
框，初始内容为空。程序运行时，单击任何复选
框，则把所有选中的复选框后面的方字罗列在文
本框中(见图)。下面能实现此功能的事件过程是
A)Private Sub Check1_Click(Indes As Integer)
Text1.Text =“”
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & “ ” '双引号中是空格
End If
Next k
End Sub
B)Private Sub Check1_Click(Index As Integer)
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & “ ” '双引号中是空格
End If
Next k
End Sub
C)Private Sub Check1_Click(Index As Integer)
Text1.Text = “”
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(Index).Caption & “ ” '双引号中是空格
End If
Next k
End Sub
D)Private Sub Check1_Click(Index As Integer)
Text1.Text = “”
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & “ ” '双引号中是空格
Exit For
End If
Next k
End Sub
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。
(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】 。
(2)在两种基本测试方法中，【2】 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。
(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】 存储结构。
(4)对下列二叉树进行中序遍历的结果为【4】 。
(5)在E-R图中，矩形表示【5】 。
(6)窗体上有一个组合框，其中已输入了
若干个项目。程序运行时，单击其中一
项，即可把该项与最上面的一项交换。
例如：单击图1中的“重庆”，则与“北
京”交换，得到图2的结果。下面是可
实现此功能的程序，请填空。
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
(7)设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。
Dim [7] As Integer
Private Sub Form_Load()
pos=HScroIII.value
End Sub
Private Sub HScroIII_Change()
Print [8] -pos
pos=HScroIII.value
End Sub
(8)设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。
Private Sub Command1_Click()
CD1.Filter =“文本文件1*.txt(Word 文档)*.doc”
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName“”Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
(9)下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox(“请输入一个正整数”)
While x>__[11]___
Print x Mod 10;
x=x10
Wend
Print__[12]__
End Sub
篇3：计算机二级VB考试练习题
1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)
A.此时会触发change事件
B.此时不会触发change事件
C.在文本框中显示了滚动条滑块所在位置的值
D.此时不会触发scroll事件
2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下说法不正确的是(C) (单)
A.窗体的背景色是一个随机的颜色
B.RGB函数取得到的颜色有256*256*256种
C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数
D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数
3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
5.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序(A) (单)
(1)Slider控件的滑块处于最小位置时值为8
(2)Slider控件的滑块处于最大位置时值为72
(3)单击Slider控件两端箭头时，滑块的增量值为2
(4)单击Slider控件的空白处时，滑块的增量值为8
A.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange =2：
Slider1.LargeChange = 8
B.Slider1.Min = 2：
Slider1.Max = 8：
Slider1.SmallChange = 72：
Slider1.LargeChange = 8
C.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange = 8：
Slider1.LargeChange = 2
D.Slider1.Min = 72：
Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 8
6.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“utterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“utterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“utterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(C) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.PickBmp变量是逻辑变量，作用是表示图形的状态
C.App.Path表示绝对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
7.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“utterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“utterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“utterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(B) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.也可以将timer1控件的timer事件改写为change事件
C.App.Path表示相对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
8 .在ProgressBar进度条控件中，它的Value属性决定该控件被填充多少。√
9 .UpDown控件通常与伙伴控件“捆绑”在一起使用。√
10 .Animation控件可以用来显示有声音的AVI视频文件 ×。
11.对Animation控件所使用的方法描述不正确的是(B) (单)
A.Open方法用于打开文件
B.Play方法用于播放动画，格式为： Animation1.play AVI动画文件路径
C.Stop方法用于停止播放
D.Close方法用于关闭文件
12.下面的事件不属于鼠标器事件的是(D) (单)
A.MouseDown事件
B.MouseUp事件
C.MouseMove事件
D.Move事件
13.下面的事件不属于键盘事件的是(D) (单)
A.KeyPress事件
B.KeyDown事件
C.KeyUp事件
D.KeyMove事件
14.在窗体中有一个名称为command1的命令按钮，一个名称为text1的文本框，一个名称为commondialog1的通用对话框，编写如下程序：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
当单击命令按钮时，对程序的运行说法正确的是(B) (单)
A.打开一个颜色对话框
B.打开一个字体对话框
C.把文本框的背景颜色设置为对话框选择的字体颜色
D.把文本框的背景颜色设置为对话框中选择的颜色
15.当单击命令按钮时，对以下程序说法不正确的是(D) (单)
Sub command1_Click( )
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print text1.Text
Next i
Printer.EndDoc
End Sub
A.此文件的功能是打印文本框text1中的内容
B.语句Printer.EndDoc表示结束文挡打印
C.打开的打印对话框
D.以上说法都不正确
16.当单击命令按钮时，对以下程序说法不正确的是(C) (单)
Sub command1_Click( )
CommonDialog1.FileName = “default.txt”
CommonDialog1.DefaultExt = “Txt”
CommonDialog1.Action = 2
End Sub
A.设置缺省文件名为default.txt
B.设置缺省扩展名为Txt
C.显示的是文件“打开”对话框
D.显示的是“另存为”对话框
17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮，一个名称为text1的文本框。
如下程序：
Private Sub EditCopy_Click( )
st = Text1.SelText '将选中的内容存放到st变量中
End Sub
Private Sub EditCut_Click( )
st = Text1.SelText '
Text1.SelText = “”
End Sub
Private Sub EditPaste_Click( )
Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart
+ 1)
End Sub
对以上程序说法不正确的是(D) (单)
A.语句st = Text1.SelText的作用是：将text1文本框中选择的内容存放到st变量中
B.语句Text1.SelText = “” 的作用是：将text1文本框中选择的内容清除
C.单击EditCut命令按钮实现了text1文本框中选择的内容清除
D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴
18.对以下程序说法不正确的是(D) (单)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = “C:”
CommonDialog1.Filter = “文本文件 | *.Txt”
CommonDialog1.ShowOpen
End Sub
A.显示“文件”打开对话框
B.打开的对话框的初始目录为C盘根目录
C.打开的对话框的文件类型为文本文件
D.以上说法都不正确
19.双精度型数据的类型符为(A) (单)
A.#
B.*
C.&
D.@
20.整型数据的类型符为(B) (单)
A.#
B.%
C.&
D.@
1.计算机二级vb练习题
2.计算机二级考试试题VB练习题
3.计算机二级vb练习题及答案
4.计算机二级VB专项练习题
5.全国计算机二级《VB》练习题及答案
6.计算机二级VB考试模拟练习题
7.9月计算机二级考试《VB》强化练习题及答案
8.209月计算机二级考试《VB》强化练习题与答案
9.计算机二级VB强化试题及答案
10.计算机二级《VB》的常用算法
篇4：全国计算机二级考试VB程序设计复习试题
1． 为了把焦点移到某个指定的控件，所使用的方法是（ ）
（A）SetFocus （B）Visible （C）Refresh （D）GetFocus
2． 在VB中可以改变控件大小的操作是（ ）
（A）＜Shift + Ctrl＞ （B）＜Shift +方向键＞
（C）＜Ctrl + 空格键＞ （C）＜Ctrl + 方向键＞
3． 可以创建控件数组的方法是（ ）
（A） 在窗体上画上个控件，再画一个同类型的控件
（B） 在工具箱中双击某一个控件，再双击该控件
（C） 执行“工程”菜单中的“添加控件数组”选项
（D）单击某个控件，按＜Ctrl + C＞键，再按＜Ctrl + V＞键，在出现的对话框中单击【是】按钮
4． Label控件中显示的文字是由（ ）属性决定的。
（A）Text （B）Caption （C）Name （D）Forecolor
5． 为了选中窗体上的某个控件，应执行的操作是（ ）
（A）单击窗体 （B）单击该控件 （C）双击该控件 （D）双击窗体
6． 确定一个控件中窗体上的位置的属性是（ ）
（A）Width和Height （B）Width和Top
（C）Height和Left （D）Top和Left
7． 在程序运行期间，如果拖动滚动条上的滚动块，则触发滚动条的（ ）事件。
（A）Move （B）Change （C）Scroll （D）SetFocus
8． 要把窗体Form1加载到内存但不显示出来，可使用（ ）语句。
（A）Form1.Show （C）Form1.Hide
（C）Load Form1 （D）Unload Form1
9． 在程序运行期时，在窗体Form1中单击，发生的事件是（ ）
（A）Form_Click( ) （B）Form_Load( )
（C）Form1_Click( ) （D）Form1_Click( )
10． 窗体上有一个控件Command1，程序运行时，在该控件上单击，发生的事件是（ ）
（A）Command_Click( ) （B）Command_Dblclick( )
（C）Command1_Click( ) （D）Command1_Dblclick( )
篇5：全国计算机二级考试VB程序设计复习试题
1． 新建一个窗体后（名为Form1），立即在该窗体上双击，编写的`事件过程是（ ）
（A）Form_Click( )（B）Form_Load( )
（C）Form1_Click( ) （D）Form1_Click( )
2． 以下叙述中错误的的（ ）
（A） 双击鼠标可以触发Dblclick事件
（B）窗体或控件的事件的名称可以由编程人员确定
（C） 移动鼠标时，会触发MouseMove事件
（D） 控件的名称可以由编程人员设定
3． 一个对象可执行的动作与可被一个对象所识别的动作分别称为（ ）
（A）事件、方法 （B）方法、事件 （C）属性、方法 （D）过程、事件
4． 要想改变窗体边框线型，可使用的属性是（ ）
（A）FontStyle（B）BorderStyle （C）BackStyle （D）Border
5． 要把窗体中文字加粗显示，可设置窗体的（ ）属性
（A）FontBold （B）FontSize （C）FontUnderline （D）FontItalic
6． 窗体从加载到显示出来，下列最先发生的事件是（ ）
（A）Load （B）Resize （C）Activate （D）Paint
7． 关于复合语句行的使用，正确的方法是（ ）
（A） a = 3, b = 4, c = 5 ‘这里b是中间变量
（B）a = 3: b = 4: c = 5 ‘这里b是中间变量
（C） a = 3; b = 4; c = 5 ‘这里b是中间变量
（D） a = 3. b = 4. c = 5 ‘这里b是中间变量
8． 关于保存一个VB的应用程序，下列说法中正确的是（ ）
（A） 只要保存窗体文件即可
（B） 只要保存工程文件即可
（C） 分别保存工程文件和标准模块文件
（D）分别保存工程文件、窗体文件以及其它需要保存的文件
9． 在使用End语句时，如果执行了下面的过程，其结果是（ ）
Sub Command1_Click( )
End
End Sub
（A） 对程序没有什么影响
（B） 只关闭当前程序，对变量等没有影响
（C） 中止当前程序，重置所有变量
（D）中止当前程序，重置所有变量，关闭所有数据文件
10． 编写一个应用程序一般需要几个必须的且是常规的步骤，以下正确的是（ ）
（A）建立用户界面，设置属性，编写代码
（B） 建立用户界面，添加窗体，编写代码
（C） 添加窗体，设置属性，编写代码
（D） 建立用户界面，添加窗体，设置属性
篇6：全国计算机二级考试VB程序设计复习试题
全国计算机二级考试VB程序设计复习试题
1． 有如下程序：
Private Function func(ByVal a As Integer, ByVal b As Integer)
func = a + b
End Function
Private Sub Command1_Click( )
Dim x As Integer, y As Integer
Dim z As Integer, r As Integer
x = 2 : y = 5 : z = 8
r = func(func(x,y),z)
Print r
End Sub
当在Command1按钮上单击，该程序的输出结果是（ ）
（A）12 （B）13 （C）14（D）15
2． 设有如下通用过程：
Public Sub Fun(a( ), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim art(5) AsVariant
For i = 1 To 5
art(i) = i
Next i
n = 10
Call Fun(art( ), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，在文本框中显示的内容为（ ）
（A）10 （B）15 （C）25 （D）24
3． 要为工程添加一个过程，可执行“（ ）”菜单中的“添加过程”
（A）文件 （B）视图 （C）工程（D）工具
4． 以一关于键盘事件中，叙述错误的是（ ）
（A） 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母（即具有相同的KeyCode）
（B） 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字（即具有不同的KeyCode）
（C） KeyPress事件中不能识别键盘上某个键的按下与释放
（D）KeyPress事件中可以识别键盘上某个键的按下与释放
5． 以下关于菜单的叙述中错误的是（ ）
（A）在同一个窗体的菜单项中，不允许出现标题相同的菜单项
（B） 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的键盘访问键
（C） 程序运行过程中，可以重新设置菜单的“Visual”属性
（D） 弹出式菜单也在菜单编辑器中定义
6． 有一个菜单项名为Menu123，若想在程序运行的过程中选中该菜单项，即在该菜单项前面显示“√”，可执行下面的（ ）语句
（A）Menu123.Enabled = True （B）Menu123.Enabled = False
（C）Menu123.Checked = True （D）Menu123.Checked = False
7． 可通过“打开”对话框的（ ）属性设置对话框中所显示文件的类型
（A）FileName （B）Filter （C）FilterIndex （D）InitDir
8． 以一关于通用对话框控件的叙述中错误的是（ ）
（A） 在程序运行时，通用对话框控件是不可见的
（B） 在同一个程序中，用不同的方法（如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用
（C）调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
（D） 调用通用对话框控件的ShowColor方法，可以打开颜色对话框
9． 在显示颜色对话框之前必须设置（ ）属性，否则将发生不存在字体的错误
（A）FontName （B）FontSize （C）Max（D）Flags
10． 以一叙述中错误的是（ ）
（A） 一个工程中只能有一个Sub Main过程
（B） 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
（C）窗体的Hide方法和Unload方法的作用完全相同
（D） 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
1.二级VB语言程序设计考试题及答案
2.计算机二级VB语言程序设计考试题及答案
3.全国计算机二级vb考试题库
4.计算机等级考试二级VB程序设计题
5.计算机二级VB语言程序设计练习及答案
6.计算机等级考试二级VB程序设计模拟试题
7.计算机二级VB强化试题及答案
8.计算机二级VB考试题及答案
9.计算机二级VB考试题精选及答案
10.计算机二级VB考试题
篇7：全国计算机二级《VB》练习题及答案
12.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是(D)(单)
A.TabStop
B.Enabled
C.Visible
D.TabIndex
13.在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)
A.For i=0 To List1.ListCount-1 ...... Next i
B.For i=0 To ListCount-1 ...... Next i
C.For i=1 To List1.listCount ...... Next i
D.For i=1 To ListCount ...... Next i
14.以下Case语句中错误的是(C)(单)
A.Case 0 To 10
B.Case Is>10
C.Case Is>10 And Is<50
D.Case 3,5,Is>10
15.以下关于图片框控件的说法中，错误的是(D)(单)
A.可以通过Print方法在图片框中输出文本
B.清空图片框控件中图形的方法之一是加载一个空图形
C.图片框控件可以作为容器使用
D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小
16.执行语句s=Len(Mid(“VisualBasic”,1,6))后，s的值是(A)(单)
A.Visual
B.Basic
C.6
D.11
17.以下叙述中错误的是(D)(单)
A.下拉式菜单能用菜单编辑器建立
B.在多窗体程序中，每个窗体都可以建立自己的菜单系统
C.能够对菜单项的Click事件编程
D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
18.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a = “12345”
Print Format$(a, “000.00”)
End Sub
程序运行后，单击命令按钮，窗体上显示的是(B)(单)
A.123.45
B.12345.00
C.12345
D.00123.45
19.以下关于函数过程的叙述中，正确的是(A)(单)
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中，过程的返回值可以有多个
C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数
20.以下关于变量作用域的叙述中，正确的是(C)(单)
A.用dim定义变量是静态变量
B.静态变量必须在标准模块中声明
C.用public定义变量是全局变量
D.Static类型变量的作用域范围是它所在的窗体或模块文件
21.确定一个控件在窗体上的位置的属性是(C)(单)
A.Width和Height
B.Width或Height
C.Top和Left
D.Top或Left
22.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Text1.Text = “Visual”
Me.Text1 = “Basic”
Text1 = “Program”
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)
A.Visual
B.Basic
C.Program
D.出错
23.以下关系表达式中，其值为False的是(A)(单)
A.“ABC”>“AbC”
B.“the”“they”
C.“VISUAL”=UCase(“Visual”)
D.“Integer”>“Int”
24.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)
A.0
B.1
C.2
D.3
25.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click( )
strText = InputBox(“请输入”)
Text1.Text = strText
End Sub
Private Sub Text1_Change( )
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)
A.空
B.abcdef
C.abc
D.def
26.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
x = -5
If x >0 Then
y = x ^ 2
Else
y = x
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是(A)(单)
A.-5
B.25
C.1
D.-1
27.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As
Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)
A.变量X、Y的作用域相同
B.Y的作用域是Model1
C.在Form1的任何地方中可以直接使用Y
D.在Form2中可以直接使用X和Y
28.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)
A.Drive1_Change
B.Drive1_Click
C.Dir1_Click
D.Dir1_KeyPress
29.在窗体上画一个命令按钮(其NAME属性为Command1)，然后编写如下代码：
Option Base 1
Private Sub Command1_Click( )
Dim a
s = 0
a = Array(1, 2, 3, 4)
For I = 4 To 1 Step -1
s = s + a(I)
Next I
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是(D)(单)
A.4321
B.1234
C.34
D.10
30.在窗体上画一个名称为Text1的文本框，编写以下代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii> 90 Then
msgBox “请输入大写字母”
KeyAscii = 0
End If
End Sub
以下能说明该事件过程正确是(A)(单)
A.要求文本框只能接收大写字母的输入
B.要求文本框只能接收小写字母的输入
C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入
1.计算机二级vb练习题
2.计算机二级vb练习题及答案
3.全国计算机二级VB模拟题及答案
4.计算机二级VB强化试题及答案
5.全国计算机二级c语言练习题
6.计算机二级VB专项练习题
7.全国计算机二级VFP真题及答案
8.全国计算机二级VB第十章考点解析
9.20全国计算机二级vb考试题库
10.全国计算机二级VB第八章考点解析
篇8：计算机二级VB上机考试解题技巧
常用算法
熟练地掌握算法原理、编程思想和代码实现，就能够做到举一反三，轻松备考，顺利过关。
1.累加与连乘
基本思想：设置初值，循环计算。
扩展：
(1)计算指定范围内某一个数的倍数之和。
(2)计算某范围内所有数的乘积。
(3)求某一个数列的和。
2.生成N个不同的随机数
基本思想：将生成的数送入一个数组，每生成一个数后与数组中已有的数比较，如相同则丢弃，重新生成可使用语句Exit For。
3.求素数、极值
求素数基本思想：素数的意义;实现方法：双重循环，外循环判断每一个数，内循环判断能否被某数整除。
求极值基本思想：设第一个数为极值数，然后进入循环与其比较，超过则替换。
4.排序
(1)选择法：每次先找出最小数所在的F标，排序结束后，交换最小数的位置。
(2)冒泡法：两两比较后交换。
(3)合并法：将两个有序的数组合并成一个仃序的数组。两个数组中的数两两比较，小者放入目标数组，直到.个数组为窄。
(4)插入法：每输入或生成一个数马上插入到数组中使其有序。
5.数列的插入、删除和重组
(1)插入：对原数组进行扩充，循环查找插入位置(逐个比较)，找到后，从后向前依次移动每一个数字，直到该位置，然后将数据插入。
(2)删除：与插入类似，也是先查找位置，找到后，将该位置以后的每一个元素依次前移。
(3)重组：采用排序或移动元素的思想，具体情况具体分析，如奇偶数的分开等。
6.穷举与递推
(1)穷举：利用循环将所有可能逐个测试，直到条件成立为止，如百钱买百鸡问题、钱币折零问题等。
(2)递推(迭代)：将一个复杂的计算过程转化为简单过程的重复，通常也是利用循环实现，这一次计算的结果作为下一次的变量继续进行计算，直到满足指定的条件，如猴子吃桃问题、计算近似数问题、数列计算问题等。
7.顺序查找
基本思想：利用循环逐个比较待查找值，找到后退出，一般要使用Exit语句。
8.递归
基本思想：需要解决的问题必须用递归的方式进行描述，才能转变为递归过程，原则上所有的迭代过程都可以使用递归
过程来实现。递归描述有两个关键要素：一是递归结束的条件;二是迭代公式(此次的结果能够作为下一次的变量)。
递归过程的分析：递推n次直到结束条件满足，回归n次得到运算结果。
典型递归：阶乘的计算1!=1，n!=n*(n-1)!
最大公约数gcd(m,n):m mod n=0,gcd=n;gcd(m,n)=gcd(n,m mod n)
二分法查找search：中点值=关键值，结束;改变low、high后，递归调用search(a0,low,high,key,index)。
9.分类统计
统计各种类型的数据，如字母出现的次数、奇偶数统计等。基本思路是掌握分类条件的表示，设置各种类型的计数器(可以用数组)，利用循环来解决。
10.字符串处理、加密与解密
字符串处理：输入(inputbox函数或文本框)、求长度(1en函数，汉字问题)、循环处理。典型考点：分离指定字符、分类统计、字符串的重组、字符的插入与删除等。
加密与解密：理解加密算法(移位法、密钥表)。
整型数据的处理：各位数字的拆分;数的因子;最大公约数gcd(m,n)=a与最小公倍数m*n/a;素数与合数;互质数(两个数的最大约数为1，两个数有公因子)。
1.计算机二级vb上机题库
2.年计算机二级VB上机考试答题攻略
3.2016年计算机二级VB上机考试答题技巧
4.计算机二级《VB》的常用算法
5.计算机二级VB强化试题及答案
6.计算机二级vb练习题
7.计算机二级VB考试题精选及答案
8.计算机二级VB考试答题技巧
9.计算机二级考试VB程序设计复习试题
10.计算机二级VB考试题
篇9：计算机二级VB考试练习题及答案
1、在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为“宋体”，
第二个名称为option2用来设置文本框的字体为“黑体”，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, “宋体”, “黑体”)
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option2，然后单击命令按钮command1，则文本框text1的变化效果是(B) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
2.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为“宋体”，
第二个名称为option2用来设置文本框的字体为“黑体”，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, “宋体”, “黑体”)
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option3，然后单击命令按钮command1，则文本框text1的变化效果是(C) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
3.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为“宋体”，
第二个名称为option2用来设置文本框的字体为“黑体”，第三个名称为option3用来设置文本框的'字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, “宋体”, “黑体”)
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option1，然后单击命令按钮command1，则文本框text1的变化效果是(A) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
4.在窗体上建立一个名称为Command1的命令按钮，一个名称为Text1的文本框，以及四个单选按钮：第一个名称为option1用来设置文本框的字体为“宋体”，
第二个名称为option2用来设置文本框的字体为“黑体”，第三个名称为option3用来设置文本框的字体大小为8号，第四个名称为option4用来设置文本框的字体大小为12号。
程序如下：(程序运行刚开始时，四个单选按钮都没有选中)
Private Sub Command1_Click( )
Text1.FontName = Iif(Option1.Value, “宋体”, “黑体”)
Text1.FontSize = Iif(Option3.Value, 8, 12)
End Sub
当程序运行时，先单击单选按钮option4，然后单击命令按钮command1，则文本框text1的变化效果是(D) (单)
A.字体设置为宋体
B.字体设置为黑体
C.字体大小设置为8号
D.字体大小设置为12号
5.在窗体中建立了一个名称为lstBooks的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。
如下程序：
Sub Form_Load( )
lstBooks.AddItem “计算机文化基础”
lstBooks.AddItem “VB程序设计教程”
lstBooks.AddItem “操作系统”
End Sub
Sub cmdAdd_Click( )
lstBooks.AddItem txtItem
txtItem = “”
End Sub
对该程序说法不正确的是(D) (单)
A.窗体启动时，在列表框中有三个列表项目，依次为：计算机文化基础、VB程序设计教程、操作系统
B.单击cmdAdd命令按钮后，把文本框中的信息添加到列表框中
C.在列表框中添加列表项目的方法为additem方法
D.以上说法都不正确
6.在窗体中建立了一个名称为LSTBOOKS的列表框，一个名称为txtItem的文本框，四个名称分别为cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按钮。如下程序的功能是将修改后的项目送回列表框，替换原项目，实现修改：
Sub cmdModify_Ok_Click( )
LSTBOOKS.List【Lstbooks.lstindex】 = txtItem
txtItem = “”
End Sub
7.对以下程序说法不正确的是(C) (单)
Private Sub Combo1_LostFocus( )
flag = False
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
flag = True
Exit For
End If
Next i
If Not flag Then
Combo1.AddItem Combo1.Text
End If
End Sub
A.当焦点离开组合框时组合框的LostFocus事件被触发
B.添加到组合框的新项目不能永久保存，下次运行该程序中看不到上次保存的项目，利用该事件过程能够将输入的新内容添加到组合框中，下次运行该程序中能够看到上次保存的项目
C.逻辑变量flag=true时，表示组合框的项目中有该输入新项目
D.逻辑变量flag=false时，表示组合框的项目中有该输入新项目
8.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem “品牌：松下”
List1.AddItem “数量：3台”
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem “操作系统：Windows ”
Else
List1.AddItem “操作系统：Windows 98”
End If
End If
End Sub
当窗体启动后，先选中检查框check1，然后单击命令按钮command1，运行效果为(A) (单)
A.列表框List1中的列表项目分别为：品牌：松下数量：3台
B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98
C.没有任何显示
D.以上都不正确
*9.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem “品牌：松下”
List1.AddItem “数量：3台”
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem “操作系统：Windows 2000”
Else
List1.AddItem “操作系统：Windows 98”
End If
End If
End Sub
当窗体启动后，先选中检查框check2(其中单选按钮option1被选中)，然后单击命令按钮command1，运行效果为(B)(单)
A.列表框List1中的列表项目分别为：品牌：松下数量：3台
B.列表框List1中的列表项目分别为：操作系统：Windows 2000 操作系统：Windows 98
C.列表框List1中的列表项目为：操作系统：Windows 2000
D.以上都不正确
53430.窗体中有两个检查框名称分别为check1和check2，一个命令按钮名称为command1，一个列表框名称为list1，两个单选按钮名称分别为option1和option2。如下程序：
Private Sub Command1_Click( )
If Check1.Value = 1 Then
List1.AddItem “品牌：松下”
List1.AddItem “数量：3台”
End If
If Check2.Value = 1 Then
If Option1.Value = True Then
List1.AddItem “操作系统：Windows 2000”
Else
List1.AddItem “操作系统：Windows 98”
End If
End If
End Sub
当窗体启动后，先选中检查框check2(其中单选按钮option2被选中)，然后单击命令按钮command1，运行效果为(B)(单)
A.列表框List1中的列表项目分别为：品牌：松下数量：3台
B.列表框List1中的列表项目为：操作系统：Windows 98
C.列表框List1中的列表项目为：操作系统：Windows 2000
11 .传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。√
12.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是(B) (单)
A.call Rate(12,56)
B.Rate(12,56)
C.Rate 12,56
D.以上A和C正确
13.如下程序运行后显示结果为(B) (单)
Public Temp As integer
Sub Form_Load( )
Dim Temp As Integer
Temp=10
Form1.Temp=20
Print Form1.Temp;“和”;Temp
End Sub
A.10和20
B.20和10
C.10和10
D.20和20
14.以下对静态变量说法不正确的是(D) (单)
A.定义格式为：Static 变量名 [AS 类型]
B.在子过程名/函数名前加Static，表示该过程/函数体内局部变量全部都是静态变量
C.静态变量必须在过程体内定义
D.静态变量可以在窗体的“通用声明部”定义
15 .过程在自身定义的内部调用自己本身的结构称为递归。√
16.如下程序功能是求n的阶层：
Function fac(n As Integer) As Integer
If n = 1 Then
fac = 1
Else
fac = n * fac(n - 1)
End If
End Function
Sub Command1_Click( )
n=val(inputbox(“请输入数值”))
Print “fac(n)=”;fac(n)
End Sub
以下说法不正确的是(D) (单)
A.若fac函数中If n = 1 Then fac = 1没有，仅有语句：fac = n * fac(n - 1) ，程序运行将会出错
B.若输入的n<=0 ，程序运行将会出错
C.若n=4，则输出结果为：fac(n)=24
D.以上说法都不正确
17.利用递归求最大公约数的程序为：
Public Function gcd(m As Integer, n As Integer) As Integer
If (m Mod n) = 0 Then
gcd =【n】
Else
gcd = gcd(n, m Mod n)
End If
End Function
Private Sub Form_Click( )
Print gcd(10, 4)
End Sub
18 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在“加粗”和“常规”之间进行切换。√
Private Sub Check1_Click( )
Text1.FontBold = Not Text1.FontBold
End Sub
*19 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在“加粗”和“常规”之间进行切换。√
Private Sub Check1_Click( )
Text1.FontItalic = Not Text1.FontItalic
End Sub
*20 .以下程序的作用是单击Check1检查框将使得Text1文本框的字体在“加粗”和“常规”之间进行切换。√
Private Sub Check1_Click( )
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
篇10：计算机二级VB考试题
1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
If n2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)
A.72 36
B.108 36
C.72 6
D.27 3
2.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
c = “1234”
For i = 1 To 4
c1 = Trim(Str( ))
Print c1
Next i
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为(B)(单)
A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i)
3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click( )
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, 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
程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。
篇11：计算机二级VB考试题
1.窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。
以下程序：
Private Sub hsbSpeed_Change( )
txtSpee
D.Text = hsbSpee
D.Value
End Sub
当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)
A.此时会触发change事件
B.此时不会触发change事件
C.在文本框中显示了滚动条滑块所在位置的值
D.此时不会触发scroll事件
2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：
Private Sub HScroll1_Change( )
R= HScroll1.Value
form1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))
End Sub
以下说法不正确的是(C) (单)
A.窗体的背景色是一个随机的颜色
B.RGB函数取得到的颜色有256*256*256种
C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数
D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数
3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.FontSize =【Slider1.value】
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：
Private Sub Slider1_change( )
Text1.【Fontsize】 = slider1.value
End Sub
当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。
5.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序(A) (单)
(1)Slider控件的滑块处于最小位置时值为8
(2)Slider控件的滑块处于最大位置时值为72
(3)单击Slider控件两端箭头时，滑块的增量值为2
(4)单击Slider控件的空白处时，滑块的增量值为8
A.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange =2：
Slider1.LargeChange = 8
B.Slider1.Min = 2：
Slider1.Max = 8：
Slider1.SmallChange = 72：
Slider1.LargeChange = 8
C.Slider1.Min = 8：
Slider1.Max = 72：
Slider1.SmallChange = 8：
Slider1.LargeChange = 2
D.Slider1.Min = 72：
Slider1.Max = 8：
Slider1.SmallChange = 2：
Slider1.LargeChange = 8
6.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“butterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“butterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“butterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(C) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.PickBmp变量是逻辑变量，作用是表示图形的状态
C.App.Path表示绝对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
7.在窗体中有一个名称为timer1的时钟控件，三个名称分别为image1、image2 和 image3的图像框，编写如下程序：
Sub Form_Load( )
Image1.Picture=LoadPicture(App.Path+“butterfly.bmp”)
Image2.Picture=LoadPicture(App.Path+“butterfly2.bmp”)
Image3.Picture=LoadPicture(App.Path+“butterfly.bmp”)
End Sub
Sub timer1_Timer( )
Static PickBmp As Boolean
Image1.Move Image1.Left + 20, Image1.Top - 5
If PickBmp = False Then
Image1.Picture = Image2.Picture
PickBmp = True
Else
Image1.Picture = Image3.Picture
PickBmp = False
End If
End Sub
以下说法不正确的是(B) (单)
A.此程序的功能是把image1图像框显示图形在butterfly.bmp和butterfly2.bmp文件之间进行切换
B.也可以将timer1控件的timer事件改写为change事件
C.App.Path表示相对路径
D.要使得timer控件起作用，必须使得它的Enabled属性设置为true，interval属性设置为介于0-64767之间的数值，但不能等于0
8 .在ProgressBar进度条控件中，它的Value属性决定该控件被填充多少。√
9 .UpDown控件通常与伙伴控件“捆绑”在一起使用。√
10 .Animation控件可以用来显示有声音的AVI视频文件 ×。
11.对Animation控件所使用的方法描述不正确的是(B) (单)
A.Open方法用于打开文件
B.Play方法用于播放动画，格式为： Animation1.play AVI动画文件路径
C.Stop方法用于停止播放
D.Close方法用于关闭文件
12.下面的事件不属于鼠标器事件的是(D) (单)
A.MouseDown事件
B.MouseUp事件
C.MouseMove事件
D.Move事件
13.下面的事件不属于键盘事件的是(D) (单)
A.KeyPress事件
B.KeyDown事件
C.KeyUp事件
D.KeyMove事件
14.在窗体中有一个名称为command1的命令按钮，一个名称为text1的文本框，一个名称为commondialog1的通用对话框，编写如下程序：
Sub command1_Click( )
CommonDialog1.Action = 3
text1.ForeColor = CommonDialog1.Color
End Sub
当单击命令按钮时，对程序的运行说法正确的是(B) (单)
A.打开一个颜色对话框
B.打开一个字体对话框
C.把文本框的背景颜色设置为对话框选择的字体颜色
D.把文本框的背景颜色设置为对话框中选择的颜色
15.当单击命令按钮时，对以下程序说法不正确的是(D) (单)
Sub command1_Click( )
CommonDialog1.Action = 5
For i = 1 To CommonDialog1.Copies
Printer.Print text1.Text
Next i
Printer.EndDoc
End Sub
A.此文件的功能是打印文本框text1中的内容
B.语句Printer.EndDoc表示结束文挡打印
C.打开的打印对话框
D.以上说法都不正确
16.当单击命令按钮时，对以下程序说法不正确的是(C) (单)
Sub command1_Click( )
CommonDialog1.FileName = “default.txt”
CommonDialog1.DefaultExt = “Txt”
CommonDialog1.Action = 2
End Sub
A.设置缺省文件名为default.txt
B.设置缺省扩展名为Txt
C.显示的是文件“打开”对话框
D.显示的是“另存为”对话框
17.在窗体中建立了三个名称分别为EditCut、EditCopy和EditPaste的命令按钮，一个名称为text1的文本框。
如下程序：
Private Sub EditCopy_Click( )
st = Text1.SelText '将选中的内容存放到st变量中
End Sub
Private Sub EditCut_Click( )
st = Text1.SelText '
Text1.SelText = “”
End Sub
Private Sub EditPaste_Click( )
Text1.Text = Left(Text1, Text1.SelStart) + st + Mid(Text1, Text1.SelStart
+ 1)
End Sub
对以上程序说法不正确的是(D) (单)
A.语句st = Text1.SelText的作用是：将text1文本框中选择的内容存放到st变量中
B.语句Text1.SelText = “” 的作用是：将text1文本框中选择的内容清除
C.单击EditCut命令按钮实现了text1文本框中选择的内容清除
D.单击Editcopy命令按钮实现了text1文本框中所有内容的粘贴
18.对以下程序说法不正确的是(D) (单)
Private Sub FileOpen_Click( )
CommonDialog1.InitDir = “C:”
CommonDialog1.Filter = “文本文件 | *.Txt”
CommonDialog1.ShowOpen
End Sub
A.显示“文件”打开对话框
B.打开的对话框的初始目录为C盘根目录
C.打开的对话框的文件类型为文本文件
D.以上说法都不正确
19.双精度型数据的类型符为(A) (单)
A.#
B.*
C.&
D.@
20.整型数据的类型符为(B) (单)
A.#
B.%
C.&
D.@
篇12：全国计算机二级VB考点解析：第五章
一、数据输出---Print方法
(一)Print方法
Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。其一般格式为:
[对象名称.]Print[表达式表][，|;]
Print方法的格式和功能与BASIC语言中的PRINT语句类似，它们都可以用来进行输出操作。
(二)与Print方法有关的函数
1.Tab函数
格式:Tab(n)
2.Spc函数
格式:Spc(n)
3.空格函数
格式:Space$(n)
(三)格式输出
用格式输出函数Format$可以使数值或日期按指定的格式输出。一般格式为:
Format$(数值表达式，格式字符串)
该函数的功能是:按“格式字符串”指定的格式输出“数值表达式”的值。如果省略“格式字符串”，则Format$函数的功能与Str$函数基本相同，惟一的差别是，当把正数转换成字符串时，Str$函数在字符串前面留有一个空格，而Format$函数则不留空格。
(四)其他方法和属性
1.Cls方法
格式:[对象.]Cls
2.Move方法
格式:[对象.]Move左边距离[，上边距离][，宽度[，高度]]]
3.TextHeight和TextWidth方法
格式:[对象.]TextHeight(字符串)[对象.]TextWidth(字符串)
二、数据输入-InputBox函数
InputBox函数可产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。其格式为:InputBox(prompt，[，title][，default][，xpos，ypos][，helpfile，context]该函数有7个参数
三、MsgBox函数和MsgBox语句
(一)MsgBox函数
MsgBox函数的格式如下:
MsgBox(msg[，type][，title][，helpfile，context]该函数有5个参数
(二)MsgBox语句
MsgBox函数也可以写成语句形式，即:
MsgBox Msg$[，type%][，title$][，helpfile，context]
各参数的含义及作用与MsgBox函数相同，由于MsgBox语句没有返回值，因而常用于较简单的信息显示。
四、字形
(一)字体类型和大小
1.字体类型
字体类型通过FontName属性设置，一般格式为:[窗体.][控件.]|Printer.FontName[=″字体类型″]
2.字体大小
字体大小通过FontSize属性设置，一般格式为:FontSize[=点数]
这里的“点数”用来设定字体的大小。在默认情况下，系统使用最小的字体，“点数”为9。如果省略“=点数”，则返回当前字体的大小。
(二)其他属性
1.粗体字
粗体字由FontBold属性设置，一般格式为:FontBold[=Boolean]
该属性可以取两个值，即True和False。当FontBold属性为True时，文本以粗体字输出，否则按正常字输出。默认为False。
2.斜体字
斜体字通过FontItalic属性设置，其格式为:FontItalic[=Boolean]
当FontItalic属性被设置为True时，文本以斜体字输出。该属性的默认值为False
3.加删除线
格式为:
FontStrikethru[=Boolean]
如果把FontStrikethru属性设置为True，则在输出的文本中部画一条直线，直线的长度与文本的长度相同。该属性的默认值为False。
4.加下划线
下划线即底线，用FontUnderline属性可以给输出的文本加上底线。其格式为:FontUnderline[=Boolean]
如果FontUnderline属性被设置为True，则可使输出的文本加下划线。该属性的默认值为False。在上面的各种属性中，可以省略方括号中的内容。在这种情况下，将输出属性的当前值或默认值。
5.重叠显示
当以图形或文本作为背景显示新的信息时，有时候需要保留原来的背景，使新显示的信息与背景重叠，这可以通过FontTransParent属性来实现，格式如下:FontTrnasParent[=Boolean]
如果该属性被设置为True，则前景的图形或文本可以与背景重叠显示;如果被设置为False，则背景将被前景的图形或文本覆盖。
五、打印机输出
(一)直接输出
所谓直接输出，就是把信息直接送往打印机，所使用的仍是Print方法，只是把Print方法的对象改为Printer，其格式为rinter.Print[表达式表]
(二)窗体输出
在Visual Basic中，还可以用PrintForm方法通过窗体来打印信息，其格式为:[窗体.]PrintForm
【全国计算机二级vb考试题库】相关文章：
10.国家计算机二级考试试题
文档为doc格式
