全国计算机等级考试二级VB真题（2005-2012完整版） - 图文(7)

2007年9月全国计算机等级考试二级——VB笔试真题

（29）有如下函数：

Function fun(a As Integer,n As Integer） As Integer

Dim m As Integer While a >=n

a=a-n m= m+1 Wend fun=m End Function 该函数的返回值是

A）a乘以n的乘积 B）a加n的和

C）a减n的差 D）a除以n的商（不含小数部分） （30）下面程序的输出结果是 Private Sub Command1_Click(）

ch$=”ABCDEF” proc ch Print ch End Sub

Private Sub proc(ch As String）

S=””

For k=Len(ch） To 1 Step-1

s=s&Mid(ch,k,1） Next k ch=s End Sub

A）ABCDEF B）FEDCBA C）A D）F

（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a(） As Integer） As Integer

Dim max% max=1

For k = 2 To 10

If a(k）>a(max） Then

max = k End If Next k

MaxValue = max End Function

程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 A）语句max = 1应改为max = a(1）

B）语句For k = 2 To 10应改为For k = 1 To 10 C）If语句中的条件a(k）>a(max）应改为a(k）>max D）语句MaxValue = max 应改为MaxValue = a(max）

（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click(）

Dim n%,b,t

t = 1:b = 1:n = 2 Do

b = b*n t = t + b n = n +1 Loop Until n>9 Print t End Sub

此程序计算并输出一个表达式的值，该表达式是

A）9！ B）10！ C）1！+2！+?+9！ D）1！+2！+?+10！

（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y）的功能是在坐标X，Y处画一个点）： Dim cmdmave As Boolean

Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single）

cmdmave = True End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single）

If cmdmave Then

Form1.Pset(X,Y） End If End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single）

cmdmave = False End Sub

此程序的功能是

A）每按下鼠标键一次，在鼠标所指位置画一个点

B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线

D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

2007年9月全国计算机等级考试二级——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】 。

2007年9月全国计算机等级考试二级——VB笔试真题

（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<>\

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=x\\10 Wend

Print__[12]__ End Sub

（10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且 焦点不能离开Text1文本框（见图）。

合法编号的组成是：前2个字符是大写英文 字母，第3个字符是“-”，后面是数字字符

2007年9月全国计算机等级考试二级——VB笔试真题

（至少1个）。下面程序可实现此功能，请 填空。

Private Sub Text1_Lostfocus(）

Dim k%,n%

n=Len( [13] ）

For k=1 to if (n>3,n,4）

c=Mid(Text1. Text,k,1） Select Case k Case 1,2

If c<\

MsgBox(\第\个字符必须是大写字母！\） SetPosition k Exit For End If Case 3

If c<>\

MsgBox(\第\个字符必须是字符\）

SetPosition k Exit For End If Case Else

If c<\

MsgBox(\第\个字符必须是数字！\） SetPosition k Exit For End If End Select Next k End Sub

Private Sub SetPosition(pos As Integer）

Text1.SelStart=pos-1

Text.SelLength= [14] Text1. [15] End Sub

2008年4月全国计算机等级考试二级VB笔试试卷

一、选择题

1、程序流程图中带有箭头的线段表示的是

A）图元关系 B）数据流 C）控制流 D）调用关系 2、结构化程序设计的基本原则不包括

A）多态性 B）自顶向下 C）模块化 D）逐步求精 3、软件设计中模块划分应遵循的准则是

A）低内聚低耦合 B）高内聚低耦合 C）低内聚高耦合 D）高内聚高耦合 4、在软件开发中，需求分析阶段产生的主要文档是

A）可行性分析报告 B）软件需求规格说明书 C）概要设计说明书 D）集成测试计划 5、算法的有穷性是指

A）算法程序的运行时间是有限的 B）算法程序所处理的数据量是有限的 C）算法程序的长度是有限的 D）算法只能被有限的用户使用

6、对长度为n的线性表排序，在最坏的情况下，比较次数不是n (n-1）/2的排序方法是 A）快速排序 B）冒泡排序 C）直接插入排序 D）堆排序 7、下列关于栈的叙述正确的是

A）栈按“先进先出”组织数据 B）栈按“先进后出”组织数据 C）只能在栈底插入数据 D）不能删除数据 8、在数据库设计中，将E—R图转换成关系数据模型的过程属于

A）需求分析阶段 B）概念设计阶段 C）逻辑设计阶段 D）物理设计阶段

2008年4月全国计算机等级考试二级——VB笔试真题

9、有三个关系R、S和T如下：

R S

B a B C 0 1 D

k1 n1 由关

A）并 B）自然连

B f a n C 3 0 2 D h2 k1 x1

B a

T

C 0 D k1 通过运算得到关系T，则所使用的运算为

系R和S

接 C）笛卡尔积 D）交

10、设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC（学号，课号，成绩），则表SC的关键字（键或码）为

A）课号，成绩 B）学号，成绩 C）学号，课号 D）学号，姓名，成绩 11、以下叙述中错误的是

A）标准模块文件的扩展名是.bas

B）标准模块文件是纯代码文件

C）在标准模块中声明的全局变量可以在整个工程中使用 12、在Visual Basic中，表达式3* 2\\5 Mod 3的值是

A）1 B）0 C）3 D）出现错误提示 13、以下选项中，不合法的Visual Basic变量名是

A）a5b B）_xyz C）a_b D）andif 14、 以下数组定义语句中，错误的是

D）在标准模块中不能定义过程

A）Static a (10） As Integer B） Dim c (3, 1 to 4）

C） Dim d (-10） D） Dim b (0 to 5, 1 to 3） As Integer 15、现有语句：y=IIf(x>0, x Mod 3, 0） ，设x=10，则y的值是

A）0 B）1 C）3 D）语句有错

16、为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为

A）0 B）1 C）2 D）3 17、文本框Text1的KeyDown事件过程如下：

Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer） End Sub

其中参数KeyCode的值表示的是发生此事件时

A）是否按下了Alt键或Ctrl键 B）按下的是哪个数字键 C）所按的键盘键的键码 D）按下的是哪个鼠标键

18、窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。下面能够实现上述操作的事件过程是

A）Private Sub Hscroll1_Changc(） B）Private Sub Hsctroll1_Change(） Print HScroll1.Value Print HScroll1.SmallChange

End Sub End Sub

C）Private Sub HScroll1_Scroll(） D）Private Sub HScroll1_Scroll(） Print HScroll1.Value Print HScroll1.SmallChange

End Sub End Sub

19、 若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是

A）用鼠标右键单击此按钮 B）按键盘上的Esc键 C）按键盘上的回车键 D）用鼠标右键双击此按钮 20、要使两个单选按钮属于同一个框架，正确的操作是

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库全国计算机等级考试二级VB真题（2005-2012完整版） - 图文(7)在线全文阅读。