【正文】
axv(a, mv, mp) For j = mp To UBound(a) 1 39。Option ExplicitOption Base 1Private Sub Command1_Click() Dim i As Integer, j As Integer, na() As Integer Dim n As Integer, m As Integer n = Text1: m = Text2 For i = n To m Call change(i, na) For j = 1 To UBound(na) If Not prime(na(j)) Then Exit For Next j If j UBound(na) Then i En