Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 100
If sushu(i) Then s = s + i
Next i
Print s
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s = 0
For i = 2 To 100
If sushu(i) Then s = s + i
Next i
Print s
End Sub