以下代码仅供参考。朋友。
Private Sub Command1_Click() '按钮1，以只读的方式打开文件
Open "d:/002.txt" For Input As #1
End Sub
Private Sub Command2_Click()
Do While Not EOF(1)
Input #1, a '读取文件中的一个数据，存放到变量a中
Print a '处理读出的一个数据，此处设定为输出到屏幕上
Loop
Close '读完后，关闭文件
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024