0 / 0 / 0
Регистрация: 18.01.2015
Сообщений: 49
1

Составить программу для решения задачи, используя оператор выбора Select-Case

07.03.2015, 14:27. Показов 3050. Ответов 3
Метки нет (Все метки)

Составить программу для решения задачи, используя оператор выбора Select-Case.
Составить программу, которая по знаку арифметической операции выведет на экран её название и результат вычисления в виде равенства. (Пример 1: введены числа 2 и 3, знак +, выводится на экран «сложение, 2+3=5», пример 2: введены числа 2 и 0, знак /, выводится на экран «деление, на ноль делить нельзя!»)
Я вот написал код программы проверьте пожалуйста на ошибки

VB.NET
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim n As Integer
 
        If Trim(TextBox4.Text) = "" Then
            TextBox5.Clear()
            MessageBox.Show("Ничего не введено!", _
                      "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Try
                n = CInt(Trim(TextBox4.Text))
                If n >= 1 And n <= 12 Then
                    Select Case n
                        Case 1
                            TextBox5.Text = "2+3=5"
                        Case 2
                            TextBox5.Text = "2/0"
                        Case 3
                            TextBox5.Text = "1+1=2"
                        Case 4
                            TextBox5.Text = "2+2=4"
                        Case 5
                            TextBox5.Text = "5+5=10"
                        Case 6
                            TextBox5.Text = "7+7=14"
                        Case 7
                            TextBox5.Text = "8+8=16"
                        Case 8
                            TextBox5.Text = "9+9=18"
                        Case 9
                            TextBox5.Text = "10+10=20"
                        Case 10
                            TextBox5.Text = "20+20=40"
                        Case 11
                            TextBox5.Text = "30+30=60"
                        Case 12
                            TextBox5.Text = "40+40=80"
 
                    End Select
                Else
                    TextBox5.Clear()
                    MessageBox.Show("Деление, на ноль делить нельзя!", _
                                    "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Catch ex As Exception
                TextBox5.Clear()
                MessageBox.Show("Следут вводить целое число!", _
                  "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                TextBox4.Clear()
            End Try
 
        End If
    End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.03.2015, 14:27
Ответы с готовыми решениями:

Составить программу решения задачи, используя оператор выбора
Вводится целое число от 2 до 5. Если введено &quot;2&quot;, то вывести &quot;неудовлетворительно&quot;. Если введено...

Составить программу для вычисления функции, используя оператор выбора case
Введите три целых положительных числа a, b, c. Определите остаток k от деления на 5 величины M,...

Составьте программу для решения поставленной задачи, используя оператор switch - case. (на языке Си)
Составить программу, которая читает натуральное число N в десятичном представлении (N &lt; 10000), а...

С++- Составить программу используя оператор выбора case
Составить программу (используя оператор выбора case), которая по заданному номеру и значению...

3
chumich
07.03.2015, 21:29
  #2

Не по теме:

Цитата Сообщение от evgeniy_putilin Посмотреть сообщение
проверьте пожалуйста на ошибки
По-моему, лучшая проверка программы на ошибки - ее запуск... :)

0
es geht mir gut
11264 / 4745 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
07.03.2015, 22:18 3
Лучший ответ Сообщение было отмечено evgeniy_putilin как решение

Решение

У Вас написано что-то не то

Попробуйте так:
VB.NET
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
28
29
30
31
32
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim s As String = ""
        TextBox5.Clear()
        If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then
            MessageBox.Show("Заполните все поля!", _
                      "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Try
                Select Case TextBox2.Text
                    Case "+" : TextBox5.Text = "Сложение"
                        s = Val(TextBox1.Text) + Val(TextBox3.Text)
                    Case "/" : TextBox5.Text = "Деление"
                        If Val(TextBox3) = 0 Then
                            MessageBox.Show("На ноль делить нельзя!", "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            s = Val(TextBox1.Text) / Val(TextBox3.Text)
                        End If
                    Case "-" : TextBox5.Text = "Вычитание"
                        s = Val(TextBox1.Text) - Val(TextBox3.Text)
                    Case "*" : TextBox5.Text = "Умножение"
                        s = Val(TextBox1.Text) * Val(TextBox3.Text)
                    Case Else
                        MsgBox("Неизвестная операция!") : Exit Sub
                End Select
                TextBox4.Text = TextBox1.Text & TextBox2.Text & TextBox3.Text & " = " & s
            Catch ex As Exception
                MessageBox.Show("Следут вводить целое число!", _
                  "КОНТРОЛЬ ВВОДИМЫХ ДАННЫХ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
 
        End If
    End Sub
Миниатюры
Составить программу для решения задачи, используя оператор выбора Select-Case  
1
es geht mir gut
11264 / 4745 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
07.03.2015, 22:32 4
Поправка, 13-я строка
VB.NET
1
If Val(TextBox3.Text) = 0 Then
Забыл дописать .Text
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2015, 22:32
Помогаю со студенческими работами здесь

Применяя оператор выбора Case составить программу для вычисления
Применяя оператор варианта составить программу для вычисления. Оператор выбора CASE. ...

Составьте программу для решения поставленной задачи, используя оператор цикла for, while, do{}while

Составьте программу для решения поставленной задачи, используя оператор цикла и операторы ветвления
помогите пожалуйста((((

Составить программу для решения поставленной задачи, использую оператор цикла
Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru