Показывать определенный результат в цикле

Question

Я пытаюсь создать программу, которая может кодировать с использованием системы шифрования RSA. Для этого я создал код, который может вычислять с помощью Euclidean Algorithm. Вот код:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    number1 = TextBox1.Text 
    number2 = TextBox2.Text 
    Do While answer <> 0 
     answer = number1 Mod number2 
     number2 = number1 And answer = number2 
    Loop 
    MessageBox.Show(answer) 
End Sub 

Итак, это не так уж сложно, правда? Проблема в том, что она всегда будет показывать 0 как ответ, что имеет смысл. Но я хочу получить ответ цикла перед последним.

Вот [пример]

, если вы не понимаете, что я пытаюсь сказать.

Я надеюсь, что кто-то может помочь мне :)

Answer 1

Почему бы не объявить переменную для ответа и проверить, если это 0, прежде чем установить его?

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button2.Click 
Dim number1 
Dim number2 
Dim answer 
Dim whatIWant 
    answer = -1 
    number1 = TextBox1.Text 
    number2 = TextBox2.Text 
Do While answer <> 0  
    answer = number1 Mod number2 
    number1 = number2 
    number2 = answer   
    If answer <> 0 Then 
     whatIWant = answer 
    End If 
Loop 
MessageBox.Show (CStr(whatIWant)) 

End Sub 

Вот простой тест, который вы можете сделать в Excel с сообщением, показывающим 99, когда это делается.

Sub TestIt() 
Dim number1 
Dim number2 
Dim answer 
Dim whatIWant 
    answer = -1 
    number1 = 148104 'TextBox1.Text 
    number2 = 47223 'TextBox2.Text 
Do While answer <> 0 
    answer = number1 Mod number2 
    number1 = number2 
    number2 = answer 

    If answer <> 0 Then 
     whatIWant = answer 
    End If 
Loop 
MsgBox (CStr(whatIWant)) 

End Sub 

Answer 2

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As               System.EventArgs) Handles Button2.Click 
     dim prevAnswer as integer 
     number1 = TextBox1.Text 
     number2 = TextBox2.Text 
     Do While answer <> 0 
      prevAnswer = answer 
      answer = number1 Mod number2 
      number2 = number1 And answer = number2 
     Loop 
    MessageBox.Show(prevAnswer) 
    End Sub