2010年9月计算机二级VB试题(2)

a=b b=c

If x=b Then flag=True

Loop Isfab=flag End Function

测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是

A）把a= b与b=c的位置互换 B）把c=a+b移到b=c之后

C）把Do While x＜b改为Do While x＞b

D）把if x=b Then flag=True改为If x=a Then flag=True

（28）在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：

Private Sub Command1_Click（） Dim a$, b$,c$, k% a=\ 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

运行程序，单击命令按钮，输出结果是

A）123456ABCD B）ABCD123456 C）D6C5B4A321 D）AlB2C3D456 （29）请阅读程序： Private Sub Form_ Click() m=1

For i = 4 To 1 Step-1

Print Str(m);

m=m+1 For j = 1 To i

Print”*”； Next j Print

Next i End Sub

程序运行后，单击窗体，则输出结果是 A）

1**** 2*** 3** 4*

B）

4**** 3*** 2** 1*

C）

**** *** ** *

D） *

** *** ****

（30）在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码： Private Sub Command l_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

运行上面的程序，单击命令按钮，则输出结果是 A）4321 B）123 C）234 D）1234 （31）下列可以打开随机文件的语句是 A）Open \＃1 B）Open”file l .dat\＃1 C）Open”file1.dat\＃1

D）Open”file1.dat\＃1 Len=20

（32）有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是

A）Private Sub Form _Click（） PopupMenu cut End Sub

B）Private Sub Command1_ Click（） PopupMenu edit End Sub

C）Private Sub Form_ Click（） PopupMenu edit End Sub

D）Private Sub Form_lick（） PopupMenu cut PopupMenu paste End Sub

（33）请阅读程序： Option Base 1

Private Sub Form_ Click（） Dim Arr(4, 4) As Integer For i=1 To 4 For j=I 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 Print Next i End Sub

程序运行后，单击窗体，则输出结果是 A）5 7 B）6 8 C）7 9 D）8 10 6 8 7 9 8 10 8 11

（34）下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str= \则函数的返回值为：\

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

但实际上函数有错误，需要修改。下面的修改方案中正确的是 A）把ret=ret＆temp改为ret=temp

B）把If temp=ch Then改为If temp<> ch Then C）把delchar=ret改为delchar=temp D）把ret =\改为temp=\

（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text 1和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Dim S1 As String, S2 As String Private Sub Form Load（） Text 1 .Text=\ Text2.Text=\ Text 1.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 Forin_ KeyPress（KeyAscii As Integer） S1=S1 & Chr（KeyAscii）

End Sub

Private Sub Commandl_Click Textl .Text=Sl Text2.Text=S2 S1=\ S2=\

End Sub

程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为

A）abc和ABC B）空白 C）ABC和abc D）出错

二、填空题（每空2分，共30分）

请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。

（1）一个栈的初始状态为空。首先将元素5，4，3，2，1 依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为__【1】__。

（2）在长度为n的线性表中，寻找最大项至少需要比较___【2】___次。 （3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有__【3】___个结点。

（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是_【4】__程序。 （5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和_【5】_。 （6）窗体上有一个名称为Combo1的组合框， 其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。

Option Base 1

Private Sub Command1_ Click（） Dim city As Variant

city=_【6】_（\北京\，\天津\，\上海\，\武汉\，\重庆\，\西宁\） For i=_【7】_To UBound（city） Combo1.Addltem_【8】_ Next End Sub

（7）窗体上有一个名称为Text 1的文本框和一个名称为Command l、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。