中科新闻网口袋妖怪金银完美汉化:vb 小程序的问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 22:29:30
Private Sub Form_Click()
Open "c:\1.txt" For Output As #1
For i = 1 To 5
Print #1, Spc(i); "*****"'spc(i)?
Next i
'**********SPACE**********
Close #1
'**********SPACE**********
Open "c:\1.txt" For Input As #1'#1的意思是什么
For i = 1 To 5
Line Input #1, x
Print x
Next i
Close #1
End Sub
可以将上面的程序注释写出来吗 ，谢谢！
Open "c:\1.txt" For Output As #1
For i = 1 To 5
Print #1, Spc(i); "*****"'spc(i)?
Next i
'**********SPACE**********
Close #1
'**********SPACE**********
Open "c:\1.txt" For Input As #1'#1的意思是什么
For i = 1 To 5
Line Input #1, x
Print x
Next i
Close #1
End Sub
可以将上面的程序注释写出来吗 ，谢谢！
Private Sub Form_Click() '单击窗体时发生
Open "c:\1.txt" For Input As #1'打开文到指定文件号为1
For i = 1 To 5 '循环5次
Line Input #1, x '用读出的每一行数据画线
Print x '输出X
Next i '结束循环
Close #1 '关闭文件
End Sub '事件结束
Output As #1 输出到1号文件