Объясните. Пожалуйста. - VB

Формулировка задачи:

1) Дана прогрессия 2.5, 3.0, 3.5...N . найти сумму и среднее значение. 2) Дан массив. Найти 2 числа среднее арифметическое которых будет ближе всего к x здесь у меня так получилось, но видимо я что то не так сделал

Public Sub main()
Dim x As Integer
Dim sum As Single
Dim i As Integer
Dim j As Integer
Dim N As Integer
Dim A() As Integer
N = (InputBox("введите размерность массива"))
x = (InputBox("введите x"))
 
For i = 1 To N
        
For j = 1 To N
        
sum = 0
sum = (A(i) + A(j)) / 2
 
sum = sum - y
If sum < m Then sum = m
Next j
Next i
MsgBox "первое число= " & A(i)
MsgBox "второе число= " & A(j)
End Sub

3) дана строка. подсчитать количество слов, длина которых меньше чем x(число). В этой задаче я смог написать только подсчет слов, а как сделать чтобы еще сравнивала с x не получается.

Решение задачи: «Объясните. Пожалуйста.»

textual
                            Листинг программы 
                        

                            Sub Task_1()
'Г„Г*Г*Г* ГЇГ°Г®ГЈГ°ГҐГ±Г±ГЁГї 2.5, 3.0, 3.5...N . Г*Г*Г©ГІГЁ Г±ГіГ¬Г¬Гі ГЁ Г±Г°ГҐГ¤Г*ГҐГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ.
Dim i As Single, N As Single, snSum As Single, snSR As Single
N = InputBox("N:")
For i = 2.5 To N Step 0.5
    snSum = snSum + i
    k = k + 1
Next
snSR = snSum / k
MsgBox "Г‘ГіГ¬Г¬Г* " & snSum & vbNewLine & "Г‘Г°ГҐГ¤Г*ГҐГҐ " & snSR
End Sub
 
Sub Task_2()
'Г„Г*Г* Г¬Г*Г±Г±ГЁГў. ГЌГ*Г©ГІГЁ 2 Г·ГЁГ±Г«Г* Г±Г°ГҐГ¤Г*ГҐГҐ Г*Г°ГЁГґГ¬ГҐГІГЁГ·ГҐГ±ГЄГ®ГҐ ГЄГ®ГІГ®Г°Г»Гµ ГЎГіГ¤ГҐГІ ГЎГ«ГЁГ¦ГҐ ГўГ±ГҐГЈГ® ГЄ x
Dim i As Integer, A(), N As Integer, x As Integer, j As Integer
Dim sStr As String, iDiff As Single, snSR As Single
N = InputBox("ГђГ*Г§Г¬ГҐГ° Г¬Г*Г±Г±ГЁГўГ*:")
ReDim A(1 To N)
For i = 1 To N
    A(i) = Int(Rnd * 40 + 10)
    sStr = sStr & A(i) & "  "
Next
sStr = sStr & vbNewLine
x = InputBox("x:")
iDiff = 50
For i = 1 To N - 1
    For j = i + 1 To N
        snSR = Abs(x - ((A(i) + A(j)) / 2))
        If snSR < iDiff Then: iDiff = iDff: iIndI = i: iIndJ = j
    Next
Next
MsgBox sStr & A(iIndI) & " ГЁ " & A(iIndJ) & ", Г±Г°. Г*Г°ГЁГґГ¬. -  " & _
((A(iIndI) + A(iIndJ)) / 2) & "," & vbNewLine & "Г·ГІГ® ГЎГ«ГЁГ¦ГҐ ГўГ±ГҐГЈГ® ГЄ " & x
End Sub
 
Sub Task_3()
'Г„Г*Г*Г* Г±ГІГ°Г®ГЄГ*. ГЇГ®Г¤Г±Г·ГЁГІГ*ГІГј ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±Г«Г®Гў, Г¤Г«ГЁГ*Г* ГЄГ®ГІГ®Г°Г»Гµ Г¬ГҐГ*ГјГёГҐ Г·ГҐГ¬ x(Г·ГЁГ±Г«Г®).
Dim x As Integer, iLen As Integer, A, k As Integer, i As Integer
A = Split(InputBox("Г‚ГўГ®Г¤ Г±ГІГ°Г®ГЄГЁ:"))
x = InputBox("x:")
For i = 0 To UBound(A)
    iLen = Len(A(i))
    If iLen < x And iLen > 0 Then k = k + 1
Next
MsgBox k
End Sub
                        