Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Basic > Форум VBA
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 26.02.2011, 02:16   #1
сашк
Форумчанин
 
Регистрация: 08.11.2009
Сообщений: 111
Репутация: 0 (0)
ввод и вывод в VBA / VBA

1. Организуйте ввод с клавиатуры двух чисел. Окна ввода должны иметь различные заголовки, появляться в разных частях экрана, содержать разные сообщения и неравные значения в поле ввода по умолчанию. Ввод осуществить с помощью InputBox

Требуется найти сумму, произведение, частное и остаток от деления первого числа на второе. Результаты операций вывести на экран. Все окна сообщений должны иметь различное количество кнопок и разные значки. Вывод с помощью MsgBox

2. Напишите программу, осуществляющую простейший диалог с пользователем. Вначале появляется окно ввода, значением по умолчанию в котором является строка, содержащая ваше имя. После обработки полученных данных, на экране должно появиться окно сообщения с текстом приветствия, содержащего обращение по имени, введенному ранее.
Старый 26.02.2011, 10:54   #2
romcka-x
Форумчанин
 
Аватар для romcka-x
 
Регистрация: 18.01.2011
Сообщений: 209
Репутация: 123 (91)
Лучшие ответы: 5
ввод и вывод в VBA

1)
Код Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub числа()
a = InputBox("Введите число а", "Ввод первого", , 8000, 8000)
b = InputBox("Введите b", "Ввод второго", , 200, 200)
a = CDbl(a)
b = CDbl(b)
MsgBox "Summa = " & a + b, 1 + 16, "Ответ"
MsgBox "Proizvedenie = " & a * b, 3 + 32, "Ответ"
MsgBox "Chastnoe = " & a / b, 4 + 48, "Ответ"
MsgBox "Ostatok = " & a Mod b, 5 + 64, "Ответ"
End Sub
2)
Код Visual Basic
1
2
3
4
Sub Имя()
i = InputBox("Введите имя", "Ввод")
MsgBox "Здравствуйте " & i, 64, "Приветствие"
End Sub
Другие темы раздела Форум программистов VBA. Программирование на Visual Basic for Applications. Помощь в решении задач.
Вместо Open Get VBA
В данном конкретном случае, для считывания глобальных переменных с другого документа можно Open заменить на Get??, мне уже поясняли, что это одно и тоже, но всё же хочу попробовать Dim oDocument As Word.Document Set oDocument = Documents.Open(Application.StartupPath & "\ЦЭ.dot", , True) Act =...
excel visual basic автозапуск макроса VBA
Подскажите как автоматически запускать макрос в visual basic для excel. Мне необходимо обновлять реальное время в ячейки excel и производить автоматический расчет в зависимости от этого времени через каждую сек. ну и соответственно отображать данные в excel. Т.е. каждую секунду запускать...
Старый 26.02.2011, 10:55  [ТС]   #3
сашк
Форумчанин
 
Регистрация: 08.11.2009
Сообщений: 111
Репутация: 0 (0)
ввод и вывод в VBA / VBA

Шикарно!!! Спасибо Чувак!)
Старый 26.02.2011, 10:55
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
VBA Найти сумму элементов строки матрицы, в которой расположен элемент с наименьшим значением
В данной действительной квадратной матрице порядка n найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный. Ребят помогите пжл:)
Poker_Face
Free Pascal Графика. Модули. Ввод, вывод матрицы, вывод элементов из центра по спирали...
Модуль включает подпрограммы обработки матриц: ввод матрицы, вывод матрицы в графическом режиме, вывод элементов матрицы из центра по спирали по часовой и против часовой стрелке. Модуль включает подпрограммы обработки матриц: ввод матрицы, вывод матрицы в графическом режиме, вывод элементов матрицы...
Gleb15
PHP и базы данных Запрос в гугл, вывод первых строк, ввод и вывод инфы В БД
Доброго всем дня, уважаемые форумчане. Имею задачу по введеной строке отыскать информацию в гугл и вывести первые десять ссылок. Затем данные о запросе(запрос, время и количество результатов гугл) занести в БД mysql, затем вывести из БД на страничку, которая содержит таблицу с этой информацией. ...
WebIncrease
VBA ввод\вывод vba
подскажите пжлста, Vba только начали проходить а уже грузят по полной.... 1.удалить из строки первое слово 2.Определить сколько месяцев осталось до нового года
akva
С++ для начинающих Запись выражений, ввод–вывод информацииЗапись выражений, ввод–вывод информации
Задача 2.1. Пользуясь только операцией умножения, вычислить (A в 7-ой степени) за четыре операции. Задача 2.2. Очистить экран, заполнить его бирюзовым цветом. Ввести значения x, y. Ещё раз очистить экран и вывести в центре экрана в столбик следующие вычисленные значения: ln(2x) ; ln(2y) ;...
chro
Опции темы

Текущее время: 18:43. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.