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

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

admin2018-10-18  50
问题 在窗体上画一个名称为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/9xFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)