Оператор цикла Basic

[mefees]

Private Sub btnW_Click()	
'Очистка объетов PictureBox методом Cls
    Picn.Cls: PicA.Cls: PicS.Cls: PicM.Cls: Pic5.Cls
    btnReturn.Enabled = False
    summa = 0 'Начальное значение суммы
    'K-количество вводимых чисел
12 k = Val(InputBox("Количество вводимых чисел?", "Окно ввода"))
    If k <= 1 Then
        MsgBox "Повторите ввод положительного числа>1"
    GoTo 12
    End If
    Picn.Print ; "n"
    PicA.Print " A"
    n = 1
    np = 0
    While n <= k
            a = Val(InputBox("Введите значение переменной A" & Chr(13) & "для номера n=" & Str(n), "Окно ввода для A"))
            If a >= 100 And a <= 999 Then
                Picn.Print " "; n
                PicA.Print Format(a, "###.000")
                If n = 1 Then MaxA = a 'Начальное значение максимального введенного числа
                If n = 1 Then MinA = a 'Начальное значение минимального введенного числа
                summa = summa + a 'Изменение значения суммы
                sred = summa / n 'Вычисление среднего значения
                If a > MaxA Then MaxA = a: nmax = n 'Текущее значение и номер минимального введенного числа
                If a < MinA Then MinA = a: nmin = n 'Текущее значение и номер максимального введенного числа
                n = n + 1
            Else
                np = np + 1
                MsgBox "Введите трехзначное число"
            End If
    Wend

Оператор While Wend. Нужно чтобы изменился знак в строчке While n <= k. Подскажите что изменить для этого..

[Дианка]

как решить?
помогите пож
СОСТАВИТЬ ПРОГРАММУ ДЛЯ ВЫЧИСЛЕНИЯ ЗНАЧЕНИЯ ФУНКЦИИ. РЕЗУЛЬТАТЫ ВЫДАТЬ НА ПЕЧАТЬ:
4. N= arctg(П-X) , для х=0,4/4; шаг 0,4.
2 4
________________
(-П - X)
4 4