<br />Private Sub Command1_Click()<br />Open "c:/1.txt" For Input As #1<br />Do While Not EOF(1)<br />Line Input #1, temp<br />x = x + 1<br />If x = 3 Then Print temp<br />Loop<br />Close #1<br />Print x & "行"<br />End Sub<br /> <br /> <br /> <br />读取后使用sp