在窗体上画一个命令按钮,然后编写如下代码:
Private Type Record
ID As Integer
Name As String*20
End Type
Private Sub Commandl_click()
Dim MaxSize,NextChar,MyChar
Open "D:\temp\female.txt"For Input As #1
MaxSize=LOF(1)
For NextChar=1 To Max Size
Seek #1,Next Char
MyChar=Input(1,#1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后,单击命令按钮,其输出结果为 ______。
A.True
B.False
C.0
D.Null