在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Private Type Record   ID As Integer   Name As String * 20 End Type Private Sub Command1_Click()

admin2015-08-28  20

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

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

答案A

解析 程序中以顺序输入方式打开d:\temp\female.txt文件。Lof函数取得打开文件的长度。EOF函数用来测试文件的结束状态。根据文件长度值,利用Input函数逐一取出文件中的字符,每读取一个字符,文件指针自动下移,指向下一个字符。当执行最后一次循环时,Input函数读取了最后一个字符,文件指针再向下移动就会指向文件的结尾。因此当EOF函数测试文件结束状态时,就会返回True。对于逻辑值,Print语句会直接输出"True"。因此答案为A。
转载请注明原文地址:https://kaotiyun.com/show/DpQp777K
0

最新回复(0)