当前位置：系统粉 > 电脑问答 > 其他问答 > VB的一个小程序，有点小问题

VB的一个小程序，有点小问题

提问者：烧烤★七月 | 浏览次 | 提问时间：2017-01-29 | 回答数量：8

VB的一个小程序，有点小问题要求实现的功能为：读取一个.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条答案

新lana

回答数：17 | 被采纳数：63

2017-01-29 21:19:58

１、command1和command2是否在同一个文件里？
２、换行符是一个叫做vbcrlf的字符串
３、app.path可以得到当前程序所在路径，所以将e:\计算结果.txt改成app.path & "\计算结果.txt"

赞 1

德阳幺妹

回答数：205 | 被采纳数：3

2017-01-30 00:21:22

感谢版主帮助，我试试看，command1和command2是同一个文件里的啊 (1)

(1)

赞 20

evergreen楼

回答数：124 | 被采纳数：78

2017-01-29 23:38:24

把command1里的代码全部复制到command2行不行？有什么错误提示

赞 12

奔夏_

回答数：118 | 被采纳数：107

2017-01-30 04:10:28

就把 for next段复制到command2下没用，错误提示为“编译错误，子程序或函数未定义”是不是要定义个函数来调用数组a()啊？

赞 11

天一一天日天一

回答数：109 | 被采纳数：24

2017-01-29 20:23:29

a是command1里的局部变量，把a的定义放在Private Sub Command1_Click的前面

赞 10

蓝莓香润手霜

回答数：118 | 被采纳数：93

2017-01-30 06:03:06

版主一语中的啊，呵呵，成了，假如输出到文本框中回车符的那个字符串应该加在哪儿呢？

赞 11

time无敌小吕布

回答数：70 | 被采纳数：37

2017-01-30 02:21:08

text2.text=text2.text & "a(" & i & “）=” & a(i) & vbcrlf

赞 7

elwoodblues

回答数：207 | 被采纳数：13

2017-01-30 16:59:20

输出到文本框也顺利解决，直接把vbcrlf加载后面就可以了，真的很感谢版主的帮助啊

赞 20

相关问题

解决方法

说说微软小冰推出的小程序“小冰FM”

2017年09月04日，进化到第五代的微软小冰最近可谓动作频频，其中就包括在微信平台发布了小程序“小冰FM”‍体验之后，小冰把更多想象带进了生活，比如会根据你之前的点播推荐一首相关...
用得最多的微信小程序竟是它你爱用小程序吗？

　　微信在今年高调推出小程序接口，时隔数月，微信小程序到底发展的如何呢？阿拉丁数据统计平台在日前发布了第一份小程序TOP100榜单。　　据悉，这份榜单的背后收录了超过10000个...
用完这五个，再也不敢说小程序坏话了

微信小程序发布三个月了，但还是有人总说它的坏话，比如入口太深、功能太少、没卵用等等。小程序在功能上自然比不了原生 App，但如果使用得当，它还是能帮你解决不少意想不到的问题，比如在...
轻芒发布“轻芒小程序+” 可免费创建专属小程序

7月5日消息，轻芒今日在发布会上正式发布小程序解决方案“轻芒小程序+”，使内容创作者即便没有任何开发团队，只需简单填写表单就可以免费创建一个专属于自己的小程序。轻芒联合创始人...

最新其他问答

热门问答

版权信息

Copyright @ 2011 系统粉版权声明最新发布内容网站导航