double arrow

Dim x As Integer, y As Integer, e As String, w As String

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 рази більше локомотивів, ніж в осінньо-зимовий період.

Результат. Вивести кількість локомотивів, які експлуатуються, резерв і кількість локомотивів у ремонті в залежності від обраного періоду експлуатації.

Обов'язкові умови. Введення даних, розрахунки і виведення результатів, а також закінчення роботи повинні відбуватися при натисканні відповідних кнопок. Результати повинні виводитися на окремій формі.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: