VB的Input函数

'读取 Private Sub Command1_Click() Open "c:\a.txt" For Binary As #1 Text1.Text = Input(LOF(1), #1) Close #1 End Sub '写入 Private Sub Command2_Click() Open "c:\a.txt" For Output As #1 Print #1, Text1.Text Close #1