Как найти самый общий общий делитель?

Question

Как найти наибольший общий делитель для 3 значений текстовых полей и сделать его apper в четвертом текстовом поле?

Public Class Form1 
    Dim a As Integer 
    Dim b As Integer 
    Dim c As Integer 
    Dim d As Integer 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     a = Val(TextBox1.Text) 
     b = Val(TextBox2.Text) 
     c = Val(TextBox3.Text) 
     d = Val(TextBox4.Text) 

     ------------------------- Val(TextBox4.Text) = ---------------- 

    End Sub 
End Class 

Answer 1

Прежде всего, необходимо установить наибольшее минимальное значение для наибольшего общего знаменателя:

Dim minimum As Integer If a <= b And a <= c minimum = a Else If b <= a And a <= c minimum = b Else If c <= a And a <= b minimum = c End If

Используйте цикл и уравнений Mod следующим образом:

For i As Integer = minimum To 1 Step -1 If a Mod i = 0 And b Mod i = 0 And c Mod i = 0 Return i End If Next

Это будет устанавливать минимальное число как переменный минимум и считать вниз, пока у меня не останется остатков для a, b и c, thu с наибольшим общим знаменателем.