[@Lenivets]

Ты не из Китая случаем ? Google не заблокирован ?
1 запрос..
не 1 нажатия кнопки...

http://www.cyberforum.ru/visual-basic/thread144873.html

Если сложно перейти

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a() As Single, n As Integer, Sum As Single, answer
        Sum = 0
        Dim lower As Single, upper As Single
        n = InputBox("Количество элементов в массиве")
        lower = InputBox("Нижняя граница диапазона генерации")
        upper = InputBox("Верхняя граница диапазона генерации")
        n = n - 1
        ReDim Preserve a(0 To n)
        answer = ""
        For i = 0 To n
            a(i) = Int((upper - lower) * Rnd() + lower)
            answer = answer & a(i) & Space(4)
            Sum = Sum + a(i)
        Next
        Sum = Sum / n
        MsgBox(answer & Chr(13) & Sum)
    End Sub

+
Условие не верное..

For i = 0 to b
e=e+1
Next i

Srednee=e/b

заполниться E , и выйдет число, сколько цифр, и потом ты делишь его на само себя (B количество цифр) Что за бред ?

Универ ? Выучи хоть основу математики..
Учитель мудевень) Basic не айс..