Составители:
Рубрика:
147
End Sub
Приложение 2.
Программы учебного проекта VBAPro-
ject2.xls
UserForm1 _ 1
'ПОСТРОЕНИЕ ГРАФИКА ПО РЕЗУЛЬТАТАМ ВЫЧИСЛЕНИЙ
'Программа VBAProject2.xls
'Запуск процедуры вычислений,
'выполняемой при нажатии на [CommandButton1]
'Процедура заключается в подготовке
'исходных данных для построения
'графиков функций
' Z1 = (X^2 – 2*Y) / (2*Y
/\
2) при X==const
' Z2 = exp(Z1)
'в диапазоне варьируемых значений Х
Private Sub CommandButton1_Click()
'Описание переменных удвоенной точности,
'где Аргумент1 = Х, Аргумент2Нач - начальное значение Y,
'Аргумент2Кон - конечное значение Y,
'Аргумент2Шаг - шаг варьирования Y
Dim Аргумент1 As Double
Dim Аргумент2Нач As Double
Dim Аргумент2Кон As Double
Dim Аргумент2Шаг As Double
'Переменная n (число строк в таблице Excel,
'отводимых для записи данных) целого типа описана в модуле
'Описание строковых переменных
Dim Формула1 As String
Dim Формула2 As String
'Задание удвоенной точности при чтении данных
'в окнах ввода пользовательской формы 1
With UserForm1
Аргумент2Нач = CDbl(TextBox1.Text)
Аргумент2Кон = CDbl(TextBox2.Text)
Аргумент2Шаг = CDbl(TextBox3.Text)
Аргумент1 = CDbl(TextBox6.Text)
Формула1 = Trim(CStr(TextBox4.Text))
Формула2 = Trim(CStr(TextBox5.Text))
End With
'Очистка столбцов от А до D включительно
'в таблице Excel
Страницы
- « первая
- ‹ предыдущая
- …
- 145
- 146
- 147
- 148
- 149
- …
- следующая ›
- последняя »
