Как будет выглядеть цикл Do.Loop? - VB

Формулировка задачи:

Как мне сделать цикл Do....Loop для этого кода?

Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
x = Text1
y = Text2
Do While Key = False
    For i = x To y
    Key = False
    For j = 2 To i - 2
        r = i Mod j
        If r = 0 Then Key = True
    Loop
   If Not Key Then
    If i <> 2 Then
        k = k + 1
        Picture2.Print i;
        p = k Mod 19
        If p = 0 Then Picture2.Print
        End If
    End If
Next
Picture1.Print k
End Sub

Или примеры на подобии цикла Do....Loop

Вместо While Until должен быть, а дальше как незнаю как сделать

Решение задачи: «Как будет выглядеть цикл Do.Loop?»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Picture1.Cls
    Picture2.Cls
    x = Text1
    y = Text2
    Do While Key = False
        For i = x To y
            Key = False
            For j = 2 To i - 2
                r = i Mod j
                If r = 0 Then Key = True
            Next
        Next
    Loop
    If Not Key Then
        If i <> 2 Then
            k = k + 1
            Picture2.Print i;
            p = k Mod 19
            If p = 0 Then Picture2.Print
        End If
    End If
    
    Picture1.Print k
End Sub
                        

Оцени полезность:

6 голосов , оценка 3.333 из 5

Похожие ответы