请帮忙给我看看一个VB程序，多谢了！

Question

1.初始化j的值，以免造成可能出现的错误。不是必须的，但最好这样
2.text1的值需要累加，你可以去掉后面的“Text1.Text &"看看会造成什么结果

Answer 1

text1.text 去掉就显示最后的数据
不会显示全部

Answer 2

i(j)  只是一个直。
Text1.Text 是一字符串。要求：同时在文本框中显示出来。
所以掉后面的“Text1.Text &”就不行

Answer 3

去掉Text1.Text & 后，最后Text1的值就是i(100)了。

Answer 4

j=0去掉
text1.text=text1.text & vbcrlf & i(j)
你的代码完全可以简化如下:
Private Sub Cmd1_Click()
on error resume next
    dim ReadText as string
    Open App.Path & "\in.txt" For Input As #1
        do while not eof(1)
           line input #1,ReadText
           text1.text=text1.text & vbcrlf & ReadText
        loop
    Close #1
End Sub
我可以代写,需要menoy.

Answer 5

Dim i As Integer
Private Sub Cmd1_Click()
Dim j As Integer
Open App.Path & "\in.txt" For Input As #1
For j = 1 To 100
   Input #1, i
   Text1.Text = Text1.Text & i & Space(5)
Next
Close #1
End Sub
这种东西都能要钱，不是吧