ویژوال بیسیک _آموزش _سورس کد_دانلود

Public Sub maghsom()
n = Val(Text1.Text)
For i = 1 To n / 2
If n Mod i = 0 Then
m = m & i & ","
End If
Next
Text2.Text = "{" & m & n & "}"
End Sub