请用VB程序实现上面的内容,算出人数并在窗体上列出所有编号。
界面设计参考如下:

Private Sub Command1_Click()
Dim i As Integer, m As Integer, n As Integer
Label1.Caption = "1000以内的完全数如下:"
For i = 1 To 1000
n = 0
For m = 1 To i \ 2
If i Mod m = 0 Then n = n + m
Next
If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)
Next i
End Sub
该过程采用的算法是( )
① ②
程序代码:
count=0 #循环计数
for x in range( ① ): #变量x表示20元纸币张数
for y in range( ② ): #变量y表示10元纸币张数
if ③ <=100:
④
print("循环次数:",count)
①②③④