求大佬！如何在label中打印出完数的表达式？比如6=1+2
+3

这是我的代码，要如何增添打印完数的表达式的代码
Private Sub Command1_Click()
Dim a As Integer
Dim i As Long
Dim j As Long
a = Val(Text1.Text)
For i = 1 To a / 2
If a Mod i = 0 Then j = j + i '因子之和
Next i
If j = a Then
Label2.Caption = Val(Text1.Text) & "是完数"
Else
Label2.Caption = Val(Text1.Text) & "不是完数"
End If
End Sub

Label当中不能“打印”（Print），图片中使用的是图片框控件
如果你仍然希望在Label中输出，可以在 Label2.Caption = Val(Text1.Text) & "是完数" 这句代码后面添加如下代码：（其中部分代码相当于是从前面复制的，稍作修改）
Label2.Caption = Label2.Caption & vbCrLf
Label2.Caption = Label2.Caption & a & "=1"
For i = 2 To a \ 2
If a Mod i = 0 Then Label2.Caption = Label2.Caption & "+" & i
Next i

楼主的代码为啥只能查一次完数？除了查第一次，想再查只能关闭程序再打开查。不能打开一次重复查吗？