Почему мои петли While While работают правильно?

Question

Интересно, будет ли кто-нибудь настолько любезным, чтобы рассказать мне, почему мой код не работает. Отладка показывает, что значение может равняться 1 или 2, но VB будет выполнять только первый оператор while, а не второй.

Const AnswerA As String = "Copenhagen" 
Const AnswerB As String = "Peter the Great" 
Dim Value As Integer 
Dim Message, Response As String 
Private Sub btnAskMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAskMe.Click 
    Randomize() 
    ' Generate random value between 1 and 2 to test only. 
    Value = CInt(Int((2 * Rnd()) + 1)) 
    If Value = 1 Then 
     Message = "What's the capital of Denmark?" 
     While Response <> AnswerA 
      Response = InputBox(Message) 
      If String.IsNullOrEmpty(Response) Then Exit Sub 
      If Response <> AnswerA Then Message = "No, no, no! Think boy, think?" 
     End While 
     MsgBox("Correct....What took you so long?") 
    End If 
    If Value = 2 Then 
     Message = "Which Russian Tsar forced his wife to keep her lovers head in a jar?" 
     While Response <> AnswerB 
      Response = InputBox(Message) 
      If String.IsNullOrEmpty(Response) Then Exit Sub 
      If Response <> AnswerB Then Message = "No you twerp! Have another go" 
     End While 
     MsgBox("Correct....What took you so long?") 
    End If 
End Sub 

End Class

Answer 1

его проблема с вашим "конец, если" место здесь

If Value = 1 Then 
     Message = "What's the capital of Denmark?" 
    End If 

и здесь

If Value = 2 Then 
     Message = "Which Russian Tsar forced his wife to keep her lovers head in a jar?" 
    End If 

первый конец, если нужно прийти после строка «Exit Sub» , а вторая после «Конец Хотя»

Answer 2

Он никогда не работать должным образом:

While ResponseB <> AnswerB 
        ^----check Response **B** 
     ResponseA = InputBox(Message) 
       ^---- get a response into Response **A**