Обращение по имени

@Але-Дашкова · Регистрация: 20.03.2013

Студворк — интернет-сервис помощи студентам

Написать программу, которая запрашивает имя и выводит приветствие, используя данное имя.

Заранее спасибо!

@Апострофф · 20.03.2013, 12:43

Visual Basic
1
2
3
Private Sub UserForm_Initialize()
msgbox "Здравствуй, " & inputbox("Как тебя зовут?","Давайте знакомиться.","Але-Дашкова") & "!",,"Очень приятно!"
End Sub

@Але-Дашкова · 20.03.2013, 17:32 **[ТС]**

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

Dragokas · 20.03.2013, 19:15

Функция MsgBox

Visual Basic
1
MsgBox(Prompt, [Buttons], [Title], [HelpFile], [Context])

Функция MsgBox выводит на экран диалоговое окно, содержащее сообщение, устанавливая режим ожидания нажатия кнопки пользователем

Возвращаемое значение

Возвращает значение типа Integer, указывающее, какая кнопка была нажата

Ниже перечислены значения, содержащие код нажатой кнопки:

Константа	Значение	Нажатая кнопка
vbOK	1	OK
vbCancel	2	Отмена (Cancel)
vbAbort	3	Прервать (Abort)
vbRetry	4	Повторить (Retry)
vbIgnore	5	Пропустить (Ignore)
vbYes	6	Да (Yes)
vbNo	7	Нет (No)

Параметры

Функция содержит именованные аргументы

Часть	Описание
Prompt	Обязательный. Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина строки составляет приблизительно 1024 символа. Длинный текст разбивается автоматически, но можно задавать разбиение строки явно, используя символы возврата каретки и перевода строки(vbCrLf)
Buttons	Необязательный аргумент - целочисленная константа, которая является суммой VB-констант, определяющих ряд характеристик диалогового окна - число и тип кнопок, тип значка, основная кнопка, модальность окна сообщения(см.ниже). Значение по умолчанию равно 0
Title	Необязательный. Строковое выражение, отображаемое в строке заголовка диалогового окна. Максимальное число символов для заголовка около 50. Если этот параметр опущен, в строку заголовка помещается имя приложения
HelpFile	Необязательный. Строковое выражение, определяющее имя файла Справки, содержащего контекстно-зависимую Справку о данном диалоговом окне. Если этот параметр указан, то необходимо задать также и параметр Context
Context	Необязательный. Числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот параметр указан, то необходимо задать также и параметр HelpFile

Константы, используемые в аргументе Buttons для задания вида выводимых кнопок, пиктограмм

Константа	Значение	Описание
vbOKOnly	0	Отображается только кнопка "OK"
vbOKCancel	1	Отображаются кнопки "OK" и "Отмена" (Cancel)
vbAbortRetryIgnore	2	Отображаются кнопки "Прервать" (Abort), "Повторить" (Retry) и "Пропустить" (Ignore)
vbYesNoCancel	3	Отображаются кнопки "Да" (Yes), "Нет" (No) и "Отмена" (Cancel)
vbYesNo	4	Отображаются кнопки "Да" (Yes) и "Нет" (No)
vbRetryCancel	5	Отображаются кнопки "Повторить" (Retry) и "Отмена" (Cancel)
vbCritical	16	Используется значок "Критическое сообщение"
vbQuestion	32	Используется значок "Предупреждающий запрос"
vbExclamation	48	Используется значок "Предупреждение"
vbInformation	64	Используется значок "Информационное сообщение"
vbDefaultButton1	0	Основной является первая кнопка
vbDefaultButton2	256	Основной является вторая кнопка
vbDefaultButton3	512	Основной является третья кнопка
vbDefaultButton4	768	Основной является четвертая кнопка
vbApplicationModal	0	Модальное окно на уровне приложения: чтобы продолжить работу с текущим приложением, необходимо ответить на данное сообщение
vbSystemModal	4096	Модальное окно на уровне системы: все приложения будут недоступны до тех пор, пока пользователь не ответит на данное сообщение
vbMsgBoxHelpButton	16384	Добавляется кнопка Справка(Help)
VbMsgBoxSetForeground	65536	Аналогично параметру vbApplicationModal
vbMsgBoxRight	524288	Текст выравнивается по правому краю
vbMsgBoxRtlReading	1048576	Задает порядок вывода текста справа налево для арабской системы и иврит

Примечание

Если используется кнопка Отмена(Cancel), то можно вместо нее нажимать на клавишу Esc
В отличие от InputBox окно MsgBox не позиционируется на экране, а всегда располагается в центре экрана

Если аргумент пропускается, вместо него ставится запятая.
Если строка сообщения слишком длинная, необходимо* ее разбить, используя код перевода строки Chr(13)

Visual Basic
MsgBox "Эта строка" & Chr(13) & "слишком длинная"

Может использоваться как оператор и как функция, возвращающая* значение кнопки, выбранной пользователем.
Если MsgBox используется как оператор, скобки не нужны.

Пример

Visual Basic
Dim retval As Integer
retval = MsgBox("Привет, Але-Дашкова !!!" & vbCrLf & "Нужна помощь?", vbInformation + vbYesNo, "Такое вот наглое окошко")

Функция InputBox

Visual Basic
1
InputBox(Prompt[,Title] [,Default] [,XPos] [,YPos] [,HelpFile,Context])

Функция выводит на экран диалоговое(модальное) окно с кнопкой закрытия, содержащее заданное сообщение, поле ввода, кнопки OK, Cancel и опционально заголовок и/или кнопку Help, ожидая от пользователя ввода текста или щелчка кнопки. При задании не только одного первого параметра, необходимо использовать функцию InputBox в выражении. Для пропуска некоторых параметров нужно включить соответствующие разделители в виде запятых

Возвращаемое значение

Возвращает значение типа String, включающее содержимое окна текста

Параметры

Функция содержит именованные аргументы

Часть	Описание
Prompt	Обязательный. Строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина параметра Prompt составляет приблизительно 1024 символа и зависит от ширины используемых символов. Строковое значение Prompt может содержать нескольких физических строк. Для разделения строк допускается использование символа возврата каретки, символа перевода строки или комбинации этих символов
Title	Необязательный. Строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот параметр опущен, в строку заголовка помещается имя приложения. Максимальное число символов заголовка около 50
Default	Необязательный. Строковое выражение, отображаемое в окне текста как ответ, используемый по умолчанию, если пользователь не введет другую строку. Если этот параметр опущен, окно текста отображается пустым
XPos	Необязательный. Числовое выражение, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана (в твипах). Если этот параметр опущен, то диалоговое окно выравнивается по центру экрана по горизонтали
YPos	Необязательный. Числовое выражение, задающее расстояние по вертикали между верхней границей диалогового окна и верхним краем экрана (в твипах). Если этот параметр опущен, то диалоговое окно помещается по вертикали на расстоянии примерно на одну треть высоты экрана
HelpFile	Необязательный. Строковое выражение, определяющее имя файла Справки, содержащего контекстно-зависимую Справку о данном диалоговом окне. Если этот параметр указан, то необходимо задать также и параметр Context
Context	Необязательный. Числовое выражение, определяющее номер соответствующего раздела справочной системы. Если этот параметр указан, то необходимо задать также и параметр HelpFile

Примечание

Если указаны оба параметра, HelpFile и Context, то пользователь имеет возможность нажатием клавиши F1 вызвать соответствующую контекстную справку. Некоторые главные приложения, например, Microsoft Excel, также автоматически добавляют в диалоговое окно кнопку «Справка». Если пользователь щелкает кнопку OK или нажимает ENTER, функция InputBox возвращает содержимое поля ввода. Если пользователь щелкает кнопку Cancel, то функция возвращает пустую строку («»).

Замечание: Однако, если пользователь не введет в поле ввода строку, то функция тоже вернет пустую строку. В этом случае будет затруднительно определить - какую кнопку(OK или Cancel) нажал пользователь. Но самом деле Cancel возвращает vbNullString, который и воспринимается Visual Basic как пустая строка. Но можно воспользоваться недокументированной функцией StrPtr и получить указатель на строку. Например, так

Visual Basic
1
2
3
4
5
Dim strInput As String
strInput = InputBox("")
If StrPtr(strInput) = 0 Then
    MsgBox "Вы нажали Cancel!"
End If

Пример

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' Пример демонстрирует различные способы
' получения сведений от пользователя с помощью
' функции InputBox. Если аргументы x и y опущены,
' то окно диалога автоматически выравнивается по центру
' по соответствующим осям. Переменная MyValue содержит
' значение, введенное пользователем, если была нажата
' кнопка OK или клавиша ENTER. Если пользователь нажмет
' кнопку Cancel, функция возвратит пустую строку
Dim Message, Title, Default, MyValue
Message = "Введите число от 1 до 3"
Title = "Пример"   ' заголовок
Default = "1"   ' значение по умолчанию
' Выводим на экран сообщение, заголовок и значение по умолчанию
MyValue = InputBox(Message, Title, Default)
' Получение справки. Кнопка "Справка" добавляется автоматически
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)
' Размещаем верхний левый угол окна диалога в точке 100, 100
MyValue = InputBox(Message, Title, Default, 100, 100)

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

Обращение по имени

Решение

Решение

@Але-Дашкова 381 / 4 / 3 Регистрация: 20.03.2013 Сообщений: 43

	Обращение по имени 20.03.2013, 12:29. Показов 2516. Ответов 3 Метки нет (Все метки) Написать программу, которая запрашивает имя и выводит приветствие, используя данное имя. Заранее спасибо! 0

@Але-Дашкова 381 / 4 / 3 Регистрация: 20.03.2013 Сообщений: 43
	20.03.2013, 17:32 [ТС]
	Спасибо, только я не понимаю, как вызываются эти окошки - всего лишь одной строкой? И как так получается, что их не нужно рисовать заранее? 0