مقسوم علیه های مشترک 2 عدد در Visual Basic 6

[Henry14]

سلام.
برنامه ای می خواستم که دو عدد رو بهش بدیم و مقسوم علیه های مشترک اونا رو حساب کنه ، در برنامه ی vb6
با استفاده از حلقه ها باشه مثلا حلقه ی for

[ho3ein.3ven]

سلام . نوشتمش فقط عجله ای شد .
Private Sub Command1_Click()
a = InputBox("")
b = InputBox("")
For i = 1 To a
If a Mod i = 0 Then
If b Mod i = 0 Then
Print i
End If
End If
Next
End Sub

[Henry14]

من این کد رو نوشتم چیزی چاپ نکرد.اشکالش کجاست؟


Dim a As Integer
Dim b As Integer
Dim i As Integer


Private Sub Form_Load()
a = Val(InputBox("Enter Number 1", "Number1"))
b = Val(InputBox("Enter Number 2", "Number2"))
For i = 1 To a
If a Mod i = 0 Then
If b Mod i = 0 Then
Print i
End If
End If
Next
End Sub