Запросить у пользователя диапазон изменения аргумента функции - VB

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

Запросить у пользователя диапазон изменения аргумента функции y=2x^2.Пусть приращение аргумента функции равно 1. Вывести на экран таблицу значений х и у.

Решение задачи: «Запросить у пользователя диапазон изменения аргумента функции»

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

                            Option Explicit
Dim y As Single
Dim x As Single
Dim Min As Integer
Dim Max As Integer
Dim Shag As Single
 
Private Sub Command1_Click()
    Min = InputBox("Введите нижнюю границу диапозона изменения переменной x")
    Max = InputBox("Введите верхнюю границу диапозона изменения переменной x")
    Shag = InputBox("Введите шаг изменения переменной x")
    
    Print "x = ",                   'запятая необходима для того чтобы не перескакивала печать на новую строку
    For x = Min To Max Step Shag
        Print Format(x, "0.00"),    'тут можно регулировать точность вывода
    Next x
    Print
    Print "y = ",
    For x = Min To Max Step Shag
        y = 2 * x ^ 2
        Print Format(y, "0.00"),
    Next x
End Sub
                        