Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VB] Знак арифметической операции, С помощью Select Case 
V
    Опции темы
Hates
  Дата 12.10.2008, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
Разработать проект, который по знаку арифметической операции выводит ее название, при помощи алгоритма Select Case smile .
Помогите разработать проект smile 
PM MAIL   Вверх
Данкинг
Дата 12.10.2008, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Код

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

 smile 

Это сообщение отредактировал(а) Данкинг - 12.10.2008, 11:58


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Hates
Дата 12.10.2008, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
Что не хочет, выдаёт всё время сложение, а что нужно вписывать в многоточие? smile 
PM MAIL   Вверх
Данкинг
Дата 12.10.2008, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
А ты с программированием вообще знаком? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Hates
Дата 12.10.2008, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
Я в этом деле начинающий, можно сказать лузер, так что уж строго не судить. Все мы когда то учимся. По этому прошу пояснить, как же всё таки сделать так чтобы проект заработал smile 
PM MAIL   Вверх
I_Am_Rock
Дата 12.10.2008, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

Репутация: 2
Всего: 15
Цитата(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
PM MAIL WWW   Вверх
kapbepucm
Дата 13.10.2008, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

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


Это сообщение отредактировал(а) kapbepucm - 13.10.2008, 13:12


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Hates
Дата 13.10.2008, 14:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 13.9.2008

Репутация: нет
Всего: нет
Спасибо за помощь,\ smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0435 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.