Вычислить значение функции - VB (60651)

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

Всем привет! Натолкните пожалуйста на решение задачи, никак не могу разобраться с конструкцией тела программы, все время ошибки выбивает. "Вычислить значение функции y = 10 * x * x – 10, используя оператор For..Next. Х – лежит в интервале (16,17). Используется шаг 1.0." На Паскале решил, а здесь никак. Спасибо.

Решение задачи: «Вычислить значение функции»

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

                            Sub Find()
Dim x  As Integer, y As Integer 
For x = 16 To 17 Step 1':D
      y = 10 * x * x - 10
      MsgBox y
Next x
 
End Sub
                        