M = Val(text1.Text)N = Val(text2.Text)Dim a() As StringDim aa As StringDim i, j, ki = 0While i < Nk = 0
M = M + 1 For j = 2 To M - 1
If M Mod j = 0 Then k = 1: Exit ForNextIf k = 0 Then'ReDim Preserve a(1 + UBound(a))aa = aa & "|" & Mi = i + 1End IfWenda() = Split(aa, "|", -1)
'如N=4,...