Составители:
Рубрика:
94 95
End With
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Function g(x)
If x <= 0 Then g = (3 * x ^ 2) / (1 + x ^ 2) Else g = Sqr(1 + 2 * x / (1 + x ^ 2))
End Function
Function z(x)
If x < 0 Then z = 3 * x + Sqr(1 + x ^ 2)
If (x >= 0) And (x <= 1) Then z = 2 * Cos(x) * Exp(-2 * x)
If x > 1 Then z = 2 * Sin(3 * x)
End Function
Некоторые комментарии к программе:
в модуле Private Sub CommandButton1_Click(), программно
поддерживающем объект CommandButton1, используется функ-
ция IsNumeric(TextBox1), проверяющая, являются ли данные, по-
мещенные в объекте TextBox1 или TextBox2, цифровыми;
в программе также используется функция CDbl(TextBox), обе-
спечивающая преобразование данных объектов TextBox1 и TextBox2
в цифровые;
в модуле используется динамическое объявление массива
Dim S() As String с последующим уточнением мерности массива;
если включен объект OptionButton1, то табулируется функ-
ция y=f(x), вычисленные значения которой и отображаются в объек-
те ListBox1 (см. рис. 10.10); предварительно уточняется мерность
массива S оператором ReDim S(Round(Abs(XK - XN) / DX) + 1,
1 To 3) As String, который можно размещать в любом месте про-
граммы. Диапазон изменения индексов по первому измерению от
0 до величины вычисленного результата арифметического выраже-
ния Round(Abs(XK - XN) / DX) + 1, т. е. + 1, для того чтобы увели-
чить количество элементов массива с учетом «шапки таблицы», по
второму измерению – от 1 до 3;
если включен объект OptionButton2, то табулируется функ-
ция g=f(x), вычисленные значения которой и отображаются в объ-
екте ListBox1 (рис. 10.11); предварительно уточняется мерность
массива S оператором ReDim S(Round(Abs(XK - XN) / DX) + 1,
1 To 3) As String,
который можно размещать в любом месте про-
граммы. Диапазон изменения индексов по первому измерению от
0 до величины вычисленного результата арифметического выраже-
ния Round(Abs(XK - XN) / DX) + 1, т. е. + 1, для того чтобы увели-
чить количество элементов массива с учетом «шапки таблицы», по
второму измерению – от 1 до 4;
если включен объект OptionButton3, то табулируется функ
-
ция z=f(x), вычисленные значения которой и отображаются в объ-
екте ListBox1 (рис. 10.12), предварительно уточняется мерность
массива S оператором ReDim S(Round(Abs(XK - XN) / DX) + 1,
1 To 3) As String, который можно размещать в любом месте про-
граммы. Диапазон изменения индексов по первому измерению от
0 до величины вычисленного результата арифметического выраже-
ния Round(Abs(XK - XN) / DX) + 1, т. е. +1, для того чтобы увели-
чить
количество элементов массива с учетом «шапки таблицы», по
второму измерению – от 1 до 5;
формулы функций g=f(x) и z=f(x) оформлены в виде модулей
пользовательских функций Function g(x) и Function z(x);
Рис. 10.11
