Программа для вычисления функции - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д