下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

　　(1)数据的存储结构是指
　　A) 存储在外存中的数据              B) 数据所占的存储空间量
　　C) 数据在计算机中的顺序存储方式    D) 数据的逻辑结构在计算机中的表示

　 (2)下列关于栈的描述中错误的是
　　A)栈是先进后出的线性表      B) 栈只能顺序存储
　　C) 栈具有记忆作用           D) 对栈的插入与删除操作中，不需要改变栈底指针

 　(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是
　　A) 冒泡排序为n/2            B) 冒泡排序为n
　　C) 快速排序为n              D) 快速排序为n(n-1)/2

　　(4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为
　　A) log2n   B) n/2    C) n   D) n+1

　　(5)下列对于线性链表的描述中正确的是
　　A)存储空间不一定是连续，且各元素的存储顺序是任意的
　　B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面
　　C)存储空间必须连续，且前件元素一定存储在后件元素的前面
　　D)存储空间必须连续，且各元素的存储顺序是任意的

　　(6)下列对于软件测试的描述中正确的是
　　A)软件测试的目的是证明程序是否正确
　　B)软件测试的目的是使程序运行结果正确
　　C)软件测试的目的是尽可能多地发现程序中的错误
　　D)软件测试的目的是使程序符合结构化原则

　　(7)为了使模块尽可能独立，要求
　　A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
　　B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
　　C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
  　D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强

　　(8)下列描述中正确的是
　　A) 程序就是软件
　　B) 软件开发不受计算机系统的限制
　　C) 软件既是逻辑实体，又是物理实体
　　D) 软件是程序、数据与相关文档的集合

　　(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指
　　A) 数据与程序独立存放
　　B) 不同的数据被存放在不同的文件中
　　C) 不同的数据只能被对应的应用程序所使用
　　D) 以上三种说法都不对

　　(10) 用树形结构表示实体之间联系的模型是
　　A) 关系模型   B) 网状模型   C) 层次模型   D) 以上三个都是

　　11、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：
　　A)Private Sub Text1_Change()
　　  Command1.Caption=”计算机等级考试”
　　  End Sub
　　B) Private Sub Command1_Click()
　　   Caption=”计算机等级考试”
　　   End Sub
　　C) Private Sub Form1_Click()
　　   Text1.Caption=”计算机等级考试”
　　   End Sub
　　D) Private Sub Command1_Click()
　　   Text1.Text=”计算机等级考试”
　　   End Sub

　　(12)设a=5,b=4,c=3,d=2，下列表达式的值是　3>2*b Or a=c And b<>c Or c>d
　　A) 1     B) True     C) False     D) 2

　　(13)设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是
　　A)b=Left(a,10)　　B)b=Mid(a,10) 　　C)b=Right(a,10) 　　D)b=Mid(a,11,10)

　　(14)假定有如下的窗体事件过程：
     Private Sub Form_Click()
　　a$ = "Microsoft Visual Basic"
　　b$ = Right(a$, 5)
　　c = Mid(a$, 1, 9)
　　MsgBox a$, 34, b$, c$, 5
　　End Sub
　　程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：
　　A)Microsoft Visual　　B)Microsoft　　C)Basic　　D)5

　　(15)设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=Iif((ad),”A”,”B”)后，x的值为：
　　A)”a”　　B)”b”　　C)”B”　　D)”A”

　　(16)为了使命令按钮(名称为Command1)右移200，应使用的语句是
　　A)Command1.Move -200　　B) Command1.Move 200
　　C) Command1.Left= Command1.Left+200　　D) Command1.Left= Command1.Left-200

　　(17)在窗体上画一个文本框，然后编写如下事件过程：
　　Private Sub Form_Click()
　　x = InputBox("请输入一个整数")
　　Print x + Text1.Text
　　End Sub
　　程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：
　　A)123　　B)456　　C)579　　D)123456

　　（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
　　Private Sub Command1_Click()
　　Timer1._________
　　End Sub
　　Private Sub Timer1_Timer()
　　Text1.Text = Time
　　End Sub
　　在______处应填入的内容是
　　A)Enabled=True　　B)Enabled=False　　C)Visible=True　　D)Visible=False

　　(19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：
　　A)选择图片框，然后按Del键　　B)执行语句Picture1.Picture=LoadPicture(“”)
　　C)执行语句Picture1.Picture=””　　D)选择图片框，在属性窗口中选择Picture属性，然后按回车键

　　（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是
　　A) Private Sub List1_Click()　　Label1.Caption = List1.ListIndex　　End Sub
　　B) Private Sub List1_Click()　　Label1.Name = List1.ListIndex　　End Sub
　　C) Private Sub List1_Click()　　Label1.Name = List1.Text　　End Sub
　　D) Private Sub List1_Click()　　Label1.Caption = List1.Text　　End Sub

　　（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　Dim i As Integer, x As Integer
　　For i = 1 To 6
　　If i = 1 Then x = i
　　If i <= 4 Then
　　x = x + 1
　　Else　　
    x = x + 2
　　End If
　　Next i
　　Print x
　　End Sub
　　程序运行后，单击命令按钮，其输出结果为
　　A)9　　B)6　　C)12　　D)15

　　（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
　　Private Sub Command1_Click()
　　c = "ABCD"
　　For n = 1 To 4
　　Print _________
  　Next
　　End Sub
　　程序运行后，单击命令按钮，要求在窗体上显示如下内容：
　　D
　　CD
　　BCD
　　ABCD
　　则在________处应填入的内容为
　　A)Left(c,n)　　B)Right(c,n)　　C)Mid(c,n,1)  　D)Mid(c,n,n)

　　(23)执行以下程序段
　　Dim x As Integer, i As Integer
　　x=0
　　For i = 20 To 1 Step -2
　　x = x + i \ 5
　　Next I
　　后，x的值为
　　A)16　　B)17　　C)18　　D)19

　　（24）在Visual Basic工程中，可以作为启动对象的程序是
　　A)任何窗体或标准模块
　　B)任何窗体或过程
　　C)Sub Main过程或其他任何模块
　　D)Sub Main过程或任何窗体

　　(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是
　　A)数组中每个命令按钮的名称(名称属性)均为Command1
　　B)数组中每个命令按钮的标题(Caption属性)都一样
　　C)数组中所有命令按钮可以使用同一个时间过程
　　D)用名称Command1(下标)可以访问数组中的每个命令按钮

　　(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程:
　　Private Sub Form_KeyPress(KeyAscii As Integer)
　　Dim ch As String
　　ch = Chr(KeyAscii)
　　KeyAscii = Asc(UCase(ch))
　　Print Chr(KeyAscii + 2)
　　End Sub
　　程序运行后,按键盘上的”A”键,则在窗体上显示的内容是
　　A)A　　B)B　　C)C　　D)D

　　(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:

　　Private Sub Command1_Click()

　　a = InputBox("请输入日期(1~31)")

　　t = "旅游景点:" _

　　& IIf(a > 0 And a <= 10, "长城", "") _

　　& IIf(a > 10 And a <= 20, "故宫", "") _

　　& IIf(a > 20 And a <= 30, "颐和园", "")

　　Text1.Text = t

　　End Sub

　　程序运行后,如果从键盘输入16,则在文本框中显示的内容是:

　　A)旅游景点：长城故宫

　　B)旅游景点：长城颐和园

　　C)旅游景点：颐和园

　　D)旅游景点：故宫

　　(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:

　　Private Sub Form_Click()

　　Dim arr(10, 10) As Integer

　　Dim i As Integer, j As Integer

　　For i = 2 To 4

　　For j = 2 To 4

　　arr(i, j) = i * j

　　Next j

　　Next i

　　Label1.Caption = Str(arr(2, 2) + arr(3, 3))

　　End Sub

　　程序运行后,单击窗体,在标签中显示的内容是

　　A)12

　　B)13

　　C)14

　　D)15

　　(29) 在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:

　　Private Function fun(ByVal m As Integer)

　　If m Mod 2 = 0 Then

　　fun = 2

　　Else

　　fun = 1

　　End If

　　End Function

　　Private Sub Command1_Click()

　　Dim i As Integer, s As Integer

　　s = 0

　　For i = 1 To 5

　　s = s + fun(i)

　　Next

　　Print s

　　End Sub

　　程序运行后,单击命令按钮,则窗体上显示的是:

　　A)6

　　B)7

　　C)8

　　D)9

　　(30)阅读程序:

　　Option Base 1

　　Dim arr() As Integer

　　Private Sub Form_Click()

　　Dim i As Integer, j As Integer

　　ReDim arr(3, 2)

　　For i = 1 To 3

　　For j = 1 To 2

　　arr(i, j) = i * 2 + j

　　Next j

　　Next i

　　ReDim Preserve arr(3, 4)

　　For j = 3 To 4

　　arr(3, j) = j + 9

