Private Sub Command1_Click()
Dim i As Integer
If Option1。Value = True Then
    For i = 100 To 200
        Call isprime(i)
        If isprime(i) = True Then Print i
    Next i
    
ElseIf Option2。
  Value = True Then
    For i = 200 To 400
        Call isprime(i)
        If isprime(i) = True Then Print i
    Next i
End If
End Sub
Sub putdata(t_FileName As String, T_Str As Variant)
    Dim sFile As String
    sFile = "\" & t_FileName
    Open App。
  Path & sFile For Output As #1
    Print #1, T_Str
    Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
    Dim J As Integer
    For J = 2 To t_I / 2
        If t_I Mod J = 0 Then Exit For
            If J > t_I / 2 Then
           isprime = True
        Else
           isprime = False
        End If
    Next J
End Function
说明：
（1）因为 a(i) = i，所以完全可以不需要变量a(i),再说，如果a(I)的上下限不确定，再使用时要重定义：Redim a(100,200)。
  
 (2) 将true打错成ture;
 (3)函数isprime中的for循环中语句不正确。
 (4)putdata()函数好像用不到。
。