您的位置: 首页  >  作业答案  >  其他  >  vb 输入一个数,判断该数是否为完数,并把其因子输出

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

分类: 作业答案 • 2022-06-30 15:23:54
问题描述：

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

相关推荐