Option Explicit
Private Sub Command1_Click()
Dim x() As Integer
Dim k As Integer
k = -1
Dim sum As Integer
sum = 0
Dim i As Integer
Dim j As Integer
For i = 1 To 100
For j = 2 To i - 1 Step 1
If i Mod j = 0 Then
Exit For
End If
Next
If j = i Then
k = k + 1
ReDim Preserve x(k)
x(k) = i
sum = sum + i
Print x(k)
End If
Next
Print "总和：" & sum
End Sub
