PERFORM命令（繰り返し処理）

COBOL
       WORKING-STORAGE SECTION.
       01 I PIC 9.
       PROCEDURE DIVISION.
       PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5
           DISPLAY "繰り返し:" I UPON CONSOLE
       END-PERFORM.
       STOP RUN.

VB.NET
Do...Loop
Module Module1
    Private j As Integer = 1
    Sub Main()
        Do Until j > 5
            Console.WriteLine("繰り返し:" & j)
            j += 1
        Loop
    End Sub
End Module

For...Next
Module Module1
    Private j As Integer
    Sub Main()
        For j = 1 To 5
            Console.WriteLine("繰り返し:" & j)
        Next
    End Sub
End Module

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。