「VB.NET」DO~Loop Untilのサンプル

2021年9月29日

書式

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Do
処理コード
Loop Until 条件式
Do 処理コード Loop Until 条件式
Do 
  処理コード
Loop Until 条件式

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Module Module1
Sub Main()
'変数の定義
Dim cft As Integer = 10
'Do~Loop Until
Do
Console.WriteLine(cft)
cft = cft + 1
Loop Until cft > 13
Console.ReadKey()
End Sub
End Module
Module Module1 Sub Main() '変数の定義 Dim cft As Integer = 10 'Do~Loop Until Do Console.WriteLine(cft) cft = cft + 1 Loop Until cft > 13 Console.ReadKey() End Sub End Module
Module Module1
    Sub Main()
        '変数の定義
        Dim cft As Integer = 10

        'Do~Loop Until
        Do
            Console.WriteLine(cft)
            cft = cft + 1
        Loop Until cft > 13

        Console.ReadKey()
    End Sub
End Module

 

VB.net

Posted by arkgame