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

    −457

    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
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    Public Function CheckForError(ByVal sRes1 As String, ByVal sRes2 As String, Optional ByVal sRes3 As String = "", Optional ByVal sRes4 As String = "", Optional ByVal sRes5 As String = "", Optional ByVal sRes6 As String = "", Optional ByVal sRes7 As String = "", Optional ByVal sRes8 As String = "", Optional ByVal sRes9 As String = "", Optional ByVal sRes10 As String = "", Optional ByVal sRes11 As String = "") As Boolean
                Dim bRes As Boolean = True
                If Not CheckForError(sRes1) Then
                    If Not CheckForError(sRes2) Then
                        If Not CheckForError(sRes3) Then
                            If Not CheckForError(sRes4) Then
                                If Not CheckForError(sRes5) Then
                                    If Not CheckForError(sRes6) Then
                                        If Not CheckForError(sRes7) Then
                                            If Not CheckForError(sRes8) Then
                                                If Not CheckForError(sRes9) Then
                                                    If Not CheckForError(sRes10) Then
                                                        If Not CheckForError(sRes11) Then
                                                            bRes = False
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
    
                Return bRes
            End Function

    Птицы летят на юг!

    Запостил: adler, 24 Января 2011

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

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