[VB.NET] Do Loop문

1부터 5까지 출력

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim str As String
    Dim i As Integer

    i = 1

    Do While i <= 5
        str = str & i & " "
        i = i + 1
    Loop

    resultLbl.Text = str

End Sub

 

 

1에서 10까지 짝수만 더하기

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Dim i As Integer
    Dim sum As Integer

    i = 1

    Do While i <= 10
        If ((i Mod 2) = 0) Then
            sum = sum + i
        End If

        i = i + 1
    Loop

    resultLbl.Text = sum

End Sub

 

 

입력된 값들을 더하기

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim input As Integer
        Dim sum As Integer
        Dim str As String

        input = InputBox("숫자를 입력해주세요", "입력")
        sum = 0
        str = ""

        Do Until (input = 0)
            str = str + " " & input
            sum = sum + input
            input = InputBox("숫자를 입력해주세요", "입력")
        Loop

        resultLbl2.Text = resultLbl2.Text + vbCrLf + "입력된 숫자 : " + str + vbCrLf + "합계 : " + sum

    End Sub