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

Узнай цену своей работы

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

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

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

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
Похожие ответы