Решите, а то Я не понимаю эти примеры... - VB

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

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

Прошу ребята выручите, а то зачет очень нужен по ОИВТ... вот лаба

Решение задачи: «Решите, а то Я не понимаю эти примеры...»

textual
Листинг программы
Private Sub Command1_Click(Index As Integer)
x = Val(Text1.Text)
y = Log(x ^ 3 + 4 * x ^ 1 / 2 + 5)
Text2.Text = y
End Sub
 
Private Sub Command2_Click(Index As Integer)
Text1.Text = ""
Text2.Text = ""
End Sub
 
Private Sub Command3_Click()
End
End Sub
 
Private Sub Command4_Click()
a1 = Val(Text4.Text)
d = Val(Text5.Text)
n = Val(Text6.Text)
an = a1 + d * (n - 1)
Text7.Text = an
Sn = ((a1 + an) * n) / 2
Text3.Text = Sn
End Sub
 
Private Sub Command5_Click()
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.333 из 5