Лекция: Диалог с компьютером

Напишем программу, которая осуществляла бы такой диалог человека с компьютером:

КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН:Здравствуй, я компьютер, а тебя как зовут?

ЧЕЛОВЕК ВВОДИТ С КЛАВИАТУРЫ: Коля

КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН:Очень приятно, Коля. Сколько тебе лет?

ЧЕЛОВЕК ВВОДИТ С КЛАВИАТУРЫ: 16

КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН:Ого! Целых 16 лет! Ты уже совсем взрослый!

Пусть человек вводит свои реплики при помощи InputBox, а компьютер печатает свои с помощью Print. Для хранения в памяти имени человека выдумаем переменную imya, а для возраста — vozrast.

Вот программа:

Dim imya As String

Dim vozrast As Integer

Private Sub Command1_Click()

Print «Здравствуй, я компьютер, а тебя как зовут?»

imya = InputBox(«Жду ответа»)

Print «Очень приятно, »; imya; ". Сколько тебе лет?"

vozrast = InputBox(«Жду ответа»)

Print «Ого! Целых»; vozrast; «лет! Ты уже совсем взрослый!»

End Sub

Вам понятно, зачем в операторе Print «Очень приятно, »; imya; ". Сколько тебе лет?" внутри кавычек нужны запятая и точка? Если нет, то попробуйте их убрать и посмотрите на результат.

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

КОМПЬЮТЕР: Здравствуй, я компьютер, а тебя как зовут?
ЧЕЛОВЕК: Фантомас!
КОМПЬЮТЕР:Очень приятно, Фантомас!. Сколько тебе лет?
ЧЕЛОВЕК: 100
КОМПЬЮТЕР:Ого! Целых 100 лет! Ты уже совсем взрослый!

Не подумайте, что эта программа очень умная. Она совершенно не анализирует, какую информацию человек ввел с клавиатуры. Поэтому с ней возможен и такой диалог:

КОМПЬЮТЕР: Здравствуй, я компьютер, а тебя как зовут?
ЧЕЛОВЕК: Сгинь с моих глаз!
КОМПЬЮТЕР:Очень приятно, Сгинь с моих глаз!.. Сколько тебе лет?
ЧЕЛОВЕК: -2
КОМПЬЮТЕР:Ого! Целых -2 лет! Ты уже совсем взрослый!