【正文】
Next i prime = TrueEnd FunctionPrivate Sub change(n As Integer, na() As Integer) Dim p As String, i As Integer, k As Integer p = CStr(n) k = Len(p) ReDim na(k) na(1) = n For i = 2 To UBound(na) na(i) = Val(Mid(p, i, k i + 1) amp。 Left(p, i 1)) Next iEnd SubPrivate Sub Command2_Click() Text1 = : Text2 = End SubPrivate Sub Command3_Click() EndEnd Sub