Question

Составить программу на MS Excel Visual Basic!

Answer 1

Несколько вариантов
Sub XYZ()
X = Cells(4, 2)
Z = Cells(4, 3)
If X < 0 Or Z > 3 Then    
        Y = X * X + 3 * X * Z - Z
Else    
        If X < 0 Or Z > 3 Then        
                  Y = Z * Z + 5 * X * Z - Z * Z    
        Else        
                  Y = Tan(Abs(2 * X * Z))    
        End If  
End If
Cells(7, 3) = Y
End Sub

b0f2adb06891affe2e6f750ab79085d8.xls

714d5fea9b27a6694cb8bcbc4476a6e7.xls