Private Sub Form_Click()
Dim i, j, a, b, sum As Integer
a = InputBox("输入数")
b = InputBox("输入数")
If a > b Then
For i = a To b
sum = 0
For j = 1 To i - 1
If i Mod j = 0 Then sum = sum + j
Next j
If sum = i Then Print i; "是完全数"
Next i
Else
For i = b To a
For j = 1 To i - 1
If i Mod j = 0 Then sum = sum + j
Next j
If sum = i Then Print i; "是完全数"
Next i
End If
End Sub
不能输出正确的答案~~急！！！
其中一部分，另一部分自己参照修改一下If a < b Then For i = a To b
sum = 0
For j = 1 To i - 1
If i Mod j = 0 Then sum = sum + j
Next j
j = 0
If sum = i Then Form1.Print i; "是完全数" Next iEnd If...
