Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB] Знак арифметической операции

Автор: Hates 12.10.2008, 11:39

Разработать проект, который по знаку арифметической операции выводит ее название, при помощи алгоритма Select Case smile

.
Помогите разработать проект smile

Автор: Данкинг 12.10.2008, 11:57

Код


...
a="+"
...
Select Case a
Case "+"
MsgBox "Сложение", vbInformation, "Операция"
Case "-"
MsgBox "Вычитание", vbInformation, "Операция"
Case "*"
MsgBox "Умножение", vbInformation, "Операция"
Case ":"
MsgBox "Деление", vbInformation, "Операция"
End Select

Автор: Hates 12.10.2008, 12:23

Что не хочет, выдаёт всё время сложение, а что нужно вписывать в многоточие? smile

Автор: Данкинг 12.10.2008, 12:39

А ты с программированием вообще знаком? smile

Автор: Hates 12.10.2008, 13:32

Я в этом деле начинающий, можно сказать лузер, так что уж строго не судить. Все мы когда то учимся. По этому прошу пояснить, как же всё таки сделать так чтобы проект заработал smile

Автор: I_Am_Rock 12.10.2008, 16:12

Цитата(Hates @ 12.10.2008, 13:32

)

По этому прошу пояснить, как же всё таки сделать так чтобы проект заработал

Добавь на форму CommandButton и TextBox. smile

Код


Private Sub Command1_Click()
a = Text1.Text
Select Case a
Case "+"
MsgBox "Сложение", vbInformation, "Операция"
Case "-"
MsgBox "Вычитание", vbInformation, "Операция"
Case "*"
MsgBox "Умножение", vbInformation, "Операция"
Case ":"
MsgBox "Деление", vbInformation, "Операция"
End Select
End Sub

Автор: kapbepucm 13.10.2008, 13:12

или вообще просто:

Код

Sub test()
  Select Case InputBox("Введите операцию", , "+")
  Case "+": MsgBox "Сложение"
  Case "-": MsgBox "Вычитание"
  Case "*": MsgBox "Умножение"
  Case "/": MsgBox "Деление"
  Case Else: MsgBox "Не удалось определить оперaцию!"
  End Select
End Sub

Автор: Hates 13.10.2008, 14:45

Спасибо за помощь,\ smile