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

For k=1 To Len(Text1)

ch=Mid(Text1,k,1)

s=ch+s Next k

Text1.Text=s End Sub

程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是

A)Basic B)cisaB C)BASIC D)CISAB

(34)某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：

Private Sub Command1_Click()

Dim a(10) As Integer,max As Integer For k=1 To 10

a(k)=InputBox(“输入一个整数”) Next k Max=0

For k=1 to 10

If a(k)>max then Max=a(k) End If Next k Print max End Sub

运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是_______。

A) 把If a(k)>max Then改为 Ifa(k)

C) 把第2个循环语句For k=1 To 改为 For k=2 To 10 D) 把max=0 改为 max=a(10)

(35) 已知在4行3列的全局数组score(4,3) 中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分。某人编写程序如下： Option Base 1

Private Sub Command1_Click() Dim sum As Integer sum=0

For i=1 To 4

For j=1 To 3

sum=sum+score(i,j)

Next j

Print \第\个学生的总分是：\ Next i End Sub

运行此程序时发现，除第一个人总分计算正确外，其他人的总分计算都是错误的，程序需要修改。以下修改方案中正确的是________。

A）把外层循环语句For i=1 To 4改为For i=1 To 3 内层循环语句For j=1 To 3改为For j=1 To 4 B）把sum=0移到For i=1 To 4和For j=1 To 3之间 C）把sum=sum+score(i,j) 改为sum=sum+score(j, i) D）把sum=sum+score(i,j) 改为sum= score(i,j) 二．填空题（每空2分，共30分）

（1）测试用例包括输入值集和 【1】 值集。 （2）深度为5的满二叉树有个 【2】 叶子结点。 （3） 设某循环队列的容量为50，头指针front=5（指向队头元素前一位置），尾指针rear=29(指向队尾元素)，则该循环队列中共有 【3】 个元素。

（4）在关系数据库中，用来表示实体之间联系的是 【4】 。

（5）在数据管理系统提供的数据定义语言，数据操纵语言和数据控制语言中， 【5】 负责数据的模式定义与数据的物理存取构建。 （6）设有以下的循环：

X=1 Do

x=x+2 Print x

Loop Until 【6】 要求程序运行时执行3次循环体，请填空。

（7）窗体上命令按钮Command1的事件过程如下：

Private Sub Command1_Click()

Dim total As Integer total=s(1)+s(2) Print total End Sub

Private Function s(m As integer)As integer

Static x As integer For i=1 to m

x=x+1 next i s=x

End Function

运行程序，第3次单击命令按钮Command1时，输出结果为 【7】 。 （8）在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：

Option Base 1

Private Sub Command1_Click

Dim a(10)As integer For i=1 To 10

a(i)=i Next

Call swap( 【8】 ) For i=1 To 10 Print a(i) Next

End Sub

Sub swap(b()As Integer) n= 【9】 For i=1 to n/2 t=b(i)

b(i)=b(n) b(n)=t

【10】 Next End Sub

上述程序的功能是，通过调用过程swap, 调换数组中数值的存放位置，即a（1）与a (10）的值互换。a(2)与a(9)的值互换 ,….。请填空。

(9)在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下时件过程：

Private Sub Command1_click()

CommonDialog1.Filter= \& \

CommonDialog1.FilterIndex=1 CommonDialog1.showOpen

MsgBox CommonDialog1.FileName End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 【11】 ：如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是 【12】 。

（10）以下程序的功能是：把顺序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来，请填空。

Private Sub Command1_Click()

Dim inData As String Text1.Text=””

Open”smtext1.txt” 【13】 As 【14】 Do While 【15】 Input #2,inData

Text1.Text=Text1.Text&inData

Loop Close #2 End Sub 答案：

一、选择题

1.C 2.A 3.B 4.B 5.A 6.D 7.B 8.C 9.D 10.C 11.D 12.A 13.B 14.C 15.B 16.D 17.C 18.A 19.C 20.A 21.C 22.B 23.A 24.D 25.A 26.D 27.C 28.CD 29.B 30.A 31. B 32.C 33.B 34.D 35.B

二、填充题

【1】输出结果 【2】16 【3】24 【4】二维表 【5】数据操纵语言 【6】x>5或x >6或x>=7 【7】16 【8】a()【9】Ubound(b) 或10 【10】n = n –1【11】All Files(*.*) 【12】d:\\temp\\tel.txt【13】For Input 【14】#2【15】Not EOF(2)