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

admin2009-01-15  38

问题 在窗体上画一个命令按钮,然后编写如下代码:    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       Max Size=LOF(1)       For Next Char=1 To MaxSize          Seek # 1,NextChar          MyChar=Input(1,# 1)       Next NextChar       Print EOF(1)       Close # 1    End Sub    程序运行后,单击命令按钮,其输出结果为 ______。

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

答案1

解析 该程序对指定路径下的文件进行Input操作,由于是遍历整个文件,则最后的EOF(1)必为真。
转载请注明原文地址:https://jikaoti.com/ti/Os80FFFM
0

最新回复(0)