2015-04-08
402
1. Записать макрос «Таблица», назначить макросу сочетание клавиш CTRL+Т. Изменить размер шрифта (18 пт), начертание – курсив.
| Расписание занятий группы на 1 семестр |
2. Создать макросы по расчету значений функций с точностью 2 знака:
2.1. 
x = 12.347, y = 10.678
2.2. 
x = 6.121, y = 15.773
2.3. 
x = 15.664, y = 29.786, t = 32.124
4.3. Условный переход (If … Then…)
Пример: рассчитать значение А и n при x = 2.3, y=45.8, z=55.5 и условиях:
| Код макроса |
| Option Explicit |
| Public Sub Execute() |
| Dim a As Single, x As Single, y As Single |
| Dim z As Single, n As Single |
| x = 2.3 |
| y = 45.8 |
| z = 55.5 |
| a = Sqr(Abs(x + y ^ 2 + z)) |
| If a > 2 Then |
| n = x ^ 2 - y ^ 3 + 2 * x * y |
| End If |
| If a = 2 Then |
| n = y ^ 3 - x ^ 2 |
| End If |
| If a < 2 Then |
| n = 1 - (y - z) / (y + z) |
| End If |
| Debug.Print "x ="; x; "y ="; y; "z ="; z |
| Debug.Print "a ="; a |
| Debug.Print "n ="; n |
| End Sub |
