مقسوم علیه های

[mehdiafzali]

سورس بدست اوردن مقسوم علیه های یک عدد در ویژوال بیسیک 6

 

[the_king]

سورس بدست اوردن مقسوم علیه های یک عدد در ویژوال بیسیک 6

Private Sub Form_Load()
    Dim n As Integer, i As Integer
    Dim s As String
    n = Val(InputBox("Please enter a number :"))
    For i = 1 To n
        If n Mod i = 0 Then s = s & " " & i
    Next
    MsgBox s
End Sub