Vb.net 在visual basic中使用显示数字列表的预测试do…循环编写应用程序时遇到问题

在我的家庭作业中，在表单应用程序中给用户两个文本框来输入数字。在“发件人”框中，用户将在列表中输入第一个要开始的号码。在“收件人”框中，他们将输入要在列表中显示的最后一个号码

例如：

发件人：1 致:5

名单： 1. 2. 3. 4. 五,

作业要求我使用预测试do…循环来完成此任务。问题是我不知道如何让代码使用用户输入的数字

编辑：

这是我当前的界面：

我已经为下一个循环编写了代码。我将在下面发布代码。我现在必须完成与预测试Do…循环相同的概念。我不知道如何让循环显示用户指定的数字范围

下一步的代码：

Private Sub btnForNext_Click(sender As Object, e As EventArgs) Handles btnForNext.Click
    ' Display a list of numbers.

    Dim intFrom As Integer
    Dim intTo As Integer

    Integer.TryParse(txtFrom.Text, intFrom)
    Integer.TryParse(txtTo.Text, intTo)
    lstNumbers.Items.Clear()

    For intList As Integer = intFrom To intTo
        lstNumbers.Items.Add(intList)
    Next intList
End Sub

---

我曾尝试将Dim intList用作Integer=intFrom到intTo，但这给了我一个语句结束时预期的错误

我已经尝试了你的代码，它可以正常工作，没有任何错误。 这只是我的想法，但从事件处理程序声明中，我看到它处理按钮btnForNext的单击事件，从界面上看，它可能不是您应该为Do…循环预测试单击的按钮。

---

可能您刚刚将事件编码为错误的按钮。

您需要一个按钮。按下按钮开始打印用户输入。然后将输入转换为整数。这应该是一个好的开始，然后你可以看看循环。嗨-欢迎来到SO。请复习。请展示您迄今为止尝试过的内容，以及为什么不尝试work@HardcoreHenry，谢谢你让我知道。我已经编辑了我的帖子。你已经有了for循环，在这种情况下，do循环非常相似。看看，有一些很好的例子。@the_lotus可能我遗漏了一些东西，因为我对编程非常陌生，但我查看了您提供的文档，不知道如何让循环使用用户在文本框中输入的数字。程序必须输出用户在From:框中输入的内容与用户在to:框中输入列表框中的内容之间的所有数字。非常感谢你的链接！很高兴我能帮忙。请点击答案左侧的复选标记接受我的答案。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    'You get the input from the user exactly like you did for the For loop
    Dim intFrom As Integer
    Dim intTo As Integer

    Integer.TryParse(TextBox1.Text, intFrom)
    Integer.TryParse(TextBox2.Text, intTo)
    ListBox2.Items.Clear()

    'You want your do loop to keep looping While the intFrom is less than or Equal to intTo
    'The trick is to increment intFrom on every iteration or you will have an infinite loop
    Do While intFrom <= intTo
        ListBox2.Items.Add(intFrom)
        intFrom += 1
    Loop
    'Alternatively
    'Here you loop will continue Until intFrom is greater than intTo
    Do Until intFrom > intTo
        ListBox2.Items.Add(intFrom)
        intFrom += 1
    Loop
    'Both are pre-tests - choose one
End Sub