在窗体上画一个命令按钮,然后编写如下代码:Private Type Record ID As Integer Name As String * 20End TypePrivate Sub Cmd1_Click() Dim MaxSize, NextChar, MyChar Open "d:\temp\female.txt" For Input As #1 MaxSize = LOF(1) For NextChar = 1 To MaxSize Seek #1, NextChar MyChar = Input(1, #1) Next NextChar Print EOF(1) Close #1End Sub程序运行后,单击命令按钮,其输出结果为 。
选项:
A:True;
B:False;
C:0;
D: Null
发布时间:2024-05-21 20:43:32