ایا عدد ورودی کامل است؟

[mona rahimi]

سلام. شرمنده
یه سورس ویژوال بیسیک می خواستم که عددی از ورودی بخواد و مقسوم علیه هاشون چاپ کنه و بعد مقسوم علیه هاشو جمع کنه و چک کنه ایا عدد کاملی هست یا نه؟
ممنون

 

[the_king]

سلام. شرمنده
یه سورس ویژوال بیسیک می خواستم که عددی از ورودی بخواد و مقسوم علیه هاشون چاپ کنه و بعد مقسوم علیه هاشو جمع کنه و چک کنه ایا عدد کاملی هست یا نه؟
ممنون

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

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