在窗体上画一个命令按钮,然后编写如下代码: 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 程序运行后,单击命令按钮,其输出结果为 ______。