　　Next j

　　Print arr(3, 2) + arr(3, 4)

　　End Sub

　　程序运行后,单击窗体,输出结果为:

　　A)21

　　B)13

　　C)8

　　D)25

　　31)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim c As Integer, d As Integer

　　d = 0

　　c = 6

　　x = Array(2, 4, 6, 8, 10, 12)

　　For i = 1 To 6

　　If x(i) > c Then

　　d = d + x(i)

　　c = x(i)

　　Else

　　d = d - c

　　End If

　　Next i

　　Print d

　　End Sub

　　程序运行后,如果单击命令按钮,则在窗体上输入的内容为

　　A)10

　　B)16

　　C)12

　　D)20

　　(32)设有如下程序:

　　Private Sub Command1_Click()

　　Dim c As Integer, d As Integer

　　c = 4

　　d = InputBox("请输入一个整数")

　　Do While d > 0

　　If d > c Then

　　c = c + 1

　　End If

　　d = InputBox("请输入一个整数")

　　Loop

　　Print c + d

　　End Sub

　　程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:

　　A)12

　　B)11

　　C)10

　　D)9

　　(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:

　　Microsoft Visual Basic Programming

　　然后编写如下事件过程:

　　Private Sub Command1_Click()

　　Open "d:\temp\outf.txt" For Output As #1

　　For i = 1 To Len(Text1.Text)

　　c = Mid(Text1.Text, i, 1)

　　If c >= "A" And c <= "Z" Then

　　Print #1, LCase(c)

　　End If

　　Next i

　　Close

　　End Sub

　　程序运行后,单击命令按狃,文件outf.txt中的内容是:

　　A)MVBP

　　B)mvbp

　　C)M

　　V

　　B

　　P

　　D)m

　　v

　　b

　　p

　　(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

　　Dim SW As Boolean

　　Function func(X As Integer) As Integer

　　If X < 20 Then

　　Y = X

　　Else

　　Y = 20 + X

　　End If

　　func = Y

　　End Function

　　Private Sub Command1_Click()

　　Dim intNum As Integer

　　intNum = InputBox("")

　　If SW Then

　　Print func(intNum)

　　End If

　　End Sub

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

　　SW = False

　　End Sub

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

　　SW = True

　　End Sub

　　程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:

　　A)输出0

　　B)输出25

　　C)输出45

　　D)无任何输出

　　(35) 设有如下通用过程:

　　Public Sub fun(a() As Integer, x As Integer)

　　For i = 1 To 5

　　x = x + a(i)

　　Next

　　End Sub

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

　　Private Sub Command1_Click()

　　Dim arr(5) As Integer, n As Integer

　　For i = 1 To 5

　　arr(i) = i + i

　　Next

　　fun arr, n

　　Text1.Text = Str(n)

　　End Sub

　　程序运行后,单击命令按钮,则在文本框中显示的内容是

　　A)30

　　B)25

　　C)20

　　D)15

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

　　请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。

　　(1) 某二*树中度为2的结点有18个，则该二*树中有 【19】 个叶子结点。

　　(2) 在面向对象方法中，类的实例称为 【对象】 。

　　(3) 诊断和改正程序中错误的工作通常称为 【程序调试】 。

　　(4) 在关系数据库中，把数据表示成二维表，每一个二维表称为 【关系】 。

　　(5) 问题处理方案的正确而完整的描述称为 【算法】 。

　　(6)以下语句的输出结果是: 【12345.68】

　　Print Int(12345.6789*100+0.5)/100

　　(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:

　　Private Sub Form_Click()

　　Text1.Text = "VB程序设计"

　　End Sub

　　Private Sub Text1_Change()

　　Picture1.Print "VBProgramming"

　　End Sub

　　程序运行后,单击窗体,在文本框中显示的内容是【VB程序设计】,而在图片框中显示的内容是【VB Programming】

　　(8)阅读下面的程序

　　Private Sub Form_Click()

　　Dim Check As Boolean, Counter As Integer

　　Check = True

　　Counter = 5

　　Do

　　Do While Counter < 20

　　Counter = Counter + 1

　　If Counter = 10 Then

　　Check = False

　　Exit Do

　　End If

　　Loop

　　Loop Until Check = False

　　Print Counter

　　End Sub

　　程序运行后,单击窗体,输出结果是【10】

　　(9)设有如下程序

　　Private Sub Form_Click()

　　Dim a As Integer, s As Integer

　　n = 8

　　s = 0

　　Do

　　s = s + n

　　n = n - 1

　　Loop While n > 0

　　Print s

　　End Sub

　　以上程序的功能是【求1-8的和】,程序运行后,单击窗体,输出结果为【36】

　　(10)设有如下程序:

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim arr1

　　Dim Min As Integer, i As Integer

　　arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

　　Min = 【arr1(1)】

　　For i = 2 To 8

　　If arr1(i) < Min Then 【min=arr1(i)】

　　Next i

　　Print "最小值是:"; Min

　　End Sub

　　以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空

　　(11)在名称为Form1 的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:

　　Private Sub Form_Click()

　　Open "d:\test\smtext1.txt" For Input As #1

　　Do While Not 【EOF(1)】

　　Line Input #1, aspect$

　　whole$ = whole$ + aspect$ + Chr(13) + Chr(10)

　　Loop

　　Text1.Text = whole$

　　Close #1

　　Open "d:\test\smtext2.txt" For Output As #1

　　Print #1, 【text1.text(或whole$)】

　　Close #1

　　End Sub

　　上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt .请填空

Visual Basic语言程序设计

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

2004年9月

一、选择题（(1)～(20)每小题2分，(21)～(30)每小题3分，共70分）
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是

A) Text1.MaxLength=0          B) Text1.Enabled=Flase

C) Text1.Visible=Flase             D) Text1.Width=0

(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是

A) Form1.Name="VisualBasic窗体"

B) Form1.Title="VisualBasic窗体"

C) Form1.Caption="VisualBasic窗体"

D) Form1.Text="VisualBasic窗体”

(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示。

以下能实现上述操作的程序段是

A) Private Sub Hscroll1_Change()

Text1.Text=HScroll1.Value

End Sub

B) Private Sub Hscroll1_Click()

Text1.Text=HScroll1.Value

End Sub

C) Private Sub Hscroll1_Change()

Text1.Text=Hscroll1.Caption

End Sub

D) Private Sub Hscroll1_Click()

Text1.Text=Hscroll1.Caption

End Sub

(4) 设菜单中有一个菜单项为"Open"。若要为该菜单命令设置访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是

A) 把Caption属性设置为&Open

B) 把Caption属性设置为O&pen

C) 把Name属性设置为&Open

D) 把Name属性设置为O&pen

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

Private Sub Command1_Click()

x=InputBox("Input")

Select Case x

Case 1,3

Print "分支 1"

Case Is >4

Print "分支 2"

Case Else

Print "Else 分支 "

End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A) 分支1       B) 分支2        C) Else分支     D) 程序出错

(6) 以下关于MsgBox的叙述中，错误的是

A) MsgBox函数返回一个整数

B) 通过MsgBox函数可以设置信息框中图标和按钮的类型

C) MsgBox语句没有返回值

D) MsgBox函数的第二个参数是一个整数,该参数只能确定对话框中显示的按钮数量

(7) 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是

A) Timer1.Interval=0.5             B) Timer1.Interval=5

C) Timer.Interval=50           D) Timer1.Interval=500

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

Private Sub Command1_Click()

Static x As Integer

Cls

For i=1 To 2

y=y+x

x=x+2

Next

Print x,y

End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是

A) 4  2        B) 12  18       C) 12  30       D) 4  6

(9) 以下关于多重窗体程序的叙述中，错误的是

A) 用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体

B) 在多重窗体程序中,各窗体的菜单是彼此独立的

C) 在多重窗体程序中,可以根据需要指定启动窗体

D) 对于多重窗体程序, 需要单独保存每个窗体

(10) 以下关于文件的叙述中，错误的是

A) 顺序文件中的记录一个接一个地顺序存放

B) 随机文件中记录的长度是随机的

C) 执行打开文件的命令后,自动生成一个文件指针

D) LOF函数返回给文件分配的字节数

(11) 以下叙述中错误的是

A) 事件过程是响应特定事件的一段程序

B) 不同的对象可以具有相同名称的方法

C) 对象的方法是执行指定操作的过程

D) 对象事件的名称可以由编程者指定

(12) 以下合法的Visual Basic标识符是

A) ForLoop         B) Const        C) 9abc         D) a#x

(13) 当一个复选框被选中时，它的Value属性的值是

A) 3           B) 2            C) 1            D) 0

(14) 表达式 5 Mod 3+3\5*2的值是

A) 0           B) 2            C) 4            D) 6

(15) 设x=4,y=8,z=7，以下表达式的值是

x<y And (Not y>z) Or z<x

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

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

Private Sub Command1_Click()

a$="VisualBasic"

Print String(3,a$)

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A) VVV             B) Vis          C) sic          D) 11

(17) 设有如下程序段：

x=2

For i=1 To 10 Step 2

x=x+i

Next

运行以上程序后，x的值是

A) 26          B) 27           C) 38           D) 57

(18) 以下叙述中错误的是

A) 在KeyPress事件过程中不能识别键盘的按下与释放

B) 在KeyPress事件过程中不能识别回车键

C) 在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母

D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

(19) 执行如下两条语句，窗体上显示的是

a=9.8596

Print Format(a,"$00,00.00")

A) 0,009.86    B) $9.86        C) 9.86         D) $0,009.86

(20) 在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click()

CommonDialog1.FileName =""

CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"

CommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle="VBTest"

CommonDialog1.Action=1

End Sub

对于这个程序，以下叙述中错误的是

A) 该对话框被设置为“打开”对话框

B) 在该对话框中指定的默认文件名为空

C) 该对话框的标题为VBTest

D) 在该对话框中指定的默认文件类型为文本文件(*.Txt)

(21) 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：

Private Sub Command1_Click()

Dim a As Integer

a=10

Call g(Form2,a)

End Sub

Private Sub g(f As Form,x As Integer)

y=IIf(x>10,100,-100)

f,Show

f.Caption=y

End Sub

运行以上程序，正确的结果是

A) Form1的Caption属性值为100

B) Form2的Caption属性值为-100

C) Form1的Caption属性值为-100

D) Form2的Caption属性值为100

(22) 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click()

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A) 10  5       B) 12  5        C) 10  7        D) 12  7

(23) 设有如下程序

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer

Dim n As Integer

n=InputBox("输入数据")

If n<10 Then

Call GetArray(a,n)

End If

End Sub

Private Sub GetArray(b() As Integer,n As Integer)

Dim c(10) As Integer

j=0

For i=1 To n

b(i)=CInt(Rnd()*100)

If b(i)/2=b(i)\2 Then

j=j+1

c(j)=b(i)

End If

Next

Print j

End Sub

以下叙述中错误的是

A) 数组b中的偶数被保存在数组c中

B) 程序运行结束后,在窗体上显示的是c数组中元素的个数

C) GetArray过程的参数n是按值传送的

D) 如果输入的数据大于10，则窗体上不显示任何显示

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

Option Base 1

Private Sub Command1_Click()

Dim a

a= Array(1,2,3,4,5)

For i=1 To UBound(a)

a(i) = a(i)+i-1

Next

Print a(3)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是

A) 4           B) 5            C) 6            D) 7

(25) 阅读程序

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum = 0

arr = Array(1,3,5,7,9,11,13,15,17,19)

For i=1 To 10

If arr(i)/3 = arr(i)\3 Then

Sum = Sum + arr(i)

End If

Next i

Print Sum

End Sub

程序运行后，单击窗体，输出结果为

A) 13         B) 14           C) 27           D) 15

(26) 在窗体上画一个名称为File1的文件列表框，并编写如下程序：

Private Sub File1_DblClick()

x=Shell(File1.FileName,1)

End Sub

以下关于该程序的叙述中，错误的是

A) x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)

B) 双击文件列表框中的文件，将触发该事件过程

C) 要执行的文件的名字通过File1.FileName指定

D) File1中显示的是当前驱动器、当前目录下的文件

(27) 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

编写如下程序：

Private Sub Form_Load()

Timer1.Enabled=False

End Sub

Private Sub Command1_Click()

Timer1.Enabled=True

End Sub

Private Sub Command2_Click()

Timer1.Enabled=False

End Sub

Private Sub Timer1_Timer()

If Label1.Left<Width Then

Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

End Sub

程序运行后单击“开始”按钮，标签在窗体中移动。

对于这个程序，以下叙述中错误的是

A) 标签的移动方向为自右向左

B) 单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D) 标签按指定的时间间隔移动

(28) 执行以下程序段

a$="abbacddcba"

For i=6 To 2 Step -2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X & Y & z)

Next i

Print z

输出结果为

A) ABA             B) BBABBA       C) ABBABA       D) AABAAB

(29) 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a As Variant

a=Array(1,2,3,4,5)

Sum=0

For i=1 To 5

Sum = sum+a(i)

Next i

x=Sum/5

For i =1 To 5

If a(i)>x Then Print a(i);

Next i

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

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

(30) 假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

Model1代码如下：

Public x As Integer

Public y As Integer

Sub S1()

x =1

S2

End Sub

Sub S2()

y=10

Form1.Show

End Show

Model2的代码如下：

Sub Main()

S1

End Sub

其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是

A) Form1→Model1→Model2       B) Model1→Model2→Form1

C) Model2→Model1→Form1       D) Model2→Form1→Model1

二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

(1) 设有如下程序段：

a$="BeijingShanghai"

b$=Mid(a$,InStr(a$,"g")+1)

执行上面的程序段后，变量b$的值为【Shanghai】。

(2) 以下程序段的输出结果是【3】 。

num =0

While num<=2

num = num + 1

Wend

Print num

(3) 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load()

For i=1 To 100

If i Mod 7 =0 Then

【list1.additem i】

End If

Next

End Sub

Private Sub Command1_Click()

Sum = 0

For i = 0 To 【list1.listcount-1】

Sum = Sum + 【list1.list(i)】

Next

Text1.Text = Sum

End Sub

(4) 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Command1_Click()

Randomize

n = CInt(Text1.Text)

n1 = 0

n2 = 0

For I = 1 To 【6】

r = Int(Rnd*2)

If r = 【7】 Then

n1 = n1 + 1

Else

n2 = n2 + 1

End If

Next

Text2.Text = n1

Text3.Text = n2

End Sub

(5) 阅读程序：

Option Base 1

Private Sub Form_Click()

Dim a(3) As Integer

Print "输入的数据是：";

For i = 1 To 3

a(i)=InputBox("输入数据")

Print a(i);

Next

Print

If a(1)<a(2) Then

t = a(1)

a(1) = a(2)

a(2) = 【8】

End If

If a(2)>a(3) Then

m = a(2)

ElseIf a(1)>a(3) Then

m =  【9】

Else

m =  【10】

End If

Print "中间数是：";m

End Sub

程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

(6) 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。

Private Sub Command1_Click()

Sum = 0

For i = 0 To 4

Sum = Sum +  【11】

Next

【12】 = Sum

End Sub

(7) 在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。

Option Base 1

Dim a(3,2) As Integer

Private Sub Command1_Click()

For i = 1 To 3

For j = 1 To 2

【13】 = i + j

Next j

Next i

End Sub

Private Sub Command2_Click()

For j = 1 To 3

For i = 1 To 2

s = s + 【14】

Next i

Next j

Text1.Text = 【15】

End Sub

Visual Basic语言程序设计

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

2004年4月3日

一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

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

       Private Sub Command1_Click()

              Move 500，500

       End Sub

       程序运行后，单击命令按钮，执行的操作为

A) 命令按钮移动到距窗体左边界、上边界各500的位置

B) 窗体移动到距屏幕左边界、上边界各500的位置

C) 命令按钮向左、上方向各移动500

D) 窗体向左、上方向各移动500

(2) 在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是

A) TabStop                 B)Enabled

C) Visible                 D)TabIndex

(3) 以下定义数组或给数组元素赋值的语句中，正确的是

A)    Dim a As Variant a=Array(1,2,3,4,5)

B)    Dim a(10) As Integer a=Array(1,2,3,4,5)

C) Dim a%(10) a(1)="ABCDE"

D) Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a

                

 (4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为

A) For i=0 To List1.ListCount-1

……

Next

B) For i=0 To ListCount-1

……

Next

C) For i=1 To List1.listCount

……

Next

D) For i=1 To ListCount

……

Next

(5) 以下Case语句中错误的是

A) Case 0 To 10                B) Case Is>10

C) Case Is>10 And Is<50        D) Case 3,5,Is>10

(6) 以下关于图片框控件的说法中，错误的是

A) 可以通过Print方法在图片框中输出文本

B) 清空图片框控件中图形的方法之一是加载一个空图形

C) 图片框控件可以作为容器使用

D) 用Stretch属性可以自动调整图片框中图形的大小

(7) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是

A) Visual      B) Basic        C) 6        D) 11

(8) 以下叙述中错误的是

A) 下拉式菜单和弹出式菜单都用菜单编辑器建立

B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统

C) 除分隔线外，所有菜单项都能接收Click事件

D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见

(9) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

       Private Sub Command1_Click()

        a = 12345

Print Format$(a, "000.00")

End Sub

程序运行后，单击命令按钮，窗体上显示的是

A) 123.45      B) 12345.00         C) 12345       D)00123.45

(10) 以下叙述中错误的是

A) 一个工程可以包括多种类型的文件

B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行

C) 程序运行后，在内存中只能驻留一个窗体

D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

(11) 以下关于函数过程的叙述中，正确的是

A) 函数过程形参的类型与函数返回值的类型没有关系

B) 在函数过程中，过程的返回值可以有多个

C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D) 如果不指明函数过程参数的类型，则该参数没有数据类型

(12) 以下关于变量作用域的叙述中，正确的是

A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用

B) 全局变量必须在标准模块中声明

C) 模块级变量只能用Private关键字声明

D) Static类型变量的作用域是它所在的窗体或模块文件

(13) 确定一个控件在窗体上的位置的属性是

A) Width和Height                      B) Width或Height

C) Top和Left                         D) Top或Left

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

              Private Sub Command1_Click()

           Text1.Text = "Visual"

    Me.Text1 = "Basic"

    Text1 = "Program"

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的是

A) Visual      B) Basic        C) Program      D) 出错

(15) 以下关系表达式中，其值为False的是

A) "ABC">"AbC"                     B) "the"<>"they"

C) "VISUAL"=UCase("Visual")            D) "Integer">"Int"

(16) 语句Print 5/4*6\5 Mod 2的输出结果是

A) 0           B)　1           C) 2            D) 3

(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

Private Sub Command1_Click()

   　　 strText = InputBox("请输入")

   　　 Text1.Text = strText

End Sub

Private Sub Text1_Change()

   　　 Label1.Caption = Right(Trim(Text1.Text), 3)

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是

A)空            B) abcdef            C) abc              D) def

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

Private Sub Command1_Click()

x = -5

If Sgn(x) Then

   　　 y = Sgn(x ^ 2)

Else

    　　y = Sgn(x)

End If

Print y

End Sub

程序运行后，单击命令按钮，窗体上显示的是

A) -5      B) 25           C) 1           D) -1

(19) 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是

A) 变量X、Y的作用域相同      B) Y的作用域是Model1

C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y

(20) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是

A）Drive1_Change               B) Drive1_Click

C) Dir1_Click                  D) Dir1_Change

(21) 在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:

Option Base 1

Private Sub Command1_Click()

    Dim a

    s = 0

    a = Array(1,2,3,4)

    j = 1

    For i = 4 To 1 Step -1

        s = s + a(i) * j

        j = j * 10

    Next i

    Print s

End Sub

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

A) 4321            B) 1234         C) 34           D) 12

(22) 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是

A) Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii < 65 Or KeyAscii > 90 Then

        MsgBox "请输入大写字母"

        KeyAscii = 0

    End If

End Sub

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

    If KeyCode < 65 Or KeyCode > 90 Then

        MsgBox "请输入大写字母"

        KeyCode = 0

    End If

End Sub

C) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

   If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then

        MsgBox "请输入大写字母"

   End If

End Sub

D) Private Sub Text1_Change()

    If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then

        MsgBox "请输入大写字母"

    End If

End Sub

(23) 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：

Private Type animal

    AnimalName As String*20

    AColor As String*10

End Type

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

Private Sub Command1_Click()

    Dim rec As animal

    Open "c:\vbTest.dat" For Random As #1 Len = Len(rec)

    rec.animalName = "Cat"

    rec.aColor = "White"

    Put #1, , rec

    Close #1

End Sub

则以下叙述中正确的是

A) 记录类型animal不能在Form1中定义，必须在标准模块中定义

B) 如果文件c:\vbTest.dat不存在，则Open命令执行失败

C) 由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾

D) 语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

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

Private Sub Command1_Click()

    n = Val(Text1.Text)

    If n\2 = n/2 Then

        f = f1(n)

    Else

        f = f2(n)

    End If

    Print f; n

End Sub

Public Function f1(ByRef x)

    x=x*x

    f1=x+x

End Function

Public Function f2(ByVal x)

    x=x*x

    f2=x+x+x

End Function

程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是

A) 72 36      B) 108 36      C) 72   6       D) 108 6

(25) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

Private Sub Command1_Click()

    c = 1234

    c1 = Trim(Str(c))

    For i = 1 To 4

        Print　           

    Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容

1

12

123

1234

则在下划线处应填入的内容为

A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1)   D) Mid(c1,i,i)

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

Private Sub Command1_Click()

    n = Val(Text1.Text)

    For i = 2 To n

        For j = 2  To  sqr(i)

            If  i  Mod  j = 0 Then Exit For

        Next j

        If  j > Sqr(i)  Then  Print  i

    Next i

End Sub

该事件过程的功能是

A) 输出n以内的奇数           B) 输出n以内的偶数

C) 输出n以内的素数           D) 输出n以内能被j整除的数

(27) 在以下描述中正确的是

A) 标准模块中的任何过程都可以在整个工程范围内被调用

B) 在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程

C) 如果工程中包含Sub Main过程，则程序将首先执行该过程

D) 如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体

(28) 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

Private Function f(m As Integer)

    If m Mod 2 = 0 Then

        f = m

    Else

        f = 1

    End If

End Function

Private Sub Command1_Click()

    Dim i As Integer

    s = 0

    For i = 1 To 5

        s = s + f(i)

    Next

    Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示的是

A) 11          B) 10           C) 9            D) 8

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

Private Sub Command1_Click()

    Dim array1(10, 10) As Integer

    Dim i As Integer, j As Integer

    For i = 1 To 3

        For j = 2 To 4

            array1(i, j) = i + j

        Next j

    Next i

    Text1.Text = array1(2, 3) + array1(3, 4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

A) 15          B) 14           C) 13           D) 12

(30) 在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程： 

Private Sub Command1_Click()

    For Each TextBox In Text1

        Text1(i) = Text1(i).Index

        i = i + 1

    Next

End Sub

程序运行后，单击命令按钮，四个文本框中显示的内容分别为

A) 0　1　2　3                 B) 1　2　3　4

C) 0　1　3　2                 D) 出错信息

二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

(1) Visual Basic应用程序中标准模块文件的扩展名是【1】 。

(2) 在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。

Private Sub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

    【3】 mnuEdit

End If

End Sub

(3) 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】　。

(4) 与数学表达式 对应的Visual Basic表达式是【6】　。

(5) 将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】　。

(6) 在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。

Private Sub Option1_Click(Index As Integer)

    Select Case 【8】

        Case 0

            a = "宋体"

        Case 1

            a = "黑体"

        Case 2

            a = "楷体＿GB2312"

    End Select

    text1. 【9】　=a

End Sub

 (7) 在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。

Private Sub Combo1_Click()

    Call ShowItem(Combo1, Label1)

End Sub

Private Sub Combo2_Click()

    Call ShowItem(Combo2, Label2)

End Sub

Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

    【10】.Caption =【11】.Text

End Sub

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

Private Sub Command1_Click()

    n = 5

    f = 1

    s = 0

    For i = 1 To n

        f = f【12】

        s = s + f

    Next

    Print s

End Sub

该事件过程的功能是计算

的值。请填空。

（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Command1_Click()

    Dim a(10) As Integer

    For i = 1 To 10

        a(i) = i

    Next

    Call swap（　【13】　）

    For i = 1 To 10

        Print a(i);

    Next

End Sub

Sub swap(b() As Integer)

    n = 【14】

    For i = 1 To n / 2

        t = b(i)

        b(i) = b(n)

        b(n) = t

        【15】

    Next

End Sub

Visual Basic语言程序设计

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

2003年9月

一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1) 以下叙述中错误的是

A) Visual Basic 是事件驱动型可视化编程工具

B) Visual Basic 应用程序不具有明显的开始和结束语句

C) Visual Basic 工具箱中的所有控件都具有宽度(Width)和高度(Height)属性

D) Visual Basic中控件的某些属性只能在运行时设置

(2) 以下叙述中错误的是

A) 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

B) 以.BAS为扩展名的文件是标准模块文件

C) 窗体文件包含该窗体及其控件的属性

D) 一个工程中可以含有多个标准模块文件

(3) 以下叙述中错误的是

A) 双击鼠标可以触发DblCLick事件

B) 窗体或控件的事件的名称可以由编程人员确定

C) 移动鼠标时，会触发MouseMove事件

D) 控件的名称可以由编程人员设定

(4) 以下不属于Visual Basic系统的文件类型是

A) .frm       B) .bat         C) .vbg         D) .vbp

(5) 以下叙述中错误的是

A) 打开一个工程文件时，系统自动装入与该工程有关的窗体､标准模块等文件

B) 保存Visual Basic程序时，应分别保存窗体文件及工程文件

C) Visual Basic应用程序只能以解释方式执行

D) 事件可以由用户引发，也可以由系统引发

(6) 以下能正确定义数据类型TelBook的代码是

A) Type TelBook                B) Type TelBook

Name As String*10             Name As String*10

TelNum As Integer             TelNum As Integer

End Type                       End TelBook

C) Type TelBook               D) Typedef TelBook

Name   String*10               Name   String*10

TelNum Integer                TelNum Integer

End Type TelBook               End Type

(7) 以下声明语句中错误的是

A) Const var 1=123             B) Dim var2=‘ABC’

C) Deflnt a-z                  D) Static var3 As Integer

(8) 设窗体上有一个列表框控件Listl，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是

A) Listl.List                  B) Listl.ListIndex

C) Listl.Index                 D) Listl.Text

(9) 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是

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

(10) 设a=10, b=5, c=1, 执行语句Print a>b>c后，窗体上显示的是

A) True        B) False      C) 1            D) 出错信息

(11) 如果要改变窗体的标题，则需要设置的属性是

A) Caption     B) Name         C) BackColor    D) BorderStyle

(12) 以下能判断是否到达文件尾的函数是

A) BOF         B) LOC          C) LOF          D) EOF

(13) 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

A) 如果工种中含有Sub Main 过程，则程序一定首先执行该过程

B) 不能把标准模块设置为启动模块

C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

D) 任何时刻最多只有一个窗体是活动窗体

(14) 窗体的MouseDown事件过程

Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

有4个参数，关于这些参数，正确的描述是

A) 通过Button 参数判定当前按下的是哪一个鼠标键

B) Shift参数只能用来确定是否按下Shift键

C) Shift参数只能用来确定是否按下Alt和Ctrl键

D) 参数x，y用来设置鼠标当前位置的坐标

(15) 设组合框Combol中有3个项目，则以下能删除最后一项的语句是

A) Combol.RemoveItem Text

B) Combol.RemoveItem    2

C) Combol.RemoveItem    3

D) Combol.RemoveItem Combol.Listcount

(16) 以下关于焦点的叙述中，错误的是

A) 如果文本框的TabStop 属性为False，则不能接收从键盘上输入的数据

B) 当文本框失去焦点时，触发LostFocus事件

C) 当文本框的Enabled 属性为False时，其Tab顺序不起作用C

D) 可以用TabIndex属性改变Tab顺序

(17) 如果要在菜单中添加一个分隔线，则应将其Caption属性设置为

A) =            B) *            C) &              D) -

(18) 执行语句Open“Tel.dat”For Random As #l Len=50后，对文件Tel.dat中的数据能够执行的操作是

A) 只能写，不能读            B) 只能读，不能写

C) 既可以读，也可以写        D) 不能读，不能写

(19) 在窗体上画一个名称为Commandl的命令按钮和两个名称分别为Textl､Text2的文本框，然后编写如下事件过程:

Private Sub Command1_Click()

n=Text1.Text

Select Case n

Case 1 To 20

x=10

Case 2, 4, 6

x=20

Case Is <10

x=30

Case 10

x=40

End Select

Text2.Text=x

End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是

A) 10         B) 20           C) 30           D) 40

(20) 设有以下循环结构

Do

循环体

 Loop While<条件>

则以下叙述中错误的是

A）若“条件”是一个为0的常数，则一次也不执行循环体

B) “条件“可以是关系表达式、逻辑表达式或常数

C) 循环体中可以使用Exit Do 语句

D) 如果“条件”总是为True，则不停地执行循环体

(21) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

Private Sub Command1_Click()

Dim num As Integer

num =1

Do Until num>6

Print num;

num=num+2.4

Loop

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

A) 1  3.4   5.8               B) 1    3     5

C) 1  4     7                 D) 无数据输出

(22) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

Private   Sub Command1_ Click()

Dim a As Integer, s As Integer

a=8

s=1

Do

s=s+a

a=a-1

Loop While a <=0

Print s; a

End Sub

程序运行后，单击命令按，则窗体上显示的内容是

A) 7   9       B) 34   0       C) 9   7       D) 死循环

(23) 设有如下通用过程:

Public Function f(x As Integer)

Dim y As Integer

x=20

y=2

f=x*y

End Function

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

Private Sub Command1_Click()

Static x As Integer

x=10

y=5

y=f(x)

Print x;y

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A) 10    5                     B) 20    5

C) 20   40                     D) 10   40

(24) 设有如下通用过程:

Public Sub Fun (a(),ByVal x As Integer)

For i =1 To 5

x=x+a(i)

Next

End Sub

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

Private Sub Command1_ Click()

Dim arr(5) As Variant

For i=1 To 5

arr(i)=i

Next

n=10

Call Fun(arr(),n)

Text1.Text=n

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是

A) 10          B) 15           C) 25           D) 24

(25) 在窗体上画一个名称为Command1的命令按钮，然后编写如下代码:

Option Base 1

Private Sub Command1_Click()

d=0

c=10

x=Array(10, 12, 21, 32, 24)

For i= 1 To 5

If x(i) > c Then

d=d+x(i)

c=x(i)

Else

d=d-c

End If

Next i

Print d

End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A) 89         B) 99           C) 23             D) 77

(26) 在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Labe11､Labe12、Labe13、Labe14、Labe15、Labe16、其中标签Labe14~Labe16分别显示“A”、“B”、“A*B”等文字信息，标签Labe11、Labe12分别显示其右侧的滚动条的数值，Labe13显示A*B的计算结果。如图所示｡当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Labe11、Labe12中显示的两个值求积，并将结果显示在Labe13中。以下不能实现上述功能的事件过程是

A) Private Sub Command1_Click()

Labe13.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))

End Sub

B) private Sub Command1_Click()

Labe13.Caption= Hscro1ll.Value* Hscroll2.Value

End Sub

C) Private Sub Commandl_Click()

Label3.Caption=Hscroll1*Hscroll2

End Sub

D) Private Sub Command1_ Click()

Label3.Caption=Hscroll1.Text*Hscroll2.Text

End Sub

(27) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:

Private Sub Commandl_Click()

For n=1 To 20

If n Mod 3 <> 0 Then m=m+n\3

Next n

Print n

End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是

A) 15          B) 18           C) 21          D) 24

(28) 在窗体上画一个名称为Textl的文本框，并编写如下程序:

Private Sub Form_Load()

Show

Textl.Text=""

Textl.SetFocus

End Sub

Private Sub Form_MouseUP(Button As Integer,Shift As Integer, X As Single, Y As Single)

Print "程序设计"

End Sub

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

Print“ Visual Basic”

End Sub

程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是

A) Visual Basic               B) 程序设计

C) A程序设计                   D) Visual Basic 程序设计

(29) 设有如下程序:

Private Sub Comandl_Click()

Dim sum As Double,x As Double

sum=0

n=0

For i= 1 To 5

x=n/i

n=n+1

sum=sum+x

Next

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是

A) 1+1/2+2/3+3/4+4/5           B) 1+1/2+2/3+3/4

C) 1/2+2/3+3/4+4/5             D) 1+1/2+1/3+1/4+1/5

(30) 以下有关数组定义的语句序列中，错误的是

A) Static arrl(3)             B) Dim arr2() As Integer

arrl(1)=100                    Dim size As Integer

arrl(2)="Hello"                Private Sub Command2_Click()

arrl(3)=123.45                    size=Input Box("输入:")

                                          ReDim arr2(size)

……

End Sub

C) Option Base 1               D) Dim n As Integer

Private Sub Command3_Click()   Private Sub Command4_Click()

Dim arr3(3) As Integer            Dim arr4(n) As Integer

……                              ……

End Sub                        End Sub

二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡上【1】—【15】序号的横线上，答在试卷上不得分。

(1) 执行下面的程序段后，i的值为 【1】 ，s的值为【2】 。

s=2

For i=3.2 To 4.9 Step 0.8

s=s+1

Next i

(2) 把窗体的KeyPreview 属性设置为True，然后编写如下两个事件过程：

Private Sub Form _KeyDown (KeyCode As Integer, Shift As Integer)

Print Chr(KeyCode)

End Sub

Private Sub Form _KeyPress (KeyAscii As Integer)

Print Chr(KeyAscii)

End Sub

程序运行后，如果直接按键盘上的“A”键(即不按住Shift键)，则在窗体上输出的字符分别是 【3】 和 【4】 ｡

(3) 在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程:

Private Sub Form_Load()

Timer1.Enabled= False

Timer1.Interval= 【5】

End Sub

Private Sub Form_Click()

Timer1.Enabled= 【6】

End Sub

Private Sub Timer1_Timer()

Label1.Caption= 【7】  

End Sub

程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空｡

(4) 在窗体上画一个文本框､一个标签和一个命令按钮，其名称分别为Textl Label1和Command11，然后编写如下两个事件过程:

Private Sub Commandl_Click()

S$=InputBox("请输入一个字符串")

Textl.Text=S$

End Sub

Privbue Sub Teial_Change()

Labell.Coption=Ucase(Mid(Textl.Text,7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisuaIBasic”，则在标签中显示的内容是  【8】 ｡

(5) 在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1､Command1和Label1，通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”，“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表当前的项目数，运行情况如图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空｡

Printe Sub Commandl_Chich()

If List1 ListIndex >= 【9】 Then

List1.RemoveItem 【10】 

Label1.Caption= 【11】 

Else

MsgBox "请选择要删除的项目"

End If

End Sub

(6) 设有程序:

Option Base 1

Private Sub Command1_Chick()

Dim arr1, Max as Integer

arrl=Array(12,435,76,24,78,54,866,43)

【12】 =arrl(1)

For i=1 To 8

If arrl(i)> Max Then 【13】

Next i

Print "最大值是:";Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

(7) 以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Textl中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1.Text=""

Open ".\smtext1.txt" 【14】 As #1

Do While   【15】 

Input #1,inData

Text1.Text=Text1.Text&inData

Loop

Close #1

End Sub

Visual Basic语言程序设计

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

一、选择题（(1)—(20)每小题2分，(21)—(30)每小题2分，共70分）
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1)    以下不能在“工程资源管理器”窗口中列出的文件类型是

A) .bas    B) .res         C) .frm         D) .ocx

(2)    以下关于窗体的描述中，错误的是

A) 执行Unload Form1语句后，窗体Form1消失，但仍在内存中

B) 窗体的Load事件在加载窗体时发生

C) 当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止

D) 窗体的Height、Width属性用于设置窗体的高和宽

(3)    下列可作为Visual Basic变量名的是

A）A#A         B）4A           C）?xy          D) constA

(4)    设有如下的记录类型

Type Student

Number As String

Name As String

Age As Integer

End Type

则正确引用该记录类型变量的代码是

A) Student.name="张红"         B) Dim s As Student

s.name="张红"

C) Dim s As Type Student       D) Dim s As Type

s.name="张红"                  s.name="张红"

(5)    函数String(n, "str")的功能是

A) 把数值型数据转换为字符串

B) 返回由n个字符组成的字符串

C) 从字符串中取出n个字符

D) 从字符串中第n个字符的位置开始取子字符串

(6)    将数学表达式Cos²(a+b)+5e²写成Visual Basic的表达式，其正确的形式是

A) Cos(a+b)^2+5*exp(2)         B) Cos^2(a+b)+5*exp(2)

C) Cos(a+b)^2+5*ln(2)          D) Cos^2(a+b)+5*ln(2)

(7)    在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程:

Private Sub Command1_Click()

a$="software and hardware"

b$=Right(a$,8)

c$=Mid(a$,1,8)

MsgBox a$,,b$,c$,1

End Sub

则在弹出的信息框的标题栏中显示的信息是

A) software and hardwar B) software     C) hardware     D) 1

(8)    执行如下语句

a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)

将显示一个输入对话框，在对话框的输入区中显示的信息是

A) Today   B) Tomorrow     C) Yesterday    D) Day before Yesterday

(9)    表示滚动条控件取值范围最大值的属性是

A) Max     B) LargeChange      C) Value        D) Max-Min

(10)   在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是

A) Private Sub List1_Click()       B) Private Sub List1_Chilk()

Label1.Caption=List1.ListIndex    Label1.Name=List1.ListIndex

End Sub                           End Sub

C) Private Sub List1_click()       D) Private Sub List1_Click()

Label1.Name=List1.Text            Label1.Caption=List1.Text

End Sub                           End Sub

(11)   在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程

Private Sub Command1_Click()

x=0

n=InputBox("")

For i=1 To n

For j=1 Toi

x=x+1

Next j

Next i

Print x

End Sub

程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是

A）3               B）4                C）5                D）6

(12)   以下关于菜单的叙述中，错误的是

A) 在程序运行过程中可以增加或减少菜单项

B) 如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项

C）弹出式菜单在菜单编辑器中设计

D）利用控件数组可以实现菜单项的增加或减少

(13)   在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是

A) Tag             B) Index            C) ListIndex        D) Name

(14)   在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程

Option Base 0

Private Sub Command1_Click()

Dim city As Variant

City=Array("北京"，"上海"，"天津"，"重庆")

Print city(1)

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A）空白        B) 错误提示         C) 北京             D) 上海

(15)   假定有以下函数过程：

Function Fun(S As String)As String

Dim s1 As String

For i=1 To Len(S)

s1=UCase(Mid(S,i,1))+s1

Next i

Fun=s1

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim Str1 As String,Str2 As String

Str1=InputBox("请输入一个字符串")

Str2=Fun(Str1)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上输出结果为

A）abcdefg         B）ABCDEFG          C）gfedcba          D）GEFDCBA

(16)   设有语句

Open"c:\Test.Dat"For Output As#1

则以下错误的叙述是

A）该语句打开C盘根目录下一个已存在的文件Test.Dat

B）该语句在C盘根目录下建立一个名为Test.Dat的文件

C）该语句建立的文件的文件号为1

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

(17)   以下叙述中错误的是

A）用Shell函数可以调用能够在Windows下运行的应用程序

B）用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数

C）调用Shell函数的格式应为：<变量名>=Shell(……)

D）用Shell函数不能执行DOS命令

(18)   以下关于过程及过程参数的描述中，错误的是

A) 过程的参数可以是控件名称

B) 用数组作为过程的参数时，使用的是“传地址”方式

C) 只有函数过程能够将过程中处理的信息传回到调用的程序中

D) 窗体可以作为过程的参数

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

Private Sub TxtA_KeyPress(keyascii as integer)

……

End Sub

若焦点位于文本框中，则能够触发KeyPress事件的操作是

A) 单击鼠标                    B) 双击文本框

C) 鼠标滑过文本框                  D) 按下键盘上的某个键

(20)   目录列表框的Path属性的作用是

A）显示当前驱动器或指定驱动器上的路径

B）显示当前驱动器或指定驱动器上的某目录下的文件名

C）显示根目录下的文件名

D）只显示当前路径下的文件

(21)   假设有如下事件过程

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

 If Button=2 Then

      PopupMenu popForm

 End If

End Sub

则以下描述中错误的是

A) 该过程的功能是弹出一个菜单

B) popForm是在菜单编辑器中定义的弹出式菜单的名称

C) 参数X、Y指明鼠标的当前位置

D) Button=2表示按下的是鼠标左键

(22)   以下能够正确计算n!的程序是

A) Private Sub Command1_Click()

n=5:x=1

Do

x=x*i

i=i+1

Loop While i<n

Print x

End Sub

B) Private Sub Command1_Click()

n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i<n

Print x

End Sub

C) Private Sub Command1_Click()

n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i<=n

Print x

End Sub

D) Private Sub Command1_Click()

n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i>n

Print x

End Sub

(23)   在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：

Private X As Integer

Private Sub Command1_Click()

X=5:Y=3

Call Proc(X,Y)

Label1.Caption= X

Label2.caption=Y

End Sub

Private Sub proc(ByVal a As Integer,ByVal b As Integer)

X=a*a

Y=b+b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是

A）5和3           B）25和3           C）25和6           D）5和6

(24)   有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:

Private Sub Command1_Click()

s=0

For i=1 To 15

x=2*i-1

If x Mod 3=0 Then s=s+1

Next i

Label1.Caption=s

End Sub

程序运行后，单击命令按钮，则标签中显示的内容是

A) 1               B) 5                C) 27               D) 45

(25)   在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码

Private x As Integer

Private Sub Command1_Click()

Static y As Integer

Dim z As Integer

n=10

z=n+z

y=y+z

x=x+z

Label1.caption=x

Label2.caption=y

Label3.caption=z

End Sub

运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A) 10 10 10    B) 30 30 30         C) 30 30 10     D) 10 30 30

(26)   设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程

Private Sub Command1_Click()

Static b As Variant

b=Array(1,3,5,7,9)

……

End Sub

此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该是

A) For i=0 to 5-1\2

tmp=b(i)

b(i)=b(5-i-1)

b(5-i-1)=tmp

Next

B) For i=0 to 5

tmp=b(i)

b(i)=b(5-i-1)

b(5-i-1)=tmp

Next

C) For i=0 to 5\2

tmp=b(i)

b(i)=b(5-i-1)

b(5-i-1)=tmp

Next          

D) For i=0 to 5\2

tmp=b(i)

b(i)=b(5-i-1)

b(5-i-1)=tmp

Next

(27)   在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label１中显示当前文件夹中文件的数量。如图所示

能够正确实现上述功能的程序是

A) Private Sub Dir1_Change()

File.Path=Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drivel.Drive

Label1.Caption=File1.ListCount

End Sub

B) Private Sub Dir1_Change()

File.Path=Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drivel.Drive

Label1.Caption=File1.list

End Sub

C) Private Sub Dir1_Change()

File1.Path=Dir1.Path

Label1.Caption=File1.ListCount

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drivel.Drive

Label1.Caption=File1.ListCount

End Sub

D) Private Sub Dir1_Change()

File.Path=Dir1.Path

Label1.Caption=File1.List

End Sub

Private Sub Drive1_Change()

Dir1.Path=Drivel.Drive

Label1.Caption=File1.List

End Sub

(28)   一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称md1Func的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：

Form1中定义的过程：

Private Sub frmFunction1()

……

End Sub

Form2中定义的过程

Public Sub frmFunction2()

……

End Sub

mdlFunc中定义的过程：

Public Sub md1Function()

……

End Sub

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是

A）上述三个过程都可以在工程中的任何窗体或模块中被调用

B）frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用

C）上述三个过程都只能在各自被定义的模块中调用

D）只有md1Function过程能够被工程中各个窗体或模块调用

(29)   窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。

设有如下的类型声明

Type Person

name As String*8

major As String*20

End Type

当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是

A) Open"c:\Test29.dat"For Random As#1

Put#1,1,p

Close#1

B) Open"c:\Test29.dat"For Random As#1

Get#1,1,p

Close#1

C) Open"c:\Test29.dat"For Random As#1 Len=Len(p)

Put#1,1,p

Close#1

D) Open"c:\Test29.dat"For Random As#1 Len=Len(p)

Get#1,1,p

Close#1

(30)   在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“Savefile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是

A) Private Sub Command1_Click()

CommonDialog1.FileName="SaveFile"

CommonDialog1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"

CommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle="Save"

CommonDialog1.Action=2

End Sub

B) Private Sub Command1_Click()

CommonDialog1.FileName="SaveFile"

CommonDialog1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle="Save"

CommonDialog1.Action=2

End Sub

C) Private Sub Command1_Click()

CommonDialog1.FileName="Save"

CommonDialog1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"

CommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle="SaveFile"

CommonDialog1.Action=2

End Sub

D) Private Sub Command1_Click()

CommonDialog1.FileName="SaveFile"

CommonDialog1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle="Save"

CommonDialog1.Action=1

End Sub

二、填空题(每空2分,共30分)
请将每空的正确答案写在答题卡上【1】—【15】序号的横线上,答在试卷上不得分。

(1)    Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是【1】　。

(2)    Visual Basic提供的对数据文件的三种访问方式为随机访问方式、【2】和二进制该问方式。

(3)    执行下面的程序段后，变量Ｓ的值为【3】。

S=5

For i=2.6 To 4.9 Step 0.6

S=S+1

Next i

(4)    为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【4】 。

(5)    计时器控件能有规律的以一定时间间隔触发【5】 事件，并执行该事件过程中的程序代码。

(6)    以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被５整除的数并求出它们的和。请填空

Private Sub Command1_Click()

For i=1 To 20

x=Int(　【6】　*200+100)

If　【7】　=0 Then

Print x

S=S+　【8】　

End if

Next i

Print"Sum=";S

End Sub

(7)      设有如下程序

Private Sub Form_Click()

Dim a As Integer,b As Integer

a=20:b=50

p1 a,b

p2 a,b

p3 a,b

print "a=";a, "b=";b

End Sub

Sub p1(x As Inteer,ByVal y As Integer)

x=x+10

y=y+20

End Sub

Sub p2(ByVal x As Integer,y As Integer)

x=x+10

y=y+20

End Sub

Sub p3(ByVal x As Integer,y As Integer)

x=x+10

y=y+20

End Sub

该程序运行后，单击窗体，则在窗体上显示的内容是：a=　【9】　和b=　【10】　。

(8)    在窗体上画一个名称为Command1的命令按钮，编写如下事件过程

Private Sub Command1_Click()

Dim a As String

a=　【11】　

For i=1 to 5

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

Next i

End Sub

程序运行后，单击命令按钮，要求窗体上显示的输出结果为

5

456

34567

2345678

123456789

请填空

(9)    在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Lable2中给出提示“输入项已在组合框中”。请在【12】、【13】和【14】处将程序补充完整。

Private Sub Combo1_ 　【12】　(KeyAscii As Integer)

If KeyAscii=13 Then

For i=0 To Combo1.ListCount-1

If Combo1.Text=　【13】　Then

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

Exit Sub

End if

Next i

Label2.Caption="已成功添加输入项"

Combo1. 　【14】　Combo1.Text

End if

End Sub

(10)     设有如下程序

Private Sub search(a() As Variant,ByVal Key As Variant,Index%)

Dim I%

For I=LBound(a) To UBound(a)

If key=a(I) Then

index=I

Exit Sub

End if

Next I

Index=-1

End Sub

Private Sub Form_Load()

Show

Dim b() As Variant

Dim n As Integer

b=Array(1,3,5,7,9,11,13,15)

Call search(b,11,n)

Print n

End Sub

程序运行后，输出结果是　【15】　。

Visual Basic语言程序设计

(考试时间：90分钟，满分100分)

二００二年八月

一、选择题(每题2分，共70分)
下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是

A) 工程资源管理器窗口           B) 工具箱窗口

C) 代码窗口                     D) 属性窗口

(2) 以下叙述中正确的是

A) 窗体的Name属性指定窗体的名称，用来标识一个窗体

B) 窗体的Name属性的值是显示在窗体标题栏中的文本

C) 可以在运行期间改变对象的Name属性的值

D) 对象的Name属性值可以为空

(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是

A) 单选按钮     B) 图片框       C) 通用对话框   D) 文本框

(4) 设有如下变量声明

    Dim TestDate As Date

为变量TestDate正确赋值的表达方式是

A) TextDate=#1/1/2002#         B) TestDate=#“1/1/2002”#

C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)

(5) 设有如下声明：

    Dim X As Integer

    如果Sgn(X) 的值为-1，则X的值是

A) 整数         B) 大于0的整数 C) 等于0的整数 D) 小于0的数

(6) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Static X As Integer

Static Y As Integer

Cls

Y=1

Y=Y+5

X=5+X

Print X,Y

End Sub

程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为

A) 15 16       B) 15 6        C) 15 15       D) 5 6

(7) 设a=3,b=5，则以下表达式值为真的是

A) a>=b And b>10                B) (a>b)Or(b>0)

C) (a<0)Eqv(b>0)                D) (-3+5>a)And(b>0)

(8) 设有语句

x=InputBox(“输入数值”，“0”，“示例”)

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是

A) 变量X的值是数值10         B) 在InputBox对话框标题栏中显示的是“示例”

C) 0是默认值                  D) 变量X的值是字符串“10”

(9) 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是

A) Left         B) Mid          C) String       D) Instr

(10) 设a=“Visual Basic”，下面使b=“Basic”的语句是

A) b=Left(a,8,12)               B) b=Mid(a,8,5)

C) b=Rigth(a,5,5)               D) b=Left(a,8,5)

(11) 以下能够触发文本框Change事件的操作是

A) 文本框失去焦点               B) 文本框获得焦点

C) 设置文本框的焦点             D) 改变文本框的内容

(12) 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：

Private Sub Timer1_     ()

TxtTime.text=Time

End Sub

在下划线上应填入的内容是

A) Enabled     B) Visible      C) Interval    D) Timer

(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是

 A) Option1.value=True           B) Option1.Value=True

Check1.Value=False             Check1.Value=True

C) Option2.Value=False          D) Option1.Value=True

Check1.Value=True              Check1.Value=1

(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是

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

(15) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：

Private Sub Command1_Click()

   For I=1 To 4

    For J=0 To 1

        Print Chr$(65+I);

    Next J

    Print

   Next I

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A) BB         B) A           C) B           D) AA

CC          BB              CC              BBB

DDDD            CCC             DDD             CCCC

EEEEE           DDDD            EEEE            DDDDD

(16) 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是

A) Autosize                     B) Stretch

C) AutoRedraw                   D) Appearance

(17) 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim x As Integer,n As Integer

x=1

n=0

Do While x<20

x=x*3

n=n+1

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是

A) 15和1       B) 27和3       C) 195和3      D) 600和4

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

Private Sub Command1_Click()

Dim i As Integer,n As Integer

For I=0 To 50

i=i+3

n=n+1

If i>10 Then xit for

Next

Text1.Text=Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

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

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

Private Sub Command1_Click()

Dim array1(10,10) As Integer

Dim i,j As Integer

For i=1 To 3

For j=2 To 4

array1(i,j)=i+j

Next j

Next I

Text1.Text=array1(2,3)+array1(3,4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

A) 12           B) 13           C) 14           D) 15

(20)   在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim a(10,10)As Integer

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j

Print a(i,j);

Next j

Print

Next j

End Sub

程序运行后，单击命令按钮，窗体上显示的是

A)  123             B) 234          C) 147          D) 123

   246              345              258             456

   369              456              369             789

 (21) 设有如下程序：

Option Base 0

Private Sub Form_Click()

Dim a

Dim i As Integer

a=Array(1,2,3,4,5,6,7,8,9)

For i=0 To 3

Print a(5-i);

Next

 End Sub

程序运行后，单击窗体，则在窗体上显示的是

A) 4 3 2 1          B) 5 4 3 2          C) 6 5 4 3          D) 7 6 5 4

(22) 下列叙述中正确的是

A) 在窗体的Form_Load事件过程中定义的变量是全局变量

B) 局部变量的作用域可以超出所定义的过程

C) 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程

D) 在调用过程时，所有局部变量被系统初始化为0或空字符串

(23) 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是

A) Private Sub Command1_Click()

x=InputBox(“请输入整数”)

a=F1(Val(x))

Print a

End Sub

Function F1(ByRef b As Integer)

If b Mod 2=0 Then

Return 0

Else

Return 1

End If

End Function

B) Private Sub Command1_Click()

x=InputBox(“请输入整数”)

a=F1(Val(x))

Print a

End Sub

Function F1(ByRef b As Integer)

If b Mod 2=0 Then

F1=0

Else

F1=1

End If

End Function

C) Private Sub Command1_Click()

x=InputBox(“请输入整数”)

F1(Val(x))

Print a

End Sub

Function F1(ByRef b As Integer)

If b Mod 2=0 Then

F1=1

Else

F1=0

End If

End Function

D) Private Sub Command1_Click()

x=InputBox(“请输入整数”)

F1(Val(x))

Print a

End Sub

Function F1(ByRef b As Integer)

If b Mod 2=0 Then

Return 0

Else

Return 1

End If

End Function

(24) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：

Private Sub Command1_Click()

Dim x,y,z As Integer

x=5

y=7

z=0

Text1.text=“”

Call P1(x,y,z)

Text1.Text=Str(x)

End Sub

Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)

c=a+b

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是

A) 0            B) 12           C) Str(z)       D) 没有显示

(25) 以下叙述中错误的是

A) 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B) Sub过程中不能嵌套定义Sub过程

C) Sub过程中可以嵌套调用Sub过程

D) 事件过程可以像通用过程一样由用户定义过程名

(26) 以下叙述中错误的是

A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)

B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)

C) KeyPress事件中不能识别键盘上某个键的按下与释放

D) KeyPress事件中可以识别键盘上某个键的按下与释放

(27) 以下叙述中错误的是

A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项

B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键

C) 程序运行过程中，可以重新设置菜单的Visible属性

D) 弹出式菜单也在菜单编辑器中定义

(28) 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是

A) menu1.Enabled=True           B) Munu1.Enabled=False

C) Menu1.Visible=True           D) Menu1.Visible=False

(29) 以下叙述中错误的是

A) 在程序运行时，通用对话框控件是不可见的

B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用

C) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框

(30) 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是

A) “text (.txt)|(*.txt)”      B)“文本文件( .txt) | (.txt)”

C) “text(.txt)||(*.txt)”      D)“text(.txt)(*.txt)”

(31) 以下叙述中错误的是

A) 一个工程中只能有一个Sub Main过程

B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

C) 窗体的Hide方法和Unload方法的作用完全相同

D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

(32) 以下叙述中错误的是

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

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

C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件

D) 全局变量必须在标准模块中定义

(33) 设在工程中有一个标准模块，其中定义了如下记录类型

Type Books

Name As String *10

TelNum As String *20

End Type

在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

A) Private Sub Command1_Click()

Dim B As Books

Open “c:\Person.txt”For Output As #1

B.Name=InputBox(“输入姓名”)

B.TelNum=InputBox(“输入电话号码”)

Write #1,B.Name,B.TelNum

Close #1

End Sub

B) Private Sub Command1_Click()

Dim B As Books

Open “c:\Person.txt”For Input As #1

B.Name=InputBox(“输入姓名”)

B.TelNum=InputBox(“输入电话号码”)

Print #1,B.Name,B.TelNum

Close #1

End Sub

C) Private Sub Command1_Click()

Dim B As Books

Open “c:\Person.txt”For Output As #1

B.Name=InputBox(“输入姓名”)

B.TelNum=InputBox(“输入电话号码”)

Write #1,B

Close #1

End Sub

D) Private Sub Command1_Click()

Open “c:\Person.txt”For Input As #1

Name=InputBox(“输入姓名”)

TelNum=InputBox(“输入电话号码”)

Print #1,Name,TelNum

Close #1

End Sub

(34) 以下叙述中正确的是

A) 一个记录中所包含的各个元素的数据类型必须相同

B) 随机文件中每个记录的长度是固定的

C) Open命令的作用是打开一个已经存在的文件

D) 使用Input #语句可以从随机文件中读取数据

(35) 目录列表框的Path属性的作用是

A) 显示当前驱动器或指定驱动器上的目录结构

B) 显示当前驱动器或指定驱动器上的某目录下的文件名

C) 显示根目录下的文件名

D) 显示该路径下的文件

二、填空题( 每空2分，共40分）

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

(1) 在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在 [1] 和 [2] 处填入适当的内容，将程序补充完整。

 Private Sub HScroll1_   [1] ()

Labl2.Caption=HScroll1. [2] 

End Sub

(2) 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在 [3] 、 [4] 和 [5] 处填入适当的内容，将程序补充完整。

 Private Sub Command1_Click()

For i=0 To 3

If [3] =True then

opt=Option1(i).Caption

End If

Next

Select Case [4]

Case”+”

Result=Val(Text1.Text)+Val(Text2.Text)

Case”-”

Result=Val(Text1.Text)-Val(Text2.Text)

Case”*”

Result=Val(Text.Text)*Val(Text2.Text)

Case”/”

Result=Val(Text1.Text)/Val(Text2.Text)

End Select

 [5] =Result

End Sub

(3) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。

Private Sub Form_Load()

Command1.Enabled=False

End Sub

Private Sub Text1_ [6] ()

Command1.Enabled=True

End Sub

(4) 在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。

    Form1. [7]  Pmenu

(5) 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [8] 和 [9] 处填入适当的内容，将程序补充完整。

Private Sub Form_Click()

Dim x As Single,amax As Single,amin As Single

x=InputBox(“Enter a score”)

amax=x

amin=x

Do While  [8]

If x>amax Then

Amax=x

End If

If [9]Then

Amin=x

End If

x=InputBox(“Enter a score”)

Loop

Print”Max=”;amax,”Min=”;amin

End Sub

(6) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Load()

Text1.Text=”计算机”

End Sub

Private Sub Text1_Change()

Picture1.Print“等级考试”

End Sub

   程序运行后，在文本框中显示的内容是 [10] ，而在图片框中显示的内容是 [11] 。

(7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：

Function M(x As Integer,y As Integer)As Integer

M=IIf(x>y,x,y)

End Function

Private Sub command1_Click()

Dim a As Integer,b As Integer

a=100

b=200

Print M(a,b)

End Sub

    程序运行后，单击命令按钮，输出结果为 [12] 。

(8) 为了改变计时器控件的时间间隔，应该修改该控件的 [13] 属性。

(9) 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。
Private Sub Form_load()

List1.AddItem”北京”

List1.AddItem”上海”

List1.AddItem”湖北”

End Sub

Private Sub [14] ()

Label1.Caption= [15]

End Sub

公共基础知识

Access数据库程序设计

基本要求

1. 具有数据库系统的基础知识。
2. 基本了解面向对象的概念。
3. 掌握关系数据库的基本原理。
4. 掌握数据库程序设计方法。
5. 能使用Access建立一个小型数据库应用系统。

考试内容

一、数据库基础知识

1. 基本概念：
数据库，数据模型，数据库管理系统，类和对象，事件。

2. 关系数据库基本概念：
关系模型（实体的完整性，参照的完整性，用户定义的完整性），关系模式，关系，元组，属性，字段，域，值，主关键字等。

3. 关系运算基本概念：
选择运算，投影运算，连接运算。

4. SQL基本命令：
查询命令，操作命令。

5. Access系统简介：
（1） Access系统的基本特点。
（2） 基本对象：表，查询，窗体，报表，页，宏，模块。

二、数据库和表的基本操作

1. 创建数据库：
（1） 创建空数据库。
（2） 使用向导创建数据库。

2. 表的建立：
（1） 建立表结构：使用向导，使用表设计器，使用数据表。
（2） 设置字段属性。
（3） 输入数据：直接输入数据，获取外部数据。

3. 表间关系的建立与修改：
（1） 表间关系的概念：一对一，一对多。
（2） 建立表间关系。
（3） 设置参照完整性。

4. 表的维护：
（1） 修改表结构：添加字段，修改字段，删除字段，重新设置主关键字。
（2） 编辑表内容：添加记录，修改记录，删除记录，复制记录。
（3） 调整表外观。