发布时间 : 星期三 文章VB - 经典考试题及答案更新完毕开始阅读
性质：等边三角形、等腰三角形、直角三角形或任意三角形。
24、输入一元二次方程的A、B、C，求出这个方程有没有实根，如果有实根分别求出来 25、产生30个A~Z之间的随机大写字母。 26、 编写一个程序，计算半径为15cm、高为30cm的圆柱体的体积、半径和高通过InputBox函数输入，计算结果并将其打印到窗体中。
27、编写程序，实现矩阵转置，即将一个n*M的矩阵的行和列互换。例如，a矩阵为
六、历年全国计算机二级等级考试真题(附答案)
2006年4月全国计算机等级考试二级
VB笔试试卷
（考试时间90分钟，满分100分） 一、选择题(每小题2分，共70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
(1)下列选项中不属于结构化程序设计方法的是。
a=
1 2 3 4 5 6 A)自顶向下 B)逐步求精 C)模块化 D)可复用 (2)两个或两个以上模块之间关联的紧密程度称为。
A)耦合度 B)内聚度
转置后的矩阵b为 b=
1 4 2 5 3 6 C)复杂度 D)数据传输特性 (3)下列叙述中正确的是。
A)软件测试应该由程序开发者来完成
B)程序经调试后一般不需要再测试 C)软件维护只包括对程序代码的维护 D)以上三种说法都不对
(4)按照“后进先出”原则组织数据的数据结构A)队列 B)栈 C)双向链表 D)二叉树 (5)下列叙述中正确的是。
A)线性链表是线性表的链式存储结构 B)栈与队列是非线性结构 C)双向链表是非线性结构 D)只有根结点的二叉树是线性结构
(7)在深度为7的满二叉树中，叶子结点的个数为。 A)32 B)31 C)64 D)63
(8)“商品”与“顾客”两个实体集之间的联系一般是。
A)一对一 B)一对多 C)多对一 D)多对多 (9)在E-R图中，用来表示实体的图形是。 A)矩形 B)椭圆形 C)菱形 D)三角形 (10)数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。 33
28、编写一个子过程DeleStr(s1,s2)，将字符串S1中出现的S2子字符串删去，结果还是存放在s1中。 s2=”234”
结果：s1=-1567AAABBDEfG15”
【提示】解决此问题的方法要点如下：在s1字符串找s2的子字符串，可利用InStr()函数，要考虑到S1字符中可能存在多个或不存在S2字符串，用Do While Instr(s1,s2)>0循环结构来实现。
若在s1中找到s2字符串，首先要确定s1字符串的长度，因s1字符串在进行多次删除时，长度在变化;然后通过：Left$()、Right()函数的调用来实删除s1中存在的s2字符串。
例如：s1=”12345678AAABBDEFG12345” 是。
A)DB包含DBS和DBMS B)DBMS包含DB和DBS C)DBS包含DB和DBMS D)没有任何关系 (11)以下关于VisualBasic特点的叙述,错误的是 A)VisualBasic是采用事件驱动编程机制的语言 B)VisualBasic程序既可以编译运行，也可以解释运行
C)构成VisualBasic程序的多个过程没有固定的执行顺序
D)VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构 (12)以下叙述中，错误的是。
A)一个VisualBasic应用程序可以含有多个标准模块文件
B)一个VisualBasic工程可以含有多个窗体文件 C)标准模块文件可以属于某个指定的窗体文件 D)标准模块文件的扩展名是.bas (13)以下叙述中，错误的是。
A)在VisualBasic中，对象所能响应的事件是由系统定义的
B)对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定
C)VisualBasic中允许不同对象使用相同名称的方法
D)VisualBasic中的对象具有自己的属性和方法 (14)设有如下语句： Dima，bAs Integer c=\ d=#7／20／2005#
以下关于这段代码的叙述中，错误的是。 A)a被定义为Integer类型变量 B)b被定义为Integer类型变量
C)c中的数据是字符串 D)d中的数据是日期类型 (15)以下能从字符串\中直接取出子字符串\的函数是。
A)Left B)Mid C)String D)Instr
(16)设a=4，b=3，c=2，d=1，下列表达式的值是：
a>b+1 Or c 34 A)A#A B)counstA C)3A D)？AA (18)设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是。 A)PrintA=x+y B)Print\；x+y C)Print\(19)假定有如下的命令按钮(名称为Command1)事件过程： PrivateSubCommand1_Click() x=InputBox(\输入：\，\输入整数\ MsgBox\输入的数据是：”，，”输入数据：\EndSub 程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。 A)x的值是数值10 B)输入对话框的标题是“输入整数” C)信息框的标题是“输入数据：10” D)信息框中显示的是“输入的数据是：” (20)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程： Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case1,3 y=x*x Case Is>=10,Is<=-10 y=x Case -10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。 A)执行y=x*x B)执行y=-x C)先执行y=x*x，再执行y=-x D)程序出错 (21)设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next j For Each arrItem In a If arrItem Mod7=0 Then Print arrItem； If arrItem>90 Then ExitFor Next End Sub 对于该事件过程，以下叙述中错误的是。 A)a数组中的数据是30个100以内的整数 B)语句For Each arrItem In a有语法错误 C)If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数 D)If arrItem >90……语句的作用是当数组元素的值大于90时退出For循环 (22)设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(3,3) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是。 A)20 B)7 C)16 D)17 (23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2<>0 Then 35 a=a-1 End If a=a+1 Next j Next i Print a End Sub 程序运行后，单击命令按钮，输出结果是。 A)0 B)2 C)3 D)4 (24)窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(？)处应填入的内容是。 图1 图2 Private Sub Option1_Click(Index As Integer) If Text1.Text <> \ Select Case ? Case 0 Text2.Text = Val(Text1.Text) Case 1 Text2.Text = Val(Text1.Text) * 10 Case 2 Text2.Text = Val(Text1.Text) * 100 End Select End If End Sub A)Index B)Option.Index C)Option1(Index) D)Option1(Index).Value (25)在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1To10 a(i)=8+i Next i x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序运行后，单击命令按钮，输出结果为。 A)12 B)15 C)17 D)18 (26)以下关于过程的叙述中，错误的是。 A)事件过程是由某个事件触发而执行的过程 B)函数过程的返回值可以有多个 C)可以在事件过程中调用通用过程 D)不能在事件过程中定义函数过程 (27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)。编写如下程序： Private Sub Form_Load() Text1.Text = \ Text2.Text = \ Text3.Text = \End Sub 36 Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = f(x, y) End Sub Function f(ByVal x As Integer, ByVal y As Integer) Do While y <> 0 tmp = x Mod y x = y y = tmp Loop f = x End Function 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。 A)4 B)6 C)8 D)12 (28)窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(？)处应填入的内容是。 Private Sub Text1_LostFocus() Call CheckInput(Text1, 500) End Sub Private Sub Text2_LostFocus() Call CheckInput(Text2, 1000) End Sub Sub CheckInput(t As ？,x As Integer) If Val(t.Text) > x Then MsgBox \请重新输入!\ End If End Sub A)Text B)SelText C)Control D)Form (29)在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)