Задание

@serb · Регистрация: 12.06.2010

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

Здравствуйте! Помогите выполнить задание!
Создайте процедуру с вашим именем. Эта процедура должна выполнять следующие задачи:
1. Отобразить три окна ввода. Первое окно предназначено для ввода имени пользователя. Во втором окне надо ввести название города, где живет пользователь, а в третьем – возраст пользователя.
2. Отобразить введенную в трех окнах информацию в одном окне.

@Sasha_Smirnov · 12.06.2010, 15:29

Такие программы нужны везде, но сложность их кода — в дуракоустойчивости (англ. fool-proof).

Если вы допускаете имя енееое, возраст 4e-15 и город geag, то минут 20 я на вас потрачу.

Добавлено через 19 минут

Visual Basic

Sub Имя_ТриВОдном()
Dim Имя, Город, Возраст, ТриВОдном
 
Do: Имя = InputBox("Имя?"): Loop Until Asc(Trim(Имя)) > 64 ' проверка, что код 1-го символа > 64
Do: Город = InputBox("Город?"): Loop Until Asc(Trim(Город)) > 64
Do: Возраст = Fix(Val(InputBox("Возраст?"))): Loop Until IsNumeric(Возраст) ' проверка, что возраст - число
    
ТриВОдном = InputBox("Поздравляем, вы сделали это!", "Имя, город и возраст", Имя & " " & Город & " " & Возраст)
End Sub

Дальнейшее развитие кода я вижу в усложнении проверок. Например — что возраст > 0; имя и город с заглавных букв и т. п. Хорошо бы сделать выбор щелчком из списка... но это совсем уж продвинутый уровень!

@Sasha_Smirnov · 13.06.2010, 10:16

Результат труда.

@serb 4 / 4 / 0 Регистрация: 12.06.2010 Сообщений: 18
		1
	Задание 12.06.2010, 14:59. Показов 906. Ответов 2 Метки нет (Все метки) Здравствуйте! Помогите выполнить задание! Создайте процедуру с вашим именем. Эта процедура должна выполнять следующие задачи: 1. Отобразить три окна ввода. Первое окно предназначено для ввода имени пользователя. Во втором окне надо ввести название города, где живет пользователь, а в третьем – возраст пользователя. 2. Отобразить введенную в трех окнах информацию в одном окне. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	13.06.2010, 10:16	3
	Результат труда. Миниатюры 1