İki Sayıyı Çarpanlarına Ayırma

Private Sub Command1_Click()
List3.Clear
List1.Clear
List2.Clear
List1.AddItem Val(Text1)
List2.AddItem Val(Text2)
asd = Val(Text2)
If Val(Text1) > Val(Text2) Then asd = Val(Text1)

    For k = 2 To asd
kalem = Val(Label1)
masa = Val(Label2)
sayı1 = Val(List1.List(kalem))
sayı2 = Val(List2.List(masa))
        If sayı1 / k = Int(sayı1 / k) And sayı2 / k = Int(sayı2 / k) Then
kalem = Val(Label1)
masa = Val(Label2)
sandalye = Val(Label3)
List1.AddItem sayı1 / k
List2.AddItem sayı2 / k
List3.AddItem k
Label1.Caption = kalem + 1
Label2.Caption = masa + 1
Label3.Caption = sandalye + 1
k = k - 1
ElseIf sayı1 / k = Int(sayı1 / k) Then
kalem = Val(Label1)
masa = Val(Label2)
sandalye = Val(Label3)
List1.AddItem sayı1 / k
List2.AddItem sayı2
List3.AddItem k
Label1.Caption = kalem + 1
Label2.Caption = masa + 1
Label3.Caption = sandalye + 1
k = k - 1
ElseIf sayı2 / k = Int(sayı2 / k) Then
kalem = Val(Label1)
masa = Val(Label2)
sandalye = Val(Label3)
List1.AddItem sayı1
List2.AddItem sayı2 / k
List3.AddItem k
Label1.Caption = kalem + 1
Label2.Caption = masa + 1
Label3.Caption = sandalye + 1
k = k - 1
Else
End If
Next
kalem = Val(Label1)
masa = Val(Label2)
sayı1 = Val(List1.List(kalem))
sayı2 = Val(List2.List(masa))

End Sub

Categories: Visual Basic