Whileループによる繰り返し処理 (While文の書式) - VB

概要

書式

While 条件式
  ...処理
End While

プログラム例

コード

Module Module1

    Sub Main()
        Dim value As Integer
        value = 0

        While value < 20
            Console.Write(value & ", ")
            value += 1
        End While
        Console.ReadLine()
    End Sub

End Module

実行結果

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,

While True ... の場合

 while True
   ...処理
 End While

コード例

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  Dim a As Integer
  a = 0

  While True
    TextBox1.Text += a.ToString() + " "
    a += 1
    If (10 < a) Then Exit While
  End While
End Sub

実行結果

0 1 2 3 4 5 6 7 8 9 10

著者

Penta

iPentecのメインプログラマー
C#, ASP.NET の開発がメイン、少し前まではDelphiを愛用