窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click()   Dim s1 As String, s2 As String   Open "

admin2020-07-22  33

问题 窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:
Private Sub Command1_Click()
  Dim s1 As String, s2 As String
  Open "c:\d4.dat" For Append As #3
  Line Input #3, s1
  Line Input #3, s2
  Text1.Text=s1+s2
  Close
End Sub
该程序运行时有错误,应该进行的修改是(  )。

选项 A、将Open语句中的For Append改为For Input
B、将Line Input改为Line
C、将两条Line Input语句合并为Line Input #3, s1,s2
D、将Close语句改为Close #3

答案A

解析 文件打开方式中的Append意味着打开的文件是顺序输出方式,也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此Open "c:\d4.dat" For Append As #3应该改为Open "c:\d4.dat" For Input As #3。所以A选项正确。Clsoe语句中的文件号可以省略,这时会关闭所有打开的文件。
转载请注明原文地址:https://jikaoti.com/ti/cGS0FFFM
0

最新回复(0)