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