vb 判断1个数是不是完数.docVIP

判断一个数是不是完数Private Sub Command1_Click()Dim m As Integer, i As Integer, j As Integer, sum As IntegerDim a() As Integerm = Text1.TextFor i = 1 To m - 1If m Mod i = 0 Thensum = sum + ij = j + 1ReDim Preserve a(i) As Integera(i) = iEnd IfNext iIf m = sum ThenPicture1.Print m 是完数，因为Picture1.Print m; =;For i = 1 To UBound(a) - 1Picture1.Print a(i); +;Next iPicture1.Print a(i)ElsePicture1.Print m 不是完数End IfEnd SubPrivate Sub Command2_Click()Picture1.ClsText1.Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub选择排序法Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As Int