m1: vvod = InputBox("введення числа від 1 до 999", "Кількість цифр", "1", 2000, 2000)
If vvod = "" Or Val(vvod) < 1 Or Val(vvod) > 999 _
Then MsgBox "Помилка введення", 16, "Помилка": GoTo m1
x = Val(vvod)
' If x < 10 Then
' y = 1
' e = "однієї"
' ElseIf x < 100 Then
' y = 2
' e = "двох"
' Else
' y = 3
' e = "трьох"
' End If
If y = 1 Then w = "цифри" Else w = "цифр"
MsgBox "Ваше число " + vvod + Chr(13) + " складається з " + e + " " + w, 0 + 64, "Результат"
End Sub
3. Подберите контрольные примеры и проверьте правильность работы приложения. В данном случае необходимо проверить работу приложения при вводе одно-, двух- и трехзначных чисел.
Рекомендация. Если программа содержит конструкцию "ветвление", то для того, чтобы проверить правильность ее работы, нужно подобрать несколько контрольных примеров и проверить, верно ли работают все "ветви ".
4. Замените фрагмент кода, содержащий блочный If, на фрагмент кода, содержащий Select Case и реализующий тот же алгоритм.
Select Case x
Case 1 To 9
y = 1
e = "однієї
Case 10 To 99
|
|
y = 2
e = двох"
Case Else
y = 3
e = трьох"
End Select
5. Сохраните проект впапке ЛАБ7 с именем Лр7_Зад2
Дополнить программный код строками, позволяющими проверить исходные данные на корректность. Если число не введено или не входит в указанный диапазон, то программа должна выдавать сообщение об ошибке.
ЛАБОРАТОРНА РОБОТА 7. ПРОЕКТУВАННЯ ДОДАТКІВ VB6,
ЩО МІСТЯТЬ ГАЛУЖЕНІ АЛГОРИТМІЧНІ СТРУКТУРИ. ЗАНЯТТЯ 2
ЗАВДАННЯ 7.3. СТВОРІТЬ ПРОЕКТ, В ЯКОМУ РОЗРАХУЙТЕ КІЛЬКІСТЬ ЛОКОМОТИВІВ, ЩО ЗНАХОДЯТЬСЯ В РЕМОНТІ, ЗАЛЕЖНО ВІД ВИДУ ПЕРІОДУ ЕКСПЛУАТАЦІЇ.
Вихідні дані. Ввести за допомогою розташованого на формі об'єкта TextBox загальну кількість локомотивів.
Врахувати, що
ü в осінньо-зимовий період одночасно в експлуатації повинно знаходитися 40% рухомого складу, в резерві –10%;
ü у весняно-літній період одночасно в експлуатації знаходиться в 1,5 рази більше локомотивів, ніж в осінньо-зимовий період.
Результат. Вивести кількість локомотивів, які експлуатуються, резерв і кількість локомотивів у ремонті в залежності від обраного періоду експлуатації.
Обов'язкові умови. Введення даних, розрахунки і виведення результатів, а також закінчення роботи повинні відбуватися при натисканні відповідних кнопок. Результати повинні виводитися на окремій формі.