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

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

    • ava Steve_Brown 16.02.2012 10:05 # +2

      Robust programming!
      Ответить

    • ava guest 24.03.2012 20:17 # 0

      У нас в лабах чаще встречается немного другой подход, правда с меткой:

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

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

    • ava Lao 18.06.2012 08:37 # −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
      Ответить

    • ava guest8 09.04.2019 12:42 # −999

      показать все, что скрытоvanished
      Ответить

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