第三部分 全国计算机等级考试模拟试卷及参考答案(3)

3．在窗体上设计三个文本框及一个命令按钮，将用户输入的三个数按从大到小排序输出。将程序补充完整。 Private Sub Command1_Click() Dim a, b, c, temp As Integer a=Val(Text1.text) b=Val(Text2.text) c=Val(Text3.text) If a

temp=a a=b

〖3〗 End if

If b>c then

〖4〗 Else

If c>a then Print c,a,b

Else

〖5〗

End if End if End sub

4．在窗体上设计两个文本框输入x与n的值及一个命令按钮，求s=x-x3/3!+x5/5!-…+x(2*n-1)/ (2*n-1)!的值。将程序补充完整。

Private Sub Command1_Click() Dim x, fn, s As Single Dim i, j, n, flag As Integer x=Val(Text1.text) n=Val(Text2.text)

s=0 flag=1

For i=1 to n

〖6〗 For j=1 to 2*i-1 fn=fn*j Next

〖7〗 flag=-flag

Next Print s End Sub

5．阅读下列程序：

Sub func_my(Byval x As Integer, Byref y As Integer) x=x+y y=x-y End sub

Private Sub Command1_Click() Dim a as Integer,b As Integer a=10 b=20

Call func_my(a,b) Call func_my(b,a) Print a,b End Sub

程序运行时，当用户单击Command1按钮后，程序输出结果为 〖8〗 。 6．以下循环的执行次数是 〖9〗 。 k=0

Do While k<=10 k=k+1 Loop

7．有如下Sub过程： Sub Ind(a As Integer) Static x AS Integer x=x+a print x; End Sub

以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为 〖10〗 。

Private Sub Command1_click() Ind 2

End Sub

8．以下程序是求出由（1、2、3、4）四个数字，能组成所有互不相同且无重复数字的三位数，并打印出来。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer For i = 1 To 4 For j = 1 To 4 For k = 1 To 4

If 〖11〗 Then Print i * 100 + j * 10 + k End If Next k, j, i End Sub

9．下列程序实现了将两个N*N的矩阵求和后转置。请填写空白处。

Const N = 10

Dim A(N, N) As Single, B(N, N) As Single, C(N, N) As Single Private Function AddMatrix()

Dim intI As Integer, intJ As Integer For intI = 1 To N For intJ = 1 To N

C( 〖12〗 , 〖13〗 ) = A(intI, intJ) + B(intI, intJ) Next intJ intI

End Function

10．下列程序段的作用是打印出100-999所有的水仙花数（所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。如：153=1^3＋5^3＋3^3，153是一个“水仙花数”）。

Private Sub Command1_Click() For n = 100 To 999 a = n \\ 100

b = 〖14〗 c = n Mod 10

If 〖15〗 Then Print n End If Next End Sub

全国计算机等级考试模拟试卷三

（考试时间 90分钟，满分100分）

一、选择题（第1-20题每题2分，第21-30题每题3分，共70分） 1．下列叙述不正确的是（ ）。

A) 一个目标程序所需的所有文件的集合称为工程。 B) VB的工程文件的扩展名为.vbp。

C) 工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等。 D) 工程文件中除了窗体文件是可选的外，其它文件都是必须的。 2．编译一个工程的目的是（ ）。

A) 将工程的程序翻译成可以看懂的文件。 B) 将工程的程序重新正确编排。

C) 按工程的程序生成计算机能够执行的机器代码，使之能够脱离VB集成开发环境独立运行。 D) 检查工程中有无错误的机器代码，以便工程能够脱离VB集成开发环境独立运行。 3．下列关于窗体的说法错误的是（ ）。 A) 窗体是VB的一个对象

B) 各种控件对象必须建立在窗体上 C) 窗体是VB的一个控件

D) 可以把窗体看作是一个对象的容器

4．（ ）关键字声明的局部变量在整个程序运行中一直存在。 A) Public B) Private C) Dim D) Static 5．菜单控件仅支持以下（ ）事件。

A) Click B) MouseDown C) KeyPress D) Load

6．当定时器的Interval属性被设置成200时，则每隔（ ）时间运行一次Timer事件。 A) 200 秒 B) 0.2秒 C) 0.02秒 D) 2秒 7．不能作为容器使用的对象是（ ）。 A) Frame B) Form C) PictureBox D) Image

8．VB中构成文件的最基本的单位是（ ）。 A) 字符 B) 字 C) 字段 D) 记录

9．下列关于Sub过程的叙述正确的是（ ）。 A)一个Sub过程必须有一个Exit sub语句。 B)一个Sub过程必须有一个End sub语句。 C)在Sub过程中可以定义一个Function过程。 D)可以用Goto语句退出Sub过程。

10．当在一个文本框中输入字符时，将触发文本框的（ ）事件。 A) Activate B) LostFocus C) GetFocus D) Change

11．对于Commandbutton控件，Picture属性用于给按钮加一个图形，只有当（ ）属性的属性值设置为1时，该属性才有效。

A) Default B) Cancel C) Style D) Enabled

12．以下命令中能够正确地画出矩形的是（ ）。 A) Line-(3000,3000) B) Line-(300,300)

C) Line(300,300)-(3000,3000), , D) Line(300,300)-(3000,3000) 13．以下只有（ ）控件能接受焦点。

A) 框架控件(Frame) B) 直线控件(Line) C) 文本框控件(Textbox) D) 标签控件(Label)

14．图像框(Image)和图片框(Picturebbx)在使用时有所不同，以下叙述中正确的是（ ）。 A) 图片框比图像框占内存少 B) 图像框内还可包括其他控件

C) 图片框有Stretch属性而图像框没有 D) 图像框有Stretch属性而图片框没有

15．Boolean类型的数据由几个字节组成（ ）。 A) 1 B) 2 C) 3 D) 4 16．以下说法正确的是（ ）。

A) 通过改变属性窗口中的Name属性，来改变窗体的标题 B) Private表示此过程只可被本工程中的其它过程调用

C) 在多文档应用中，每次只能有一个活动的子窗体可以进行输入/编辑 D) 列表框包含了组合框的功能

17．当标签的Alignment属性被设为0时，其显示文字将（ ）。 A) 左对齐 B) 右对齐 C) 居中 D) 不显示 18．以下常数中，（ ）占用的存储空间最多。 A) –8.45D5 B) false C) 9898989 D)-6.12E6 19．下列关于控件数组的说法，正确的是（ ）。 A) 控件数组可以由不同类型的控件组成。 B) 在运行时不能创建控件数组。

C) 同一个控件数组中，每个元素的属性设置值都相同。 D) 控件数组必须由同类型的控件组成。 20．有如下程序，该段程序将（ ）。

For I=l to 10 step 0 k=k+2 Next I A) 形成无限循环

B) 循环体执行一次后结束循环 C) 语法错误

D) 循环体不执行即结束循环

21．下列程序实现了将一个文件（tt.txt）读入一个可以多行显示的文本框中。

Private Sub Command1_Click() Dim strLine As String

Open App.Path+”tt.txt” for Input As #1 While Not EOF()

Line Input #1,StrLine

Text1.text= +strLine + Wend Close End Sub

则空白处应填写的句子分别是（ ）。

A) aa.txt, vbCrLf B) Text1.text, “*” C) Text1.text, vbCrLf D) strLine, vbCrLf 22．下列程序段的执行结果为（ ）。 Dim M(10) For k=1 to 10 M(k)=11-k

Next k x=6

Print M(2+M(x))

A) 2 B) 3 C) 4 D) 5

23．下列程序段（ ）能够正确实现条件：如果XY Then A=15：Print A A=-15 A=-15：Print A Print A

C) If X

24．以下程序段的输出结果是（ ）。 A=Sqr(3) B=Sqr(2) C=a>b Print c

A) -1 B) 0 C) False D)True

25．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_C1ick()

For i=1 To 4 x=0

For j=1 To 3 x=j

For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub

程序运行后，单击命令按钮，输出结果是（ ）。 A) 538 B) 157 C) 15 D) 7

26．单击命令按钮时，下列程序代码的执行结果为（ ）。 Private Function Pickmid (xStr As String) As String Dim tempStr As String Dim StrLen As integer TempStr=””

StrLen=Len(xstr) i=1

Do While I<=strlen/2

TempStr = tempStr + Mid(xStr, i, 1) + Mid (xStr,strLen-i+1,1) i=i+1 Loop

Pickmid = tempStr End function

Private Sub Command1_click() Dim firstStr as string FirstStr=“abcdef ” Print pickMid(firstStr) End Sub

A) abcdef B) afbecd C) fedcba D) defabc 27．有如下一个函数过程：

Function f( a As Integer) b=0 Static C b=b+1 c=c+1 f=a+b+c End Function

在窗体上添加一个命令按纽，事件过程如下：

Private Sub Command1_Click() Dim a As Integer a=2

For i=1 To 3 Print f(a); Next i End Sub

运行该程序，单击命令按纽，输出结果是（ ）。 A) 4 4 4 B)4 5 6 C) 6 7 8 D)4 7 9

28．以下是计算10的阶乘的程序，请补充该程序。

Dim t as single Dim k as integer k=1 t=1

While k=k+1 t=t*k wend Print t

A) k<10 B) k>10 C) k<=l0 D) k>=10 29．阅读下列程序：