Visual Basic-одномерный массив!

[DESPUT]

Формулировка задачи: Найти сумму 1-го, 4-го, 9-го, 16-го, …, k-го элементов одномерного массива X из n элементов (k – наибольшее целое число, не превышающее
корень(n)).
сможет кто нибудь помочь написать вот это?)

[Stat_ya]

иногда нужно думать... это просто!

[DESPUT]

ну не для всех это просто... вот например я не могу понять как в этом массиве задать шаг... если можешь помоги пожалуйста

[PavelZet]

задаём начальное значение n=1(n-корень из индекса)
задаём i(индекс) от 1 до k, i изменяется по закону i = n в квадрате
sum присваиваем sum + M[i]
в теле цикла увеличиваем n на 1(после суммирования)

[DESPUT]

можете объяснить, что здесь не корректно, пожалуйста, если все правильно то почему-то не работает, и если не сложно выложите код целиком
k = 1
For i = 1 To n Step k ^ 2
S = M(i) + S
k = k + 1
Next i

[EducatedFool]

    Dim m(100)
    For i = 1 To 100: m(i) = i: Next i: Rem заполняем массив
    
    k = 5
    For i = 1 To k
        S = m(i ^ 2) + S
    Next i
    Print S

[DESPUT]

на сколько я понял
нельзя в VB задать такую формулу S = m(i ^ 2) + S
вот часть кода отвечающая за этот цикл я не могу понять, что в ней не правильно:

Dim S As Single, M(1 To 16) As Single
Dim i As Integer, n As Integer, k As Integer
Private Sub Command1_Click()
n = Val(txt_n.Text)
For i = 1 To n Step 1
M(i) = Text1(i).Text
Next i
For i = 1 To n Step (k ^ 2)
S = M(i) + S
Next i
txt_S.Text = S
End Sub

[EducatedFool]

на сколько я понял
нельзя в VB задать такую формулу S = m(i ^ 2) + S

С чего ты это взял?

Замени свой код на такой, и проверь:

Sub Command1_Click()
    'Найти сумму 1-го, 4-го, 9-го, 16-го, …, k-го элементов одномерного массива X из n элементов
    '(k – наибольшее целое число, не превышающее корень(n)).
    Dim M(100)
    For i = 1 To 100: M(i) = i: Next i:    Rem заполняем массив

    k = 6
    For i = 1 To k
        S = M(i ^ 2) + S
    Next i
    MsgBox S
End Sub

я не могу понять, что в ней не правильно:

Хотя бы вот это:

For i = 1 To n Step (k ^ 2)
S = M(i) + S
Next i

Надо готовый код - прикрепи к сообщению свой проект VB

[DESPUT]

все равно нет... ему не нравится эта строчка
возможно это из-за версии... у меня Microsoft Visual Basic 6.0

[EducatedFool]

ему не нравится эта строчка

Чем именно не нравится?
Я проверял код в VBA (=VB6.3)

Выкладывай свой проект, посмотрим.