为什么输入框让我做两次？

Question

我正试图在循环中接受一个值，并在每次按下时将其添加到列表中。出于某种原因，我必须为要添加到列表的输入添加两次值。例如，如果我在输入框中输入字符串“hello”并单击“确定”，则它不会添加到列表中，但如果我再次执行该操作，则会进入。

以下是代码

Do Until lstCourse.Items.Count = CDbl(txtClasses.Text)
    InputBox("Enter Course Number", "Course Number")
    strCourse = InputBox("Enter Course Number", "Course Number")
    lstCourse.Items.Add(strCourse)
Loop

感谢任何帮助 谢谢

Answer 1

每次迭代都会显示两次输入框。您第一次没有使用返回值做任何事情。你唯一需要的是：

strCourse = InputBox("Enter Course Number", "Course Number")

您可能会认为您所看到的是2次循环迭代，但您只看到1次。