Question

vb读取txt数据进行计算

我想用vb，将一个txt文档里的数读到vb的一个数组中并进行计算，应该怎么样编阿？

Answer 1

dim i as integer,a(99) as integer'假设文档中100个数据
open "c:\1.txt" for input as #1
do while not eof(1)
input #1,a(i)
i=i+1
loop
利用这段代码，可以读出文档中的100个数据到数组。

Answer 2

num(x)=txtbox1.text

Answer 3

Dim intArray(4) As Integer '定义了4个元素的固定数组

Private Sub Command1_Click()
Static intCount As Integer
Dim i As Integer
Dim a As Integer
intArray(intCount) = CInt(Text1.Text)
intCount = intCount + 1
Text1.Text = ""
If intCount >= 4 Then
For i = 0 To 4
a = a + intArray(i)
Next i
Print a

End If

End Sub

我这样就实现了 固定4个数组 相加了