ПОНЯТНО О Visual Basic NET

Диалог с компьютером


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

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

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

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

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

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

Очевидно, что человек в процессе беседы имеет право вводить с клавиатуры какие угодно имена и какой угодно возраст.

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

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

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Dim imya As String

        Dim vozrast As Integer

        imya = InputBox("Здравствуй, я компьютер, а тебя как зовут?")



        vozrast = InputBox("Очень приятно,  " & imya & ".  Сколько тебе лет?")

        MsgBox ("Ого! Целых  " &

vozrast & "  лет! Ты уже совсем взрослый!")

    End Sub

Обратите внимание на запятые, точки и некоторые пробелы внутри кавычек. Если бы их не было, слова бы сливались вот так:

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

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

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

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

ЧЕЛОВЕК :                             Фантомас!

КОМПЬЮТЕР:                        Очень приятно, Фантомас! . Сколько тебе лет?

ЧЕЛОВЕК:                              100



КОМПЬЮТЕР:                        Ого! Целых 100 лет! Ты уже совсем взрослый!

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

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

ЧЕЛОВЕК:                              Сгинь с моих глаз!

КОМПЬЮТЕР:                        Очень приятно, Сгинь с моих глаз!. Сколько тебе лет?

ЧЕЛОВЕК:                              -2

КОМПЬЮТЕР:                        Ого! Целых -2 лет! Ты уже совсем взрослый!

Задание 15.         

Напишите программу для следующей задачи: Компьютер запрашивает названия двух планет, радиусы их орбит (в миллионах километров) и скорости движения по орбите (в миллионах километров в сутки). После этого он вычисляет продолжительность года на планетах и выдает результат в таком виде:

Продолжительность года на планете Земля – 365 суток, а на планете Эоэлла – 12 суток.

Результат нужен в трех вариантах: вывод в текстовое поле, метку и MsgBox.

Указание для тех, кто не знает физики и геометрии: Год равен времени одного оборота по орбите, а оно равно длине орбиты, деленной на скорость движения по орбите. Длина орбиты равна 2?R, где R – радиус орбиты.


Содержание раздела