Порядок действия

1. Измените код следующим образом:

строку

MsgBox("Здравствуйте " + YourName + "! Вы согласны пройти тестирование?", vbYesNo + vbQuestion," Тестирование!!!")

замените строками:

k = MsgBox("Здр " + YourName + " Вы будете тестироваться ", _

vbYesNo + vbQuestion, "Тестирование")

If k = 6 Then

Print "Нажата кнопка ‘Да’"

Else

Print "Нажата кнопка ‘Нет’"

End If

End Sub

объявите переменную k:

Dim k As String

Вместо вызова окна MsgBox здесь используется функция MsgBox. Возвращаемое значение функции присваивается переменной k и затем анализируется с помощью условного оператора If … Then...Else. Предварительно переменная k должна быть описана как символьная или числовая.

9. Сохраните проект и форму в папке ЛАБ5 с именами Лр5_Зад1_P _Фамилия и Лр5_Зад1_F _Фамилия соответственно.

ЛАБОРАТОРНА РОБОТА №6. ПРОЕКТУВАННЯ ДОДАТКІВ VB6, ЩО МІСТЯТЬ ЛІНІЙНІ АЛГОРИТМІЧНІ СТРУКТУРИ

ЗАВДАННЯ 6.1

СТВОРІТЬ ПРОЕКТ, В ЯКОМУ РОЗРАХУЙТЕ КІЛЬКІСТЬ ЛОКОМОТИВІВ, ЩО ЗНАХОДЯТЬСЯ В ЕКСПЛУАТАЦІЇ, В РЕЗЕРВІ, В РЕМОНТІ.

Вихідні дані. Загальна кількість локомотивів. У резерві – 10% від загального, в експлуатації – 60%.

Результат. Вивести кількість локомотивів, які експлуатуються, резерв і кількість локомотивів в ремонті.

Обов'язкові умови. Загальна кількість локомотивів вводиться після натискання кнопки “ Введення ” за допомогою розташованого на формі об'єкта TextBox. Розрахунки і виведення результатів повинні виконуватися при натисканні кнопки “ Розрахунок ”.

Робота з проектом закінчується при натисканні кнопки “ Вихід ”.