Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 26.11.2017, 13:31   #1
Виктория67850
Новичок
Джуниор
 
Регистрация: 26.11.2017
Сообщений: 1
По умолчанию Найдите пожалуйста, ошибку в коде калькулятора

Dim a As Double
Dim b As String
Dim mem As Double
Private Sub CommandButton1_Click()
TextBox1.Text = TextBox1.Text & "7"

End Sub


Private Sub CommandButton10_Click()
TextBox1.Text = TextBox1.Text & "0"

End Sub


Private Sub CommandButton12_Click()
a = Val(TextBox1.Text)
TextBox1.Text = " "
b = "+"
End Sub

Private Sub CommandButton13_Click()
If b = "" Then
a = Val(TextBox1.Text)
ElseIf b = " + " Then
a = a + Val(TextBox1.Text)
ElseIf b = " - " Then
a = a - Val(TextBox1.Text)
ElseIf b = " * " Then
a = a * Val(TextBox1.Text)
ElseIf b = " / " Then
a = a / Val(TextBox1.Text)
End If
TextBox1.Text = " "
b = " - "


End Sub

Private Sub CommandButton14_Click()
If b = " + " Then
TextBox1.Text = TextBox1.Text + Val(a)
ElseIf b = " - " Then
TextBox1.Text = Val(a) - TextBox1.Text
ElseIf b = " * " Then
TextBox1.Text = Val(a) * TextBox1.Text
ElseIf b = " / " Then
TextBox1.Text = Val(a) / TextBox1.Text
End If
a = " "
b = " "


End Sub

Private Sub CommandButton15_Click()
TextBox1.Text = " "
End Sub

Private Sub CommandButton16_Click()
mem = mem + Val(TextBox1.Text)
End Sub

Private Sub CommandButton17_Click()
mem = mem - Val(TextBox1.Text)
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = TextBox1.Text & "8"

End Sub

Private Sub CommandButton3_Click()
TextBox1.Text = TextBox1.Text & "9"

End Sub

Private Sub CommandButton4_Click()
TextBox1.Text = TextBox1.Text & "4"
End Sub

Private Sub CommandButton5_Click()
TextBox1.Text = TextBox1.Text & "5"
End Sub

Private Sub CommandButton6_Click()
TextBox1.Text = TextBox1.Text & "6"

End Sub

Private Sub CommandButton7_Click()
TextBox1.Text = TextBox1.Text & "1"

End Sub

Private Sub CommandButton8_Click()
TextBox1.Text = TextBox1.Text & "2"

End Sub

Private Sub CommandButton9_Click()
TextBox1.Text = TextBox1.Text & "3"

End Sub
Виктория67850 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++: найдите ошибку в коде inka19 Помощь студентам 5 19.03.2017 18:52
Помогите найти ошибку в коде калькулятора Кари C# (си шарп) 6 15.05.2016 09:27
Найдите ошибку в коде saturn377 JavaScript, Ajax 13 09.03.2016 10:10
найдите ошибку в коде TopoRRR Помощь студентам 6 15.12.2009 10:30
найдите ошибку в коде pony Помощь студентам 1 14.09.2009 09:03


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS