Question

VB题,输出1000—1100之间的所有质数,每行输出六个

老师要求用Do While来写
Private Sub Command2_Click()
Dim x%, y%, z%
x = 1000: y = 2
Do While x <= 1100 And y < x - 1
x = x + 1
If x / y <> x \ y Then
Print "x=" & x;
z = z + 1
If z Mod 6 = 0 Then Print
End If
Loop
End Sub
求大神帮助呀，= =不会写

Answer 1

'输出 1000—1100 之间的所有质数,每行输出六个

Private Sub Command2_Click()

    Dim x%, z%

    Dim m%, n%

    x = 1000

    z = 0

    Do While x <= 1100

        x = x + 1

        m = x - 1

        n = 0

        Do While m > 2

            If x Mod m = 0 Then n = n + 1

            m = m - 1

        Loop

        If n = 0 Then

            Print x;

            z = z + 1

            If z Mod 6 = 0 Then Print

        End If

    Loop

End Sub

结果：

Answer 2

Dim x, i, a(), n, r As Integer, j As Boolean
Option Explicit
Private Sub Command1_Click()
n = -1
x = 1000
Do While x <= 1100
    j = True
    i = 2
    Do While i < x
        If Int(x / i) = x / i Then j = False
        i = i + 1
    Loop
    If j Then
        n = n + 1
        ReDim Preserve a(0 To n)
        a(n) = x
    End If
    x = x + 1
Loop
For r = 0 To n
If Int(r / 6) = r / 6 And r <> 0 Then Print vbCrLf;
Print a(r);
Next r
End Sub