Question

VB求因数、因数和、 完全数组合框，求高手回答，拜托





Answer 1

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim intInput As Long
Dim intNs(100) As Long
Dim strOutput As String
intInput = Val(Text1.Text)
If intInput < 1 Then Exit Sub
For i = 2 To intInput
If intInput Mod i = 0 Then
j = j + 1
intNs(j) = i
End If
Next i
strOutput = Text1.Text & " 的因数是：1，"
For i = 1 To j - 1
strOutput = strOutput & intNs(i) & "，"
Next i
MsgBox strOutput
intInput = 1
For i = 1 To j - 1 '这里的因数不包括自己
intInput = intInput + intNs(i)
Next i
MsgBox Text1.Text & " 的因数和是：" & intInput
If intInput = Val(Text1.Text) Then
MsgBox "是完全安数"
Else
MsgBox "不是完全安数"
End If
End Sub

追问

我想要的是最后的那个能显示出2各因数的累加和不等于2，所以不是完全数，6各因数的累加和等于6，所以是完全数的这种代码

追答

If intInput = Val(Text1.Text) Then'判断是不是完全数
MsgBox "是完全安数"
Else
MsgBox "不是完全安数"
End If

至于显示问题，你把各个输出连在一起不就是了么？
msgbox Text1.Text & " 的因数是：1，" & strOutput & vbcrlf & Text1.Text & " 的因数和是：" & intInput & vbcrlf & Text1.Text & " 的因数和是：" & intInput & "，所以" & Text1.Text & "是完全数。"