Visual Basic:如何使用for循环转到标签中的下一行

时间:2016-10-17 20:32:44

标签: vba visual-studio

我试图弄清楚如何在for循环中运行偶数,然后通过按钮将这些数字打印到Windows窗体中的标签上。目前,当我按下按钮时它只显示20.我相信代码正在循环中运行,然后当它达到20时它只打印20.我需要打印标签对象中的所有数字。

下面是当前的代码:

Public Class Form1

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

    For intEven = 2 To 20 Step 2
        lblEven.Text = intEven
    Next


End Sub
End Class

当应用程序运行时,它是一张应用程序的图片:

Running the application

1 个答案:

答案 0 :(得分:0)

我刚刚想出来了!

Public Class Form1

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

    Dim intEven As Integer

    For intEven = 2 To 20 Step 2
        lblEven.Text = lblEven.Text &
            intEven.ToString & ControlChars.NewLine
    Next intEven


End Sub
End Class