Постановка задачи
Вычислить квадратный корень из суммы квадратов нечётных элементов
Введение
Динамический массив intA() и переменную n объявляются глобальными в модуле формы Public intA() As Integer, n As Integer
Для события Click кнопки Command1
Private Sub Command1_Click()
Dim i As Integer, kvs As Integer
n = Val(txtN.Text) 'считывание n
ReDim intA(n) As Integer ' переопределение массива intA
Cls
CurrentY = 1245
'Ввод и вывод исходных данных
Print " ИСХОДНЫЕ ДАННЫЕ"