·一周点击排行
·热点推荐
计算机二级VB辅导:VBfreefile()函数
发布时间：2007-11-16 9:36:00 浏览次数: 931
FreeFile[(rangenumber)]
可选的参数 rangenumber 是一个 Variant，它指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。
说明
使用 FreeFile 提供一个尚未使用的文件号。
FreeFile 函数示例
本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ’ 循环五次。
FileNumber = FreeFile ’ 取得未使用的文件号。
Open "TEST" & MyIndex For Output As #FileNumber ’ 创建文件名。
Write #FileNumber, "This is a sample." ’ 输出文本至文件中。
Close #FileNumber ’ 关闭文件。
Next MyIndex
Variant 数据类型
一种特殊的数据类型，可以包含数值、字符串或日期数据，还包含自定义类型和特殊数值 Empty 和 Null。Variant 数据类型有 16 字节的数值存储大小，可以包含的数据可达 Decimal 的范围，或 22- 字节( 加上字符串长度 ) 的字符存储大小，而且可存储任何字符文本。VarType 函数定义了如何处理 Variant 中的数据。对所有变量，如果没有明确声明它们是其它数据类型，则它们都变成 Variant 数据类型。
讨论此主题请进>>: 计算机二级VB辅导:VBfreefile()函数