VB 中声明一长度为10的Double数组，第4个元素为1.667，最后一个元素为3.333。求此数组的平均值并打印出来

你的题目不完整,不知道你的数组中的数,是不是一个等差数列,如果是的话,按下面的方法来做,随便给出两个位置,及相应的值,即可算出平均值
Private Sub Command1_Click()
Dim A(1 To 10) As Double
m = 4
A(m) = 1.667
n = 10
A(n) = 3.333
step = (A(n) - A(m)) / (n - m)
s = A(m)
For i = m - 1 To 1 Step -1
A(i) = A(i + 1) - step
s = s + A(i)
Next
For i = m + 1 To 10
A(i) = A(i - 1) + step
s = s + A(i)
Next

Print s / 10
End Sub