Что сдесь не так???

[6ypuk]

Привет.

Задача:

Вычислить сумму квадратов всех элементов заданного массива x(N); за исключением элементов кратных пяти, все данный вводятся в ручную через форму.


Dim x() As Integer
Private Sub CommandButton1_Click()
Dim n As Integer
Dim i As Integer
Dim y As Integer

n = Val(TextBox1)
y = Val(TextBox2)
ReDim x(1 To n)
For i = 1 To n
x(i) = InputBox("введи масссив")
Next i
y = 0
If i Mod 5 <> 0 Then
y = y + x(i) ^ 2
Else
i = i + 1
End If
TextBox2 = Str(y)
End Sub

[6ypuk]

Это Visual Basic

[EducatedFool]

А зачем строка y = Val(TextBox2)?
Если потом ты пишешь y = 0...

А вот это вообще бред:

If i Mod 5 <> 0 Then
        y = y + x(i) ^ 2
    Else
        i = i + 1
    End If

Ладно бы ещё этот "код" был внутри цикла...

Попробуй так:

Private Sub CommandButton1_Click()
    n = Val(TextBox1):    ReDim x(1 To n)
    For i = 1 To n
        x(i) = InputBox("введи масссив")
        If x(i) Mod 5 > 0 Then y = y + x(i) ^ 2
    Next i
    TextBox2 = y
End Sub

Правда, тут нет обработки ошибок.
Если в ранее предложенный мной exe-файл попытаться ввести неверные данные, то программа уведомит об этом, и отменит ввод.
В твоём же случае просто программа вылетит с ошибкой.

[6ypuk]

Спаисбо, попробую, может прокатит