请问一个vb程序

来源：百度知道 编辑：UC知道 时间：2024/05/14 13:12:21
请问:Private Sub Command1_Click()
Open "c:\c.txt" For Output As #10
Write #10, 1
Close #10

End Sub

Private Sub Command2_Click()
Open "c:\c.txt" For Binary As #10
Dim b As String
Get #10, 1, b
Text1.Text = b
Print b
Close #10
End Sub
这个程序怎么输不出数据呢

这是一个写入的
Dim FilePointer As Integer
FilePointer = FreeFile()
Open strUOPath & "login.cfg" For Output As #FilePointer
Print #FilePointer, txtIPConfig.Text
Close #FilePointer

这是一个读取的
FilePointer = FreeFile()
Open strUOPath & "login.cfg" For Input As #FilePointer
Do While Not EOF(FilePointer)
Line Input #FilePointer, strTemp
txtIPConfig.Text = txtIPConfig.Text & strTemp
Loop
Close #FilePointer

以上两个例子是ASCII码文件的读写,下面来个二进制文件的:
Dim FilePointer As Long
Dim bTemp() As Byte
bTemp = LoadResData(101, "VERDATA")
FilePointer = FreeFile()
Open strUOPath & "verdata_由AutoMacro创建的穿墙补丁文件.mul" For Binary As #FilePointer
For i = 0 To UBound(bTemp)
Put #FilePointer, , bTemp(i)
DoEvents '让CPU可以处理别的消息
Next i
Close #FilePointer