急急急~~~vb编程，计算1-100以内的质数和

病情分析：
这种症状持续多长时间了呢？
指导意见：
目前根据你的症状，如果是乳腺炎，乳腺增生，乳腺癌等都会导致的，一般可以来院做个乳腺钼钯检查及其触诊等检查明确的。
医生询问：
在没有明确病因前，最好先不要盲目的选择用药好吧，以便用药不当加重病情或掩盖病情。

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 100
If f1(i) Then Print i;
If i Mod 10 = 0 Then Print
Next
End Sub

Public Function f1(x As Integer) As Boolean
Dim n As Integer
n = 1
Do While n < x
n = n + 1
    If x Mod n = 0 Then
    f1 = False
    Exit Do
    End If
Loop
If n >= x Then f1 = True
End Function
Public Function f2(x As Integer) As Boolean
Dim n As Integer
n = 1
Do
n = n + 1
If x Mod n = 0 Then
f2 = False
Exit Do
End If
Loop While n < x
If n >= x Then f2 = True
End Function
Public Function f3(x As Integer) As Boolean
Dim n As Integer
n = 1
Do Until n >= x
n = n + 1
If x Mod n = 0 Then
f3 = False
Exit Do
End If
Loop
If n >= x Then f3 = True
End Function
Public Function f4(x As Integer) As Boolean
Dim n As Integer
n = 1
Do
n = n + 1
If x Mod n = 0 Then
f4 = False
Exit Do
End If
Loop Until n >= x
If n >= x Then f4 = True
End Function