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