在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim s1 As String, s2 As String Open "D:\data.txt" For Input

admin2015-06-30  27

问题 在窗体上画一个名称为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 #1
End Sub
假设有磁盘文件D:\data.txt,且文件足够长,当程序运行时,单击Command1,在窗体上输出的结果是

选项 A、5
B、9
C、10
D、11

答案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。
转载请注明原文地址:https://kaotiyun.com/show/YNQp777K
0

最新回复(0)