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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


07:15.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.