2006全国计算机等级考试二级vb模拟试题1答案,2006年9月全国计算机等级考试二级VB笔试真题(2)...

(26)有以下程序：

Sub subp(b()As Integer)

For i=1To4

B.(i)=2-i

Nexti

End Sub

Private Sub Command1_Click()

D.im a (1 To 4)As Integer

A) (1)=5

A) (2)=6

A) (3)=7

A) (4)=8

subpa()

For i=1 To4

Print a (i)

Next i

End Sub

运行上面的程序，单击命令按钮，输出结果为 (　　) 。

A.2 4 6 8

B.5 6 7 8

C.10 12 14 16

D .出错

(27)设有如下通用过程：

Public Function Fun(xStr As String)

D.im tStr As String, srtL As Integer tStr+””

strL=Len(xStr)

i=1

D.o While i<=strL/2

tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1)

i=i+1

Loop

Fun=tStr

End Function

在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：

Private Sub Command 1_ Click()

Dim S1 As String

S1=”abcdef”

Text1.Text=UCase(Fun(S1))

End Sub

程序运行后，单击命令按钮，则 Text1 中显示的是 (　　) 。

A.ABCDEF

B.abcdef

C.AFBECD

D.DEFABC

(28)在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程：

Private Sub TxtA_KeyPress(KeyAscii As Integer)

……

End Sub

假定焦点已经位一地文本框中，则能够触发 KeyPress 事件的操作是

A.单击鼠标

B.双击文本框

C.鼠标滑过文本框

D.按下键盘上的某个键

(29)在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：

D)im S1 As String, S2 As String

Private Sub Form_Load()

Text1. Text=””

Text2. Text=””

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

S2=s2 & Chr(KeyCode)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

S1=S1 & chr(KeyAscii)

End Sub

Private Sub Command1_Click()

Text1.Text=S2

Text2.Text=S1

S1= “”

S2= “”

End Sub

程序运行后，在 Text1 中输入“ abc ”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为 (　　) 。

A.abc 和 ABC

B .abc 和 abc

C.ABC 和 abc

D .ABC 和 ABC

(30)以下说法正确的是 (　　) 。

A.任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器

B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

C.任何时候都可以通过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器

D.只有当代码窗品为当前活动窗口时，才能找开菜单编辑器

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

Private Sub Command1_Click()

CommonDialog1. Filter=”All Files(*.*)|*.*Text Files”&_

“(*.txt)|*.txt| Executable Files(*.exe)|*.exe”

CommonDialog1. Filterindex=3

CommonDialog1. Show Open

MsgBox CommonDialog1. FileName

End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 (　　) 。

A.All Files(*.*)

B.Text files(*.txt)

C.Executable Files(*.ext)

D.不确定

(32)以下叙述错误的是

A.一个工程中可以包含多个窗体文件

B.在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用

C.窗体和标准模块需要分别保存为不同类型的磁盘文件

D.?用 Dim 定义的窗体层变量只能在该窗体中使用

33 ?以下叙述中错误的是()

A.语句“ Dim a, b As Integer ”声明了两个整型变量

B.不能在标准模块中定义 Static 型变量

C.窗体层变量必须先声明，后使用

D.在事件过程或通用过程内定义的变量是局部变量

34 ?设有语句： Open "d: \ Text.txt" For OutputAs#1 ，以下叙述中错误的是()

A.若 d 盘根目录下无 Text.txt 文件，则该语句创建此文件

B.用该语句建立的文件的文件号为 1

C.该语句打开 d 盘根目录下一个已存在的文件 Text.txt ，之后就可以从文件中读取信息

D.执行该语句后，就可以通过 Print# 语句向文件 Text.txt 中写入信息

35 ?以下叙述中错误的是()

A. 顺序文件中的数据只能按顺序读写

B.对同一个文件，可以用不同的方式和不同的文件号打开

C.执行Close 语句，可将文件缓冲区中的数据写到文件中

D.随机文件中各记录的长度是随机的

二、填空题(每空 2 分，共 30 分)

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

1 ?下列软件系统结构图的宽度为【 1 】。

2 ?【 2 】的任务是诊断和改正程序中的错误。

3 ?一个关系表的行称为【 3 】。

4 ?按“先进后出”原则组织数据的数据结构是【 4 】。

5 ?数据结构分为线性结构和非线性结构，带链的队列属于【 5 】。

6 ?描述 "X 是小于 100 的非负整数 " 的 Visual Basic 表达式是【 6 】。

7 ?在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。

Private Sub Form_Load()

C) Ommand1 ? Enabled=False

End Sub

Private Sub Text1_ 【 7 】 ()

C) ommand1 ? Enabled=True

End Sub

8 ?在窗体上画一个名称为 "Command1" 的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

D) Im a As String

A) ="123456789"

For i=1 To 5

Print Space(6-i);Mid $ (a, 【 8 】 ,2*i-1)

Next i

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。

9 ?以下程序的功能是：将一维组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把 A ( 1 )到 A ( 10 )依次赋给 B ( 1 ， 1 )到 B ( 1 ， 10 )，把 A ( 11 )到 A ( 20 )依次赋给 B ( 2 ， 1 )到 B ( 2 ， 10 )，……，把 A ( 91 )到 A ( 100 )依次赋给 B ( 10 ， 1 )到 B ( 10 ， 10 )。请填空。

Option Base 1

Private Sub Form_Click()

D) im i As Integer,j As Integer

D) im A(1 To 100) As Integer

D) im B(1 To 10,1 To 10) As Integer

For i=1 To 100

A) (i)=Int(Rnd * 100)

Next i

For i=1 To 【 9 】

For j=1 To 【 10 】

B) (i,j)= 【 11 】

Print B(i,j);

Next j

Print

Next i

End Sub

10 ?在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。

Private Sub Combol_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i=0 To Combo1 ? ListCount-1

If Combo1 ? Text= 【 12 】 Then

Label2 ? Caption=" 输入项已在组合框中。 "

Exit Sub

End If

Next i

Label2 ? Caption=" 已成功添加新输入项。 "

C) ombo1 ?【 13 】 Combo1 ? Text

End If

End Sub

11 ?在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1 ，然后编写如下事件过程：

Private Sub Command1_Click()

D) im inData As String

Text1 ? Text=" "

OPen "d:|| ML ) ||Myfile ? txt" for 【 14 】 As #1

D) o While 【 15 】

Input # 1,inData

Text1 ? Text=Text1 ? Text+inData

Loop

C) lose #1

End Sub

程序的功能是，打开 D 盘根目录下的文本文件 myfile ? txt, 读取它的全部内容并显示在文本框中。请填空