把生成平方数做出来了，但是平均数忘了怎么做了，我记得好像要定义一维数组？？求哪位大佬用简单一些些的方法解答，好人一生平安！！

数学逻辑上理清楚了，就不难，所以你的先理清楚怎么数学上怎么实现，然后再看代码怎么实现，下面是我的例程，和你的代码用的是不同的思路，你可以参考一下，但终究你还是要自己理清楚，自己来实现
Dim i&, dwSum& ,dwRet&
Do
　　i = i + 1
　　If i ^ 2 <= 100 Then
　　　　dwSum = dwSum + i ^ 2
　　　　? i ^ 2;
　　Else
　　　　Exit Do
　　End If
Loop
dwRet = dwSum / (i - 1)
Text1 = dwRet

至于求均值用一维数组？
你是要用补差法还是你认为你的数据足够多，抑或是你认为你的数据足够大？再或者你是认为VB存在一个函数可以直接求出均值？再或者你想先求出完全平方数之后再来求平均值？

Dim sum As Integer
Dim i As Integer, j As Integer
sum = 0
j = 0
For i = 1 To 100
If Sqr(i) = i \ Sqr(i) Then
Print i;
sum = sum + i
j = j + 1
End If
Next i
Text1.Text = sum \ j

Option Explicit
Private Sub Form_Click()
Dim sum As Integer, T As Integer, i As Integer
Cls
Text1.Text = ""
sum = 0: T = 0
For i = 1 To 10
T = i * i: sum = sum + T
Print T
Next i
Text1.Text = CStr(Int(sum / (i - 1)))
End Sub

你完全不必循环到100，浪费内存，只要
for i=1 to 10
print i*i
sum = sum + i*i
next
text1.text = sum/10