vb 输入一个数,判断该数是否为完数,并把其因子输出

题目

vb 输入一个数,判断该数是否为完数,并把其因子输出
Private Sub Command1_Click()
m = Val(Text1.Text)
For i = 1 To m - 1
If 【9】 Then k = k + i ' 因子之和
Next i
If 【10】 Then
Picture1.Print m & "是完数"
Picture1.Print m; " = 1";
For i = 【11】 ' 因子输出
If m Mod i = 0 Then Picture1.Print "+"; i;
【12】
Picture1.Print
Else
Picture1.Print m & "不是完数"
【13】
End Sub

答案

(m mod i) = 0
k = m
1 to m - 1
Next
End If