单选题 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim s1 As String, s2 As String Open "D:/data.txt" For Input As #1 Seek #1, 5 s1 = Input$(2, #1) s2 = Input$(3, #1) Print Seek(1) Close #1End Sub假设有磁盘文件D:/data.txt,且文件足够长,当程序运行时,单击Command1,在窗体上输出的结果是
【正确答案】 C
【答案解析】解析:文件的打开,[格式]Open文件说明[For方式][Access存取类型][锁定]As #文件号[Len=记录长度]。其功能,为文件的输入输出分配缓冲区,并确定缓冲区所使用的存取方式。Input$函数,[格式]Input $(n,#文件号)。该函数返回从指定文件中读出的n个字符的字符串(即它可以在数据文件中读取指定数目的字符)。文件指针Seek, [格式]Seek #文件号,位置,用于实现文件指针的定位。程序开始执行时,先定义了两个字符串变量s1,s2。Open "D:/data.txt" For Input As #1,上面的代码是以顺序输入方式打开已经存在于D盘下的data.txt文件,并为其起个别名为文件号1,Seek #1,5将文件指针定位于位置5;s1 = Input$(2,#1)从D盘下的data.txt文件中读出的2个字符,当前文件指针向后移2位,文件指针位于位置7;s2 = Input$(3,#1)从D盘下的data.txt文件中读出的3个字符,当前文件指针向后移3位,文件指针位于位置10;Print Seek(1)返回文件指针当前的位置,当前文件指针位于10。Close #1关闭文件1,即D盘下的data.txt文件。故本题正确答案为C。