Почему поле ввода заставляет меня сделать это дважды?

Question

Я пытаюсь получить в цикле, чтобы принять значение и добавить его в список каждый раз, когда нажимается ОК. По какой-то причине я должен добавить значение дважды для ввода, который будет добавлен в список. Например, если я ввожу строку «привет» в поле ввода и нажимаю «ОК», он не добавляется в список, но если я делаю это во второй раз, он входит.

Вот код для этого

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")

Вы можете подумать, что вы видите, что это две итерации цикла, но вы видите только 1.