这个程序怎么了?

关于Private Sub Form_Load()
Dim n, nn, m As Integer ‘n为所求数，m为因子，nn为因子之和
nn = 0
lable1.Caption = “1”
For n = 2 To 1000 ‘n为1是特殊情况
For m = 1 To n – 1
If n \ m Then
nn = nn + m
End If
Next m
If n = nn Then
lable1.Caption = lable1.Caption & ” ” & n
End If
Next n
End Sub

目的:
如果一个数等于他的所有的因子之和，这个数就称为“完数”，编程找出1000以内的所有完数

运行时被提示lable1.Caption = “1”有问题
去处后可以运行,但lable没有显示

肯请告知错误原因和解决办法的问题

是label1吧