Отметьте галочкой рисунок который соответствует правилам техники безопасности​

        '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
   
Dim a As Integer
Dim b As Integer 
Dim i As Integer   

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String     
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf   
 Next   

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""     

For i = 1 To 1204 
          If 1204 Mod i = 0 Then     
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If   
Next 
  MsgBox(msg)

5.

Если значения φ в диапазоне A2:A45, то формула

для x: =(9*COS(A2)*SIN(A2))/(COS(A2)^3+SIN(A2)^3)*COS(A2)

для y: =(9*COS(A2)*SIN(A2))/(COS(A2)^3+SIN(A2)^3)*SIN(A2)

6.

Если значения x и y в диапазоне A2:A22 и B1:V1, то формула

для z: =-SIN($A2^2+B$1^2)+1

Объяснение:

5.

Для ввода значений φ используем заполнение.

Вбиваем формулы и копируем их.

Выделяем диапазон B2:C45 и строим точечную диаграмму .

6.

Для ввода значений x и y используем заполнение.

Вбиваем формулу и копируем её.

Выделяем диапазон B2:V22 и строим диаграмму поверхность.