Ограничения по вводу данных для существующих моделей - VB
Формулировка задачи:
Требуется помощь написать код. Суть такова, что допустим, есть вот такая таблица, представленная ниже. Необходимо, чтобы при наличии заданной модели автобуса со своей вместимостью( например, Citroen Jumper число мест - 70) нельзя было ввести для такой же модели Citroen Jumper, число мест <>70, как предусмотреть все варианты и защитить себя от вылета в ошибку, так как задание моделей будет осуществляться с помощью подстановки.
Решение задачи: «Ограничения по вводу данных для существующих моделей»
textual
Листинг программы
Option Explicit Private Type typeAutoBus ID As Integer Model As String Seats As Integer Number As String End Type Const N As Integer = 20 Dim AutoBus(1 To N) As typeAutoBus ' Private Sub Command1_Click() Dim i As Integer AutoBus(1).Model = "Citroen_Jumper": AutoBus(1).Number = "4324" AutoBus(2).Model = "Mercedes_Classic": AutoBus(2).Number = "442" AutoBus(3).Model = "Peugeot_Boxer": AutoBus(3).Number = "123" AutoBus(4).Model = "Citroen_Jumper": AutoBus(4).Number = "3434" For i = 1 To N AutoBus(i).ID = i Select Case AutoBus(i).Model Case "Citroen_Jumper": AutoBus(i).Seats = 70 Case "Mercedes_Classic": AutoBus(i).Seats = 100 Case "Peugeot_Boxer": AutoBus(i).Seats = 90 End Select Next i MsgBox AutoBus(4).Seats End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д