Задание №3 Программирование линейного вычислительного процесса на языке vba
В соответствии с вариантами задания (табл. 3) представить: постановку задачи, блок-схему, диалоговое окно (форму), программный код, результаты вычислений.
Вычислить сумму А=В+С, введя исходные данные X и Y.
Таблица 3
В-т |
В |
С |
X,Y |
1 |
2 |
3 |
4 |
|
|
|
4.125, 2.312 |
2. |
|
|
2.837, 3.564 |
3. |
|
|
4.185, 3.222 |
4. |
|
|
2.185, 3.213 |
5. |
|
|
1.117, 3,203 |
6. |
x+5cos2y |
|
2.937, 6.108 |
7. |
|
|
6.777, 3.541 |
8. |
|
|
2.638, 3.156 |
9. |
|
|
1.187, 2.106 |
10. |
|
|
6.766, 1.108 |
11. |
|
|
4.803, 2.107 |
12. |
|
|
1.185, 8.763 |
13. |
|
|
3.127, 1.299 |
14. |
|
|
2.807, 3.333 |
15. |
|
|
6.143, 3,701 |
16. |
|
|
1.125, 2.183 |
17. |
|
|
6.443, 3.128 |
18. |
|
|
1.783, 7.448 |
19 |
|
|
4.567, 2.111 |
20. |
|
|
8.158, 4.105 |
21. |
|
|
1.117, 3,203 |
22. |
x+5cos2y |
|
2.937, 6.108 |
23. |
|
|
6.777, 3.541 |
24. |
|
|
2.638, 3.156 |
25. |
|
|
1.187, 2.106 |
26. |
|
|
6.766, 1.108 |
27. |
|
|
4.803, 2.107 |
1.
Пример выполнения варианта Задания № 3
Задание № 3
Программирование линейного вычислительного процесса
Постановка задачи
Составить блок-схему и программу вычисления выражения N=P+M, где
Исходные данные: X = 4.182, Y = 2.188.
Блок-схема
Диалоговое окно
Программный код
Private Sub cmdВычислить_Click()
Dim X As Single, Y As Single, N As Single, P As Single, M As Single
X = Val(txtX)
Y = Val(txtY)
P = (3*X-Y)/ (5 * X + Exp(-Y))
M = 2*SIN(X)+(X+2*Y)^2 / Sqr(X ^ 2 + Y ^ 2)
N = P+M
lblN = FormatNumber(N)
lblP = FormatNumber(P)
lblM = FormatNumber(M)
End Sub
Private Sub сmdEnd_Click()
End
End Sub
Результаты:
N=14.285; P=0.493; M=13.792.
Приложения:
Математические функции VBA
Функции (аргументы) |
Возвращает/действия |
Abs(N) |
Возвращает абсолютное значение N. |
Atn(N) |
Возвращает арктангенс N как угол в радианах. |
Cos(N) |
Косинус угла N, где N – это угол, измеренный в радианах. |
Exp(N) |
Возвращает константу e, возведенную в степень N. (e – это основание натуральных логарифмов и она (приблизительно) равна 2.718282). |
Fix(N) |
Возвращает целую часть N. Fix не округляет число, а отбрасывает любую дробную часть. Если N является отрицательным, Fix возвращает ближайшее отрицательное целое большее, чем или равное N. |
Int(N) |
Возвращает целую часть N. Int не округляет число, а отбрасывает любую дробную часть. Если N является отрицательным, Int возвращает ближайшее отрицательное целое меньшее или равное, чем N. |
Log(N) |
Возвращает натуральный логарифм N. |
Log(N)/Log(10) |
Возвращает десятичный логарифм N. |
Rnd(N) |
Возвращает случайное число; аргумент является необязательным. Используйте функцию Rnd только после инициализации VBA-генератора случайных чисел оператором Randomize. |
Sgn(N) |
Возвращает знак числа: -1, если N – отрицательное; 1, если N – положительное; 0, если N равно 0. |
Sin(N) |
Возвращает синус угла; N – это угол, измеренный в радианах. |
Sqr(N) |
Возвращает корень квадратный из N. VBA отображает ошибку времени исполнения, если N – отрицательное. |
Tan(N) |
Возвращает тангенс угла; N – угол в радианах. |
Примечание. Таблица с математическими функциями VBA приведена для использования при выполнении 3-го задания.