Vb.net 下一个visual basic的标签循环

当前我的代码如下所示：

Private Sub btnMotivate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMotivate.Click
    Dim intNumber As Integer
    Dim strStudy As String = "Study!"

    intNumber = InputBox("How many times do you want to be motivated? Please use numbers!")
    If intNumber < 1 Then
        MessageBox.Show("Please use a number from 1 - 10!")
    End If
    If intNumber > 10 Then
        MessageBox.Show("Please use a number from 1 - 10!")
    End If

>    For intCounter = 1 To intNumber Step 1
        lblMotivation.Text = strStudy
>    Next

End Sub

Private子btnMotivate_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnMotivate。单击
整数形式的整数
将strStudy设置为String=“学习！”
intNumber=InputBox（“您希望被激励多少次？请使用数字！”）
如果intNumber<1，则
Show（“请使用1-10之间的数字！”）
如果结束
如果intNumber>10，则
Show（“请使用1-10之间的数字！”）
如果结束
>对于intCounter=1到intNumber步骤1
lblMotivation.Text=strStudy
>下一个
端接头

---

如您所见，我添加了一个变量，循环运行良好，但我需要帮助对代码进行措辞，以便无论用户输入多少行，都显示“研究”的行数。我尝试过使用字符串，但也使用了Environment.NewLine标签，希望它能在每次循环运行时添加新行

每次都将标签文本设置为

strStudy

。这并没有增加已经存在的东西，它只是取代了它

您需要在已经存在的文本中添加

strStudy

，如下所示：

' start with an empty string
lblMotivation.Text = ""
For intCounter = 1 To intNumber Step 1
    ' append the study string and a newline
    lblMotivation.Text = lblMotivation.Text & strStudy & Environment.NewLine
Next

---

不要使用文本框，而是使用列表框来显示单词Study！n次。不指导用户做某事，而是在代码中阻止，这也是一种很好的做法。还要注意intNumber是如何更改为*inp*Number作为对象的

Private Sub btnMotivate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMotivate.Click
    Dim inpNumber As Object
    Dim strStudy As String = "Study!"
    Dim intCounter As Integer 
    inpNumber = InputBox("How many times do you want to be motivated?")
    If Not IsNumeric(inpNumber) Then
        MessageBox.Show("Please enter a number!")
    ElseIf inpNumber < 1 OrElse inpNumber > 10 Then
        MessageBox.Show("Please enter a number from 1 - 10!")
    Else
        ListBox1.Items.Clear()
        For intCounter = 1 To inpNumber Step 1
            ListBox1.Items.Add(strStudy)
        Next
    End If

End Sub

Private子btnMotivate_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnMotivate。单击
作为对象的数字
将strStudy设置为String=“学习！”
整数计数器
InputNumber=InputBox（“您希望被激励多少次？”）
如果不是数字（inpNumber），则
MessageBox.Show（“请输入一个数字！”）
如果输入数小于1或输入数大于10，则
Show（“请输入1-10之间的数字！”）
其他的
ListBox1.Items.Clear（）
对于intCounter=1到INP编号步骤1
列表框1.Items.Add（strStudy）
下一个
如果结束
端接头

非常感谢您！这非常有帮助，非常简单谢谢你的帮助。我必须这样做的原因是因为这项作业（我在高中，计算机编程1课）告诉我们要特别“验证用户输入的数字在1到10之间，如果他们没有输入，则显示消息。”我做了一些更改，您可能会觉得有用。如果用户输入一个字母，例如“s”，而不是一个数字，该怎么办。您的代码将引发异常。试试看。此外，如果您使用文本框来包含结果，您将看到单词study！在同一行上重复，无论是否包含Environment.NewLine。你应该在接受答案之前测试答案。