VPF::Выдает ошибку с If когда... - Форум программистов

Spiker

Дата 2.5.2009, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 265
Регистрация: 25.5.2005
Где: Спортзал

Репутация: нет
Всего: -2

Выдает ошибку при выполнении Иф функций. Все правильно закрывается но серовно пишет то что "End If without block if"
ниже комментирована ошибка, после "End If"

Код

 
If Choice = 2 Then
    If PhraseHasBeenSet = True Then
        Call DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
        NextGuessedLetter = GetNextLetterGuess()
        ' is this letter present ?

            If NextGuessedLetter = Join(IndividualLettersArray) Then
                GuessedWord = NextGuessedLetter
            Else
            For Index = 1 To Len(NewPhrase)
            If NextGuessedLetter = IndividualLettersArray(Index) Then
                GuessStatusArray(Index) = NextGuessedLetter
            End If
            End If '"End If without block if" 
        Next
        Call DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
        PhraseGuessed = AllLettersGuessedCorrectly(GuessStatusArray, GuessedWord, NewPhrase, _
        IndividualLettersArray)
            If PhraseGuessed = True Then
                MsgBox ("You have guessed correctly")
            End If
        Else
            MsgBox ("The setter has not specified the word/phrase ..")
    End If
End If

а именно тут

Код


            If NextGuessedLetter = Join(IndividualLettersArray) Then
                GuessedWord = NextGuessedLetter
            Else
            For Index = 1 To Len(NewPhrase)
            If NextGuessedLetter = IndividualLettersArray(Index) Then
                GuessStatusArray(Index) = NextGuessedLetter
            End If
            End If '"End If without block if"

Это сообщение отредактировал(а) Spiker - 2.5.2009, 23:13

--------------------

Даваите жить дружно! (Леопольд.) :shy67:

Naghual

Дата 2.5.2009, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Строки 14 и 15 поменять местами.

--------------------

Я желаю всем Счастья!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »