vb 已知数据文件data.txt中有若干个数据,编程求这些数据的平均值

文件操作的首要重点就是数据类型，你的问题中并未给出数据类型，数量和存放的方式。因此很难给出你具体的解决之道。如果你能给出更多一些的信息就好了。
下面我猜测性的示范一下
假设data.txt文件中存放在D盘下，并且存放这样的数据：
123
12
99
50
。。。
我们可以这样编写程序读出数据
Dim arr() As Variant '因为是未知数据类型，所以我定义一个默认数组
Private Sub Command1_Click()
Dim counter%
Dim sum%
Open "D:\123.txt" For Input As #1
Do While Not EOF(1)
counter = counter + 1
ReDim Preserve arr(counter)
Line Input #1, arr(i)
Sum = Sum + Int(arr(i)) '强制转换，求和
Loop
Close #1
Print Sum / counter '输出平均数
End Sub
上例是为了说明流程，希望你看了能够有所帮助。另外必须一提的是，有些文件存入的是记录型数据，若想读取就必须知道其数据的类型和成员组成。这个网上有很多资料你可以去搜一下。