1. VisualBasic / Говнокод #9440

    −90

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
    Label4.Caption = L
    
    If L > 50 Then
    MsgBox "Вы не ввели свой вариант, ввод варианта обязателен для корректной работы программы", vbExclamation, "Ошибка"
    L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
    Label4.Caption = L
    End If
        If L > 50 Then
            MsgBox "Ошибка. Попробуйте запустить приложение снова и выполнить все действия", vbCritical, "Ошибка"
            End
    
    End If

    Третий раз не спрашиваем...

    Запостил: vovams, 16 Февраля 2012

    Комментарии (4) RSS

    • Robust programming!
      Ответить
    • У нас в лабах чаще встречается немного другой подход, правда с меткой:

      1:
      nVar = Val(InputBox("Введите номер варианта"))

      If ((nVar>50) Or (nVar<1)) Then MsgBox("Некорректно введен номер варианта. Попробуйте снова."): GoTo 1
      Ответить
    • Усовершенствовал:

      StreamTP = 1 //Уральский
      
      L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
      Label4.Caption = L
      
      While Not StreamTP >= 25
      
      	If L > 50 AND StreamTP <10 Then
      	MsgBox "Вы не ввели свой вариант, ввод варианта обязателен для корректной 	работы программы", vbExclamation, "Ошибка"
      	L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
      	Label4.Caption = L
      	StreamTP = StreamTP+1
      	Else
      	MsgBox "Ты что, тупой, что ли, блеать?!", vbExclamation, "Ошибка"
      	L = InputBox("Отвичай мне на мой вопрос!", "Лабораторная работа №2")
      	Label4.Caption = L
      	StreamTP = StreamTP+1
      	End If
      Wend
      
          If L > 50 Then
              MsgBox "Разрыв!", vbCritical, "Ошибка"
              End
      
      End If
      Ответить

    Добавить комментарий