vb考试题库及答案(把题库做成答题软件)
大家好，关于vb考试题库及答案很多朋友都还不太明白，今天小编就来为大家分享关于把题库做成答题软件的知识，希望对各位有所帮助！
3月计算机二级VB上机操作题库及答案
2017年3月计算机二级VB上机操作题库及答案
一、基本操作题
(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。再画两个标题分别为“椭圆”和“圆”的命令按钮。如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体Forml上有两个标题分别是“读数据”和“查找”的命令按钮。请画1个名称为Textl、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。程序功能如下。
①在考生文件夹下的in.3.dat文件中存有100个正整数。单击“读数据”按钮，则将文件in3.dat中的数据读入数组a中。
②单击“查找”按钮，则查找数组a中所有为7的倍数的数据，并将这些数据顺次显示在Textl文本框内(数据之间用空格隔开)。“读数据”按钮的Click事件过程已经给出，请编写程序完成“查找”按钮的Click事件过程，实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须使用“查找”按钮完成查找过程，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后将程序按原文件名存盘。
(2)考生文件夹下有一个工程文件sit4.vbp。在窗体Forml上有两个名称为Commandl和Command2、标题分别为“重输”和“查找”的命令按钮。程序功能如下。
单击“重输”按钮，则清空Textl中的内容，等待用户输入由空格隔开的若干个英文单词;单击“查找”按钮，则找出Textl中最长的单词，并将其显示在Text2中。某一次的运行效果如图所示。请将“查找”按钮的Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的.控件和程序，最后将程序按原文件名存盘。
三、综合应用题
考生文件夹下有一个工程文件sjt.s.vbp。在窗体Forml上有两个标题分别是“产生数据”和“重新排列”的命令按钮，有两个标题为“原始数据”和“排列数据”的标签。程序功能如下。
①单击“产生数据”按钮，则随机产生20个一位整数，存人数组a中，并同时显示在Textl中。
②单击“重新排列”按钮，则重新排列数组a中的元素：使等值的元素相邻存放，并且保持它们在数组a中首次出现的相对次序;最后将排列结果显示在Text2中。某一次运行结果如图所示。
请将“重新排列”按钮的Click事件过程中的注释符去掉，把“?”改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
【参考答案】
一、基本操作题
(1)【解题思路】新建一个空白窗体，添加一个组合框控件，根据题目要求修改窗体和控件的属性值。
【操作步骤】
步骤1：新建一个空白窗体，设置窗体的属性，属性设置如表4.5所示。
步骤2：添加一个组合框控件，设置控件的属性，属性设置如表4.6所示。
完成设置后界面效果如图4.3所示。
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【解题思路】新建一个空白窗体，添加一个形状控件和两个命令按钮，设置好窗体和控件的属性，对两个命令分别添加事件代码，使单击按钮时，窗体中的形状控件能够产生变化。
【操作步骤】
步骤1:新建一个空白窗体，设置窗体的属性，属性设置如表4.7所示。
步骤5：调试并运行程序，单击“椭圆”按钮，如图4.4所示，单击“圆”按钮，如图4.5所示，关闭程序后按题目要求存盘。
二、简单应用题
(1)【解题思路】本题主要考查利用循环及分支结构处理数组中的数据，使用For循环遍历数组中的全部值，然后使用If语句判断数组中每个元素是否是7的倍数，若是，则将数组保存在文本框中。
【操作步骤】
步骤1：打开本题项目工程。
步骤2：在窗体中添加一个文本框控件，控件属性的设置如表4.9所示。
步骤3：打开代码编辑窗口，在程序代码区域编写如下代码。
所示，单击“查找”按钮，如图4.7所示，关闭程序后按题目要求存盘。
三、综合应用题
【解题思路】本题利用三重循环对数组中的元素进行移动操作，按照题目的要求移动结束后，将数组元素依次显示到Text2文本框中。
;
全国计算机等级考试二级vb2010年9月份笔试答案
我的是完整的，希望采纳！
一、选择题（每小题2分，共70分）
1-5 BCDAA 6-10 DDCBA
11-15 ADDBB 16-20 BCABA
21-25 CDBDC 26-30 ACDAD
31-35 DCCBA
二、填空题（每空2分，共30分）
【1】12345DCBA
【2】n-1
【3】25
【4】结构化
【5】物理设计
【6】array
【7】lbound(city)或 1
【8】city(i)
【9】fun
【10】276
【11】len
【12】p(i).gName
【13】picFile
【14】CD1.FileName
【15】Visible
注：以上英文字母不区分大小写。
一、选择题（每小题2分，共70分）
（1）下列叙述中正确的是
B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构
（2）下列叙述中正确的是
C）在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化
（3）软件测试的目的是
D）发现程序中的错误
（4）下面叙述中，不属于软件危机表现的是
A）软件过程不规范
（5）软件生命周期是指
A）软件产品从提出、实现、使用维护到停止使用退役的过程
（6）面向对象方法中，继承是指
D）类之间共享属性和操作的机制
（7）层次型、网状型和关系型数据库划分原则是
D）数据之间的联系方式
（8）一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是
C）多对多
（9）数据库设计中反映用户对数据要求的模式是
B）概念模式
（10）有三个关系R、S和T如下：
R S T
A B C A D A B C D
a 1 2 c 4 c 3 1 4
b 2 1
c 3 1
则由关系R和S得到关系T的操作是
A）自然连接
（11）在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是
A）
（12）在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是D）代码窗口
（13）下列叙述错误的是
D）组合框有Text属性，而列表框没有
（14）设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是
B）Index（15）滚动条可以响应的事件是
B）Scroll
（16）设a=5，b=6，c=7，d=8，执行语句x=Iif((a>b) and(c>d),10,20)后，x的值是
B）20
（17）语句Print Sgn(-6^2) Abs(-6^2) Int(-6^2)的输出结果是
C）-1
（18）在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示。则命令按钮的Top属性值是
A）200
（19）在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1_Click()
a$="software and hardware"
b$= Right(a$, 8)
c$= Mid(a$, 1, 8)
MsgBox a$,, b$, c$, 1
End Sub
则在弹出的信息框标题中显示的标题是
B）hardware
（20）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本框，则标签立即显示相同的内容。以下可以实现上述操作的事件过程是
A）Private Sub Text1_Change()
Label1.Caption=Text1.Text
End Sub
（21）以下说法中错误的是
C）命令按钮只能识别单击（Click）事件
（22）以下关于局部变量的叙述中错误的是
D）过程执行完毕后，该过程中用Dim或Static语句声明的变量即被释放。
（23）以下程序段的输出结果是
x=1
y=4
Do Until y>4
x=x*y
y=y 1
Loop
Print x
B）4
（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是
D）x=InputBox(“请输入VB数据”,”输入框”)
（25）有如下事件过程：
Private Sub Form_Click()
Dim n As Integer
x= 0
n= InputBox("请输入一个整数")
For i= 1 To n
For j= 1 To i
x= x 1
Next j
Next i
Print x
End Sub
程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是
C）15
（26）请阅读程序：
Sub SubP(b() As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1)=5: a(2)=6: a(3)=7: a(4)=8
subP a()
For i=1 To 4 Print a(i) Next i End Sub运行上面的程序，单击命令按钮，则输出结果是
A）2
4
6
8
（27）Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列的某个数，若使，则返回True，否则返回False。
Function Isfab(x As Integer) As Boolean
Dim a As Integer, b As Integer, c As Integer, flag As Boolean
flag= False
a= 1: b= 1
Do While x< b
c= a b
a= b
b= c
If x= b Then flag= True
Loop
Isfab= False
End Function
测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是
C）把Do While x<b改为 Do While x>b
（28）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a$, b$, c$, k%
a="ABCD"
b="123456"
c=""
k= 1
Do While k<= Len(a) Or k<= Len(b)
If k<= Len(a) Then
c= c& Mid(a, k, 1)
End If
If k<= Len(b) Then
c= c& Mid(b, k, 1)
End If
k= k 1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是
D）A1B2C3D456
（29）请阅读程序：
Private Sub Command1_Click()
m= 1
For i= 4 To 1 Step-1
Print Str(m);
m= m 1
For j= 1 To i
Print"*";
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结果是
A）1****
2***
3**
4*
（30）在窗体上画一个命令按钮（其名称为Command1），然后编写如下代码：
Private Sub Command1_Click()
Dim a
a= Array(1, 2, 3, 4) i= 3: j= 1 Do While i>= 0 s= s a(i)* j i= i- 1 j= j* 10 Loop Print s End Sub运行上面的程序，单击命令按钮，则输出结果是
D）1234
（31）下列可以打开随机文件的语句是
D）Open“file1.dat” For Random As#1 Len=20
（32）有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一个功能的是
C）Private Sub Form_Click()
PopupMenu edit
End Sub
（33）请阅读程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(4, 4) As Integer
For i= 1 To 4
For j= 1 To 4
Arr(i, j)=(i- 1)* 2 j
Next j
Next i
For i= 3 To 4
For j= 3 To 4
Print Arr(j, i);
Next j
Next i
End Sub
程序运行后，单击窗体，则输出结果是
C）7 9
8 10
（34）下面函数的功能是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str=”ABCDABCD”，ch=”B”，则函数的返回值为：“ACDACD”。
Function delchar(str As String, ch As String) As String
Dim k As Integer, temp As String, ret As String
ret=""
For k= 1 To Len(str)
temp= Mid(str, k, 1)
If temp= ch Then
ret= ret& temp
End If
Next k
delchar= ret
End Function
但实际上函数有错误，需要修改。下面的修改方案中正确的是
B）把If temp=ch Then改为 If temp<> ch Then
（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String, S2 As String
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text1.Enabled= False
Text2.Enabled= False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
S2= S2& Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1= S1& Chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text= S1 Text2.Text= S2 S1="" S2="" End Sub程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为：
A）abc和ABC
二、填空题（每空2分，共30分）
（1）一个栈的初始状态为空。首先将元素5、4、3、2、1依次入栈，然后退栈一次，再将元素A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为【1】12345DCBA。
（2）在长度为n的线性表中，寻找最大项至少需要比较【2】n-1次。
（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有【3】25个结点。
（4）仅有顺序、选择（分支）和重复（循环）结构构成的程序是【4】结构化程序。
（5）数据库设计的四个阶段：需求分析、概念设计、逻辑设计和【5】物理设计。
（6）窗体上有一个名称为Combo1的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。
Option Base 1
Private Sub Command1_Click()
Dim city As Variant
city=【6】 Array("北京","天津","上海","武汉","重庆","西宁")
For i=【7】LBound(city)或1 To UBound(city)
Combo1. AddItem【8】city(i)
Next
End Sub
（7）窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command1_Click()
Dim x As Integer
x= Val(InputBox("输入数据"))
Text1= str(fun(x) fun(x) fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3= 0 Then
n= n n
Else
n= n* n
End If
【9】fun= n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是【10】276。
（8）窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Data1.txt文件中物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该商品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。
Private Type Pic
gName As String* 10'物品名称
picFile As String* 20'物品图片的图片文件名
End Type
Dim p(4) As Pic, pRec As Pic
Private Sub Form_Load()
Open"Data1.txt" For Random As#1【11】Len= Len(pRec)
For i= 0 To 4
Get#1, i 1, p(i)
List1.AddItem p(i).gName
Next i
Close#1
End Sub
Private Sub List1_DblClick()
For i= 0 To 4
If RTrim(List1.List(i))= RTrim(【12】p(i).gName) Then
Picture1.Picture= LoadPicture(p(i).【13】picFile)
Exit For
End If
Next
End Sub
（9）窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。
以下是单击“打开”菜单项的事件过程，请填空。
Dim mnuCounter As Integer
Private Sub mnuOpen_Click() CD1.ShowOpen If CD1.FileName<>"" Then Open【14】CD1.FileName For Input As#1 mnuCounter= mnuCounter 1 Load FName(mnuCounter) FName(mnuCounter).Caption= CD1.FileName FName(mnuCounter).【15】Visible= True End If End Sub
VB数据库简答题
DAO（Data AccessObjects）数据访问对象是用来显露了Microsoft Jet数据库引擎（最早是给Microsoft Access所使用，现在已经支持其它数据库），并允许开发者通过ODBC直接连接到其他数据库一样，直接连接到 Access表。DAO最适用于单系统应用程序或在小范围本地分布使用。其内部已经对Jet数据库的访问进行了加速优化，而且其使用起来也是很方便的。所以如果数据库是Access数据库且是本地使用的话，建议使用这种访问方式---应用的专一性
RDO（Remote Data Objects）远程数据对象是一个到ODBC的、面向对象的数据访问接口，它同易于使用的DAO style组合在一起，提供了一个接口，形式上展示出所有ODBC的底层功能和灵活性。尽管RDO在很好地访问Jet或ISAM数据库方面受到限制，而且它只能通过现存的ODBC驱动程序来访问关系数据库。但是，RDO已被证明是许多SQL Server、Oracle以及其他大型关系数据库开发者经常选用的最佳接口。RDO提供了用来访问存储过程和复杂结果集的更多和更复杂的对象、属性，以及方法。---无疑是在odbc基础上的
ADO（ActiveX Data Object）是DAO/RDO的后继产物。ADO 2.0在功能上与RDO更相似，而且一般来说，在这两种模型之间有一种相似的映射关系。ADO"扩展"了DAO和 RDO所使用的对象模型，这意味着它包含较少的对象、更多的属性、方法（和参数），以及事件。作为最新的数据库访问模式，ADO的使用也是简单易用，所以微软已经明确表示今后把重点放在ADO上，对DAO/RDO不再作升级，所以ADO已经成为了当前数据库开发的主流。 ADO涉及的数据存储有DSN(数据源名称)、ODBC（开放式数据连接）以及OLE DB三种方式。---可以说是对odbc，oledb这些系统级的编程接口的汇接，并对DAO,RDO这些应用级的编程接口的升级吧
vb考试题库及答案的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于把题库做成答题软件、vb考试题库及答案的信息别忘了在本站进行查找哦。