修改这个代码，不要输出结果，改成show.form2

Question

Private Sub Command1_Click()
Dim fuzhi As Boolean
fuzhi = False
Open "E:\33.txt" For Input As #1
Open "E:\11.txt" For Output As #2
Do
Line Input #1, a
If a = "[@mainzb] " Then Exit Do
If fuzhi = True Then b = b & a
If a = "[@main]" Then fuzhi = True
Loop
For i = 1 To Len(b)
c = Mid(b, i, 1)
If Asc(c) < 0 Or Asc(c) = 63 Or Asc(c) = 32 Or Asc(c) = 10 Then
Print #2, c;
ElseIf Asc(c) = 92 Then
Print #2,
End If
Next
Close
Close
End Sub

Answer 1

Print #2, c;--->form2.print c;
Print #2,   --->form2.print 

Answer 2

对象不支持该属性或方法---form2.print c;

Answer 3

Print #2, c;--->form2.print c
Print #2, --->form2.print  

Answer 4

本帖最后由 bcrun 于 2011-01-29 08:57:05 编辑