Программа для вычисления функции - VB

Формулировка задачи:

Здравствуйте нужна помощь в написании программы на Visual Basic 2010.Начал писать,но похоже что-то делаю не так

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim A As Integer
If 0 < x < 20 Then
x = Text1.Text
y = Text2.Text
A = Cos(x) ^ 2 / 1 - Sin(x) ^ 2
Text3.Text = A
End If
End Sub

А может вообще весь код не то,что надо.Помогите понять

Решение задачи: «Программа для вычисления функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Private Sub Command1_Click()
Dim x As Integer
Dim y As Double
x = Val(Text1.Text)
If 0 < x And x < 20 Then
y = Round(Cos(x * 3.1416 / 180) ^ 2, 2)
Else
y = Round(1 - Sin(x * 3.1416 / 180) ^ 2, 2)
End If
Text2.Text = y
End Sub

Оцени полезность:

12 голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы