백만장 자 프로그램을 원할 때 50/50 라이프 라인 Vb.net

Question

나는 현재 백만장자가되기를 원하는 사람을 쓰고 있으며 코드에 심각한 오류가없는 것으로 보인다. 특히 50/50 라이프 라인. 정답이 선택의 첫 번째 대답 일 때마다 프로그램이 충돌합니다. 그렇지 않으면 정답이 2,3 또는 4 번째 선택 인 경우 제대로 작동합니다. 나는 이것이 왜 이것을하는지, 그것을 고치려는 나의 노력은 쓸모가 없다는 것을 정말로 모른다. 배열을 사용하여 각 선택에 맞는 선택을 유지합니다.

correctanswer(i) 
    Dim remove As Integer 
     Dim remove1 As Integer 
start: 
     remove = CStr(Int(Rnd() * 4)) 
     If remove + 2 = correctanswer(i) + 1 Then 
      GoTo start 
     End If 
start2: 
    remove = CStr(Int(Rnd() * 5)) 
    If remove1 + 2 = correctanswer(i) + 1 Then 
     GoTo Start2 
    ElseIf remove1 = remove Then 
     GoTo Start2 
    End If 
    Dim r1 As Button 
    r1 = Me.Controls("cmdanswer" & remove + 1) 
    r1.Enabled = False 
    r1.Text = "" 
    Dim r2 As Button 
    r2 = Me.Controls("cmdanswer" & remove1 + 1) 
    r2.Enabled = False 
    r2.Text = "" 

Answer 1

remove1 + 2 = correctanswer(i) + 1 일 때마다 무한 루프가 발생합니다. 그것은 start2로 돌아간 다음 if 문으로 계속 진행 한 다음 start2로 계속 반복합니다. remove1 및 correctanswer (i)의 값은 절대로 변경되지 않습니다.