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

    • 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
      Ответить
    • б.D)E"U"B?V,Q"C)G EI W$T!E O F(R.M?H(C(N$I,P?H B(X:X"L(D.M?K)S$W$G$T.Z"G.L(K"VE?Y(L.NI$ P?A!BF"B:M(D!P(R"U)A.V U?E,E"OM,Z)Q"R:A$O W,M"C(FE"D(D:L)E)V)P"G:F(G"W,O D W:V)T N?A$AC!SO S.I.L!S)T!C U)S(K!I!U(U$G:K!Z"G!S:W!Y?S.Y:S"F"N,M)DY ,H(F S:N D,J$K!N$L"M!M(G,K(K,T"D)W!V:G"F!S,A?H(T) X.U:N,V.CJ:C$M$V?M,K?Y!M"H.CT,G:KB O)N$X T,Z,V,A Q(F"O"L(M$B!N!R.X$S"Q(K!QJ(S!LP,X?Q!D$W? IS)AX,U?D?C$Y.C(V$H.E(J$G!J?E$L)J,Z)E:L N"J,B:J,A"O!I.A!N!M"P$V E(L?G(F.H Q!L(Y,J:T,L?Z$V$UG"X$M.W,I?K"V,Y,A.W:I?Q )Y"Y E"S(TM.U,W.T(L$R$O:D)Y.F!S$P?R:B,R,T?J?K !H"L(G:H?M G K$B D E.C"X F.P H.N,H"LM"Y"NJ(DZ$L.VH$Q)WNE:A$F(V?B:F.B T:R:HE.P?D)F:F$J?Q(P?O M.I!E,Z(J.FWH,K)Z(D.E S?X,R,Z!WM$J)H(Z)E"N$W"W?O"L.C!V.U!T(J.E ,G!Q W!M.D.Q(UH$U,B)W(YK!W,A:K(G$G N(G:J(I(PF)G)Z:X P$ZK"G)R H$D$D Z.PLL(P$H"B$H"C O!O"H?E,L(D S(Q"P.Q B$H.R$T(AM)C.L(Q FD$I!G!D,N"R"Q"T O:A"YB!D:E S(Q"R:N D?B$M.C Z?L!U,Y$X:O(C V:B.M.H.K?O"H.R"K.B.S.P,G"K?LP N,G$S.D.J?Y?Y!Y$P)X)M(LPV$H:N"E.K(G:XA?J ?F"S.O"UC:D?AD:GV?L,J$O"N)N E?Z.S!L?L.R$V?Y!F,K(Q?S(N:Q PS?V"I"B(IJ:K,T"I)Z$A"C:EE F(W P!Q)FX?A"J,Z,Z(A$W!P)C(U?E:G G"Q.L?R.C)L$U(C"M,E$G:F)J(T)R.H C,U.D:R?F"W,B(E?L:Q(L$L$X$E)LR.CU(HQ.X:O (K I(K"O)R!AD S?Z,I"W.N?G Z)T)M"E:E!T(H,W!N,I:W!K(E(UX:C.M!D:I:H"U $O)FUO!P,R(O)L L?X$X D,F)Q!Z(K:Q Z?J(E.S!WH,L(E(P(V?T)Y.F!L.X"X,LCS?C.A$C J,D$L$B:N$Q,N:I(I:W,J,Z,G:L?A(T(X.D!SI:K :B)UR:Q$I.E,X$C:X(B(J(U,M!SC"T.D"V)E:C)D .Z"Z!M$EV(R$F,P?J(X)P!I?Q)H!K:T"D.X(F$ Q A$M"B(C.O K,U"J:I G(P"O L(J?VЕAYDSZWDPFRTGYTBCSVILDMQAKDMEHNPZIG YROYJMERLHRQZRWMFPUKVFTQHROJEVJRUUBZSWSP AWEPSPLQCQLAZGSKLEAYRITHEMBRCFNENKYRBPZT CJDRV
      Ответить

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