已解决VB的一个小程序，有点小问题
提问者：烧烤★七月 | 浏览次 | 提问时间：2017-01-29 | 回答数量：8
要求实现的功能为：读取一个.txt文本文档中的数据，并经行一定规则的计算，之后输出计算结果，我的戴帽如下：Private Sub Command1_Click()Dim a(1001) As DoubleDim var1Dim i As IntegerOpen \"e:\\计算结果.txt\" For Input As #1Do While Not EOF(1)Line Input #1, var1a(i) = var1List1.AddItem (\"a\" & \"(\" & i & \")=\" & a(i))i = i + 1Loop For i = 0 To 999 a(i) = (a(i)) ^ 2 - 10 List2.AddItem (\"a\" & \"(\" & i & \")=\" & a(i)) Next iEnd SubPrivate Sub Command2_Click()EndEnd Sub这样做到是实现了我所要的功能了，可是存在蛮多费解的地方：1.为什么 For i = 0 To 999
已有8条答案
１、command1和command2是否在同一个文件里？
２、换行符是一个叫做vbcrlf的字符串
３、app.path可以得到当前程序所在路径，所以将e:\计算结果.txt改成app.path & "\计算结果.txt"
感谢版主帮助，我试试看 ，command1和command2是同一个文件里的啊
evergreen楼
回答数：124 | 被采纳数：78
把command1里的代码全部复制到command2行不行？有什么错误提示
就把 for next段复制到command2下没用，错误提示为“编译错误，子程序或函数未定义”是不是要定义个函数来调用数组a()啊？
天一一天日天一
回答数：109 | 被采纳数：24
a是command1里的局部变量，把a的定义放在Private Sub Command1_Click的前面
版主一语中的啊，呵呵，成了，假如输出到文本框中回车符的那个字符串应该加在哪儿呢？
time无敌小吕布
回答数：70 | 被采纳数：37
text2.text=text2.text & "a(" & i & “）=” & a(i) & vbcrlf
elwoodblues
回答数：207 | 被采纳数：13
输出到文本框也顺利解决，直接把vbcrlf加载后面就可以了，真的很感谢版主的帮助啊
