Коды процедуры

Private Sub cmdВычислить_Click()

Dim Xn As Single, Xk As Single, dX As Single

Dim k As Single, X As Single, blnДалее As Boolean

Dim p As Single, f As Single, rez As String

xn = Val(txtXn.Text): xk = Val(txtXk.Text): dX = Val(txtDX.Text)

txtRez.Text = "" ' чистка текстового поля

‘ в текстовой переменной rez формируем шапку таблицы с результатами:

rez = "X" & vbTab & vbTab & "K" & vbTab & vbTab & "P" & _

vbTab & vbTab & "F" & vbCrLf

For X = Xn To Xk Step dX ‘ начало цикла со счетчиком Х (здесь счетчик – аргумент функции)

‘ Xn – начальное значение параметра Х; Xk – конечное значение параметра Х

‘ dX – шаг изменения Х (Step – шаг)

blnДалее = True

If X > 2 And X <= 6 Then

k = FormatNumber(((2 * X ^ 2 + Exp(X)) / 2 / x), 3)

ElseIf X > 6 Then

k = FormatNumber((3 * 3 + 4 * (Cos(X)) ^ 2), 3)

Else

blnДалее = False

End If

If blnДалее Then

p = FormatNumber(((2 * X + k) / k ^ 2), 3)

f = Format((3 * k ^ 2 - 2 * p), "000000.000")

rez = rez & FormatNumber(X, 1) & vbTab & vbTab & k & vbTab & vbTab & p & _

vbTab & vbTab & f & vbCrLf

Else

rez = rez & X & vbTab & "Нет решения!" & vbCrLf

End If

Next x ‘ конец цикла

txtRez.Text = rez ‘ вывод таблицы результатов в текстовое окно txtRez

MsgBox rez, vbInformation + vbOkOnly, “Результаты расчетов” ‘ вывод в окно сообщений MsgBox

End Sub