Коды процедуры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
|
