【正文】
(n As Integer, a() As Integer, k As Integer) Dim i As Integer For i = 2 To n / 2 If n Mod i = 0 Then k = k + 1 ReDim Preserve a(k) a(k) = i End If Next iEnd SubPrivate Sub Command2_Click() Text1 = : Text2 = End SubPrivate Sub Command3_Click() EndEnd S