在窗体上画一个命令按钮,然后编写如下代码: Private Type Record ID As Integer Name As String *20 End Type

admin2009-02-13  22

问题 在窗体上画一个命令按钮,然后编写如下代码:         Private Type Record               ID As Integer              Name As String *20        End Type        Private Sub Command1_Click()              Dim Maxsize, NextChar, MyChar              Open "d:\temp\female.txt" For Input As #1              Maxsize = LOF(1)              For NextChar = Maxsize To 1 Step -1                    Seek #1, NextChar                    MyChar = Input(1, #1)               Next NextChar               Print EOF(I)               Close 31         End Sub     程序运行后,单击命令按钮,其输出的结果为

选项 A、True
B、False
C、0
D、Null

答案2

解析 这个题目的重点在于考核函数LOF、 EOF和Input$的使用。LOF函数能够返回文件的实际长度。EOF函数用于测定记录指针是否到达文件末尾。Input$函数用于从文件中读出指定个数的字符。
转载请注明原文地址:https://kaotiyun.com/show/mb1p777K
0

最新回复(0)