Массивы в вижуал бэйсик

Видимо. диапазон не от 115, а от -115, если речь идет о положительных и однозначных элементах.
На форме делаешь два неизменяемых поля метки Label1 и Label2 для вывода результатов.
Dim X(15) As Integer, i As Integer, n As Integer, nSred As Integer, Sred As Single
n = 0 : nSred = 0 : Sred = 0
For i = 1 To 15
 X(i) = Int(Rnd(1)*(159 + 115 + 1)) - 115 ' формируем массив из случайных чисел в диапазоне от -115 до 159
 If (X(i) > 0) And (X(i) Mod 7 = 0) Then n = n + 1
 If Abs(X(i)) < 10 Then
    Sred = Sred + X(i)
    nSred = nSred + 1
 End If
Next i
If nSred > 0 Then Sred = Sred / nSred
If n = 0 Then
 Label1.Caption = "Положительных элементов, кратных 7, нет!"
Else
 Label1.Caption = "Положительных элементов, кратных 7: " & n
End If
If nSred = 0 Then
 Label2.Caption = "Однозначных элементов нет!"
Else
 Label2.Caption = "Среднее значение однозначных элементов: " & Sred
End If
End Sub