Question

请问在VB里面如何设计程序找出1000以内的完数？

Answer 1

1、启动VB6.0，新建一个标准exe工程。

2、在窗体上绘制一个命令按钮，名称为Command1。

3、双击命令按钮进入代码窗口。

4、编写命令按钮的单击事件。

Private Sub Command1_Click()

For n = 1 To 1000

s = "" '这一句要加上

Sum = 0

For i = 1 To n / 2

If n Mod i = 0 Then

Sum = Sum + i

s = s + Str(i) + "+"

End If

Next i

If n = Sum Then

s = Left(s, Len(s) - 1)

Picture1.Print s; "="; n '这里 Picture1是图片框的名字

End If

Next n

End Sub

5、然后按F5运行测试，这样就完成了。