Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
outerVoid
1 / 1 / 0
Регистрация: 14.12.2018
Сообщений: 3
1

По нажатию на кнопку вычислите сумму, разность и произведение чисел, введенных в текстовые поля

14.12.2018, 13:29. Просмотров 1586. Ответов 4
Метки vba (Все метки)

Такое вот задание:
Создайте форму, разместите на ней 2 текстовых поля, кнопку и метку. По нажатию на кнопку вычислите сумму, разность и произведение чисел, введенных в текстовые поля. результат выведите в метку.
Оно уже сделано...
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub count_Click()
Dim Value1 As Long
Dim Value2 As Long
Dim Result1 As Long
Dim Result2 As Long
Dim Result3 As Long
Dim A As String
Dim B As String
Dim C As String
Value1 = TextBox1.Value
Value2 = TextBox2.Value
Result1 = Value1 + Value2
Result2 = Value1 - Value2
Result3 = Value1 * Value2
A = "1.Сумма = "
B = "2.Разность = "
C = "3.Произведение = "
Label1.Caption = A & Result1 & vbNewLine & B & Result2 & vbNewLine & C & Result3 & vbNewLine
End Sub
--
Только вот, вводимые данные должны проверяться на корректность.
В случае некорректных данных выводится диалоговое окно
с сообщением для пользователя.
p.s. хотя-бы просто об ошибке...
Как это сделать?Как дописать код?(Небольшая идея снизу )
Visual Basic
1
2
3
Private Sub TextBox1_LostFocus()
 
End Sub
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2018, 13:29
Ответы с готовыми решениями:

По нажатию на кнопку вычисляется произведение двух введенных в текстовые поля чисел
Разработать Windows Forms приложение, содержащее два текстовых поля ввода и кнопку. По нажатию на...

По нажатию на кнопку вычисляется сумма двух введенных в текстовые поля чисел, результат умножается на 10
Разработать Windows Forms приложение, содержащее два текстовых поля ввода и кнопку. По нажатию на...

Цикл: Вычислите сумма кубов семи произвольно введенных чисел и произведение этих чисел
1.вычислить сумму кубов всех целых чисел от а до 50 (значение А вводится с клавиатуры 0 <= А <=50)...

Даются два целых числа х и у. Вычислите их сумму, разность, произведение и частное
Даются два целых числа х и у. Вычислите их сумму, разность, произведение и частное

Написать программу, выводящую сумму и разность двух введенных чисел
Написать программу, выводящую сумму и разность двух введенных чисел. Основная программа запрашивает...

4
Святой НякаЛайк
618 / 216 / 80
Регистрация: 28.10.2015
Сообщений: 470
14.12.2018, 17:48 2
Лучший ответ Сообщение было отмечено outerVoid как решение

Решение

Используйте Isnumeric
Visual Basic
1
2
if not isnumeric(TextBox1.Value) then msgbox ("Введите число в первое поле!")
' И так для каждого текстового поля
1
outerVoid
1 / 1 / 0
Регистрация: 14.12.2018
Сообщений: 3
14.12.2018, 19:36  [ТС] 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub count_Click()
Dim Value1 As Long
Dim Value2 As Long
Dim Result1 As Long
Dim Result2 As Long
Dim Result3 As Long
Dim A As String
Dim B As String
Dim C As String
If Not IsNumeric(TextBox1.Value) Then MsgBox ("Ошибка, введите число в первое поле") Else
If Not IsNumeric(TextBox2.Value) Then MsgBox ("Ошибка, введите число во второе поле") Else
Value1 = TextBox1.Value
Value2 = TextBox2.Value
Result1 = Value1 + Value2
Result2 = Value1 - Value2
Result3 = Value1 * Value2
A = "1.Сумма = "
B = "2.Разность = "
C = "3.Произведение = "
Label1.Caption = A & Result1 & vbNewLine & B & Result2 & vbNewLine & C & Result3 & vbNewLine
End Sub
а могу ли я как-нибудь закончить выполнение программы после msgbox'а, а то иначе он продолжает выполнять код по порядку.
0
Pro_grammer
Модератор
6181 / 2265 / 443
Регистрация: 24.04.2011
Сообщений: 4,013
Записей в блоге: 10
14.12.2018, 20:01 4
Лучший ответ Сообщение было отмечено outerVoid как решение

Решение

Цитата Сообщение от outerVoid Посмотреть сообщение
закончить выполнение программы после msgbox'а
Exit Sub
1
outerVoid
1 / 1 / 0
Регистрация: 14.12.2018
Сообщений: 3
14.12.2018, 20:11  [ТС] 5
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub count_Click()
Dim Value1 As Long
Dim Value2 As Long
Dim Result1 As Long
Dim Result2 As Long
Dim Result3 As Long
Dim A As String
Dim B As String
Dim C As String
If Not IsNumeric(TextBox1.Value) Then
MsgBox "Ошибка, введите число в первое поле"
Exit Sub
End If
If Not IsNumeric(TextBox2.Value) Then
MsgBox "Ошибка, введите число во второе поле"
Exit Sub
End If
Value1 = TextBox1.Value
Value2 = TextBox2.Value
Result1 = Value1 + Value2
Result2 = Value1 - Value2
Result3 = Value1 * Value2
A = "1.Сумма = "
B = "2.Разность = "
C = "3.Произведение = "
Label1.Caption = A & Result1 & vbNewLine & B & Result2 & vbNewLine & C & Result3 & vbNewLine
End Sub
Сам уже разобрался, но все равно спасибо всем :*
1
14.12.2018, 20:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2018, 20:11

Найти сумму и разность двух чисел, введенных пользователем (emu8086)
Честно говоря, я даже не знаю, что с этим делать. Вообще, у меня задание довольно простое, написать...

Вычислите сумму S и произведение P всех целых чисел от N1 до N2
Пример: n1=3, n2=7, получим S=25, P=2520

Определить сумму и произведение введенных чисел
На насу сессия+ваенка и я горю братцы выручайте в C++ я вообще не шарю. Лаб1)Напишите программу,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru