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

admin2010-03-30  24

问题 在窗体上画一个命令按钮,然后编写如下代码:
     Private Type Record
          R_ID As Integer
          R_Name As String * 20
     Ene Type
     Private Sub Commandl_Click( )
     Dim M _Sise, N_Char, M_Char
              Open" c: \file. txt" For Input As #1
              M_sise=LOF(1)
              For N_Char = M_Sise To 1 Step - 1
                   Seek#1, Next Char
                   M_char = Input(1 ,#1)
              Next
              Print EOF(1)
              Close#1
    End Sub
    程序运行后,单击命令按钮,其输出结果为【  】。

选项

答案False

解析 本题的难点是:如伺确定文件的指针是否指在文件的末尾处。Seek语句把相应文件的文件指针由后向前移动,当循环结束时,文件指针在文件的开始处,所以EOF(1)为False。注意:文件指针的定位、读取文件等
转载请注明原文地址:https://jikaoti.com/ti/pgg0FFFM
0

最新回复(0)