なぜ入力ボックスは私に2回それをさせるのですか？

Question

私は値を受け入れて、大丈夫が押されるたびにそれをリストに追加するinループを取得しようとしています。何らかの理由で、リストに追加する入力値を2回追加する必要があります。たとえば、入力欄に「hello」という文字列を入力して「OK」をクリックすると、リストには追加されませんが、2回目に入力すると入力されます。

これはコードです

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.