Question

VB如何把一个.txt文件中的数据读取到数组中，然后进行计算。。

Answer 1

病情分析：
肾结石会导致患者出现腹痛、腰酸、血尿等常见症状，
指导意见：
但任何疾病的治疗都不是要等到疾病出现后才去治疗的，需要越早治疗越好。而肾结石在平常很长一段时间都可以没有任何症状，很难被人们发现，因此要坚持定期体检。

病情分析：
你好朋友，肾结石这个一般会出现疼痛发低烧的情况
指导意见：
严重的会有血尿，检查B超看看即可确诊，治疗一般控制感染，用阿托品扩张输尿管，同时多喝水，避免久坐适当多活动

病情分析：
正常人尿液中的一些溶解物质，因各种原因造成沉淀，潴留于肾内，并持续生长，便可形成结石。肾结石引起的疼痛可分为钝痛和绞痛。根据结石成分的不同，肾结石可分草酸钙结石、磷酸钙结石、尿酸(尿酸盐)结石、磷酸铵镁结石、胱氨酸结石及嘌呤结石六类。
指导意见：
肾结石一般在0.6以下的是药物排石,常用的药物如肾石通颗粒,排石颗粒等.大于0.6以上的是体外冲击波碎石,大于2.0以上的可以手术治疗。

病情分析：
你好，肾脏结石只要不造成梗阻，没有肾脏积水可以没有任何不适症状的。
指导意见：
建议你平时多饮水，适当多活动，促进结石排出。

病情分析：
肾结石症状1.可无症状2.腰部钝痛3.急性腰部绞痛4.畏寒、发热、腰痛、尿频、尿急、尿痛症状5.血尿
指导意见：
为了你的健康我们建议现在先去医院正规检查一下

病情分析：
你好，这个肾结石在比较的小的时候是没任何症状的，或者生长的位置是比较的好的，你的神经对此不够敏感
指导意见：
最常见的就是腰痛，伴有血尿，反复的尿路感染，还有就是肾绞疼，，等等

Answer 2

病情分析：
肾结石会导致患者出现腹痛、腰酸、血尿等常见症状，
指导意见：
但任何疾病的治疗都不是要等到疾病出现后才去治疗的，需要越早治疗越好。而肾结石在平常很长一段时间都可以没有任何症状，很难被人们发现，因此要坚持定期体检。

病情分析：
你好朋友，肾结石这个一般会出现疼痛发低烧的情况
指导意见：
严重的会有血尿，检查B超看看即可确诊，治疗一般控制感染，用阿托品扩张输尿管，同时多喝水，避免久坐适当多活动

病情分析：
正常人尿液中的一些溶解物质，因各种原因造成沉淀，潴留于肾内，并持续生长，便可形成结石。肾结石引起的疼痛可分为钝痛和绞痛。根据结石成分的不同，肾结石可分草酸钙结石、磷酸钙结石、尿酸(尿酸盐)结石、磷酸铵镁结石、胱氨酸结石及嘌呤结石六类。
指导意见：
肾结石一般在0.6以下的是药物排石,常用的药物如肾石通颗粒,排石颗粒等.大于0.6以上的是体外冲击波碎石,大于2.0以上的可以手术治疗。

病情分析：
你好，肾脏结石只要不造成梗阻，没有肾脏积水可以没有任何不适症状的。
指导意见：
建议你平时多饮水，适当多活动，促进结石排出。

病情分析：
肾结石症状1.可无症状2.腰部钝痛3.急性腰部绞痛4.畏寒、发热、腰痛、尿频、尿急、尿痛症状5.血尿
指导意见：
为了你的健康我们建议现在先去医院正规检查一下

病情分析：
你好，这个肾结石在比较的小的时候是没任何症状的，或者生长的位置是比较的好的，你的神经对此不够敏感
指导意见：
最常见的就是腰痛，伴有血尿，反复的尿路感染，还有就是肾绞疼，，等等

Answer 3

把你的 txt文件内容，发上来看看！

追问

我想问问这种不是嵌套的循环怎么写

Answer 4

不用excel了吗

追问

我想着计算结果用excel

追答

你全部保存到excel里呗

Answer 5

Private Sub Command1_Click()
Open "d:\0.txt" For Input As #1
Input #1, n
Dim a() As Integer
ReDim a(n)
s = 0
For i = 1 To n
Input #1, a(i)
s = s + a(i)
Next i
Print "sum="; s
Close #1
End Sub

追问

Output吧？

追答

Open "d:\0.txt" For Input As #1 '从指定文件中读取
Input #1, n '从指定文件中读取一个数到n中