D．Private Sub Co mmand1＿Click（）

Open＂Person txt＂For Input As＃1

Name＝lnputBox（＂输入姓名＂）

TelNum＝lnputBox（＂输入电话号码＂）

Pri m＃1Name TelNum

Close＃1

End Sub

A。【解析】Type语句用于在模块级别（过程外的任何代码都被看做模块级别代码，必须先列出声明，随后列出过程）中定义一个用户自己的数据类型，本质上是一个数据类型集合，它含有一个至一个以上的成员。每个成员可以被定义为不同的数据类型。当声明自定义类型变量后，可通过“变量名．成员名”来访问自定义变量中的元素。Visual Basic程序中关于文件的操作，主要是先打开一个文件，然后对这个文件进行读或写的操作，操作完成后，关闭这个文件。打开文件的基本格式为：Open File NameFor Mode As＃File Number。打开方式主要有Output、Append、Input、Rando m等几种，Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的，其中Output、Append打开的文件主要用来输出数据，与Print＃、Write＃等方法配合使用；以Input方式打开的文件主要用来读入数据，它与Input＃、Li neInput＃语句配合使用。本题中，选项B和选项D均是以Input方式打开文件，显然错误，选项C中向顺序文件中写入记录的语句错误，正确答案只有选项A。

16. 窗体上有一个名称为Co mmand1的命令按钮，其单击事件过程及有关函数过程如下：

Private Sub Co mmand1＿Click（）

Di mn As Integer

n＝add（5，10）

Print n

End Sub

Function add（v1As Integer，v2As Integer，Optionalv3）As Integer

If Not Is Missi ng（v3）Then

add＝v1＋v2＋v3

Else

add＝v1＋v2

End If

End Function

运行程序，单击命令按钮，以下叙述中正确的是（）。

A．程序不能正常运行，因为函数add的参数定义有错

B．程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配

C．程序能正常运行，结果是在窗体上显示15

D．程序能正常运行，结果是在窗体上显示510v3

C。【解析】本题考查add方法里Is Missi ng的v3，v3是一个可选项，用来判断这个参数是否存在。根据程序语句，当输入3个参数时，就是3个参数求和，输入2个参数时是两个数求和，题目中是2个参数，因此是2个参数求和，不会报错。

17. 目录列表框Path属性所表示的含义是（）。

A．当前驱动器或指定驱动器上的路径

B．当前驱动器或指定驱动器上的某目录下的文件列表

C．根目录下的文件列表D．指定路径下的文件列表

A。【解析】目录列表框的Path是当前驱动器或指定驱动器的路径。

18. 以下关于函数过程的叙述中错误的是（）。

A．函数过程一定有返回值B．函数过程一定有参数

C．函数过程可以在窗体模块和标准模块中定义

D．函数过程参数的类型与返回值的类型无关

B。【解析】函数过程可以无参数。例如，随机函数就无参数。

19. 在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：

Public Enums

a＝4