新手求高手帮助……如何print东西到label里或者是指定位置里？

Private Sub Command1_Click()
Call fenjie
End Sub
Sub fenjie()
M = Text1.Text
Dim I As Integer
Print M & "="
Do While M Mod 1 = 0 And M > 0
For I = 2 To M
If M Mod I = 0 Then
Print I,
M = M / I
Exit For
End If
Next
If M = 1 Then Exit Do
Print "*"
Loop
End Sub Private Sub Command2_Click()
End
End Sub
分解质因数的程序……