柠檬试题库
search
首页 计算机 公务员 驾照 关于

在窗体上画一个名称为Command1的命令按钮,并编写如下程序:Private Type Record ID As Integer Name As String * 20End TypePrivate 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 MyChar=Input(1, #1) Next NextChar Print EOF(1) Close #1End Sub运行程序,单击命令按钮,其输出结果为( )。


  • A.True
  • B.False
  • C.0
  • D.Null
热度🔥339
参考答案:A
解析:

【解析】程序中以顺序输入方式打开d:\temp\female.txt文件。Lof函数取得打开文件的长度。EOF函数用来测试文件的结束状态。根据文件长度值,利用Input函数逐一取出文件中的字符,每读取一个字符,文件指针自动下移,指向下一个字符。当执行最后一次循环时,Input函数读取了最后一个字符,文件指针再向下移动就会指向文件的结尾。因此当EOF函数测试文件结束状态时,就会返回True。对于逻辑值,Print语句会直接输出"True"。因此答案为A。
复制题目向AI提问