少ないコードでListBoxに10個の数字を追加するには？

Question

これをコード化しました。それは問題ありませんが、少ないコードで書くことができますか？

If D = 10 Then 
     ListBox3.Items.Add(1) 
     ListBox3.Items.Add(2) 
     ListBox3.Items.Add(3) 
     ListBox3.Items.Add(4) 
     ListBox3.Items.Add(5) 
     ListBox3.Items.Add(6) 
     ListBox3.Items.Add(7) 
     ListBox3.Items.Add(8) 
     ListBox3.Items.Add(9) 
     ListBox3.Items.Add(10) 
    End If 

あなたは私の質問を理解していない場合は、次の例読むことができます：

を我々は

Dim A As Integer 
Dim B As Integer 
Dim C As Integer 
Dim D As Integer 

をコーディングすることができますが、我々はこの

ような、より簡潔な方法でそれをコーディングすることができます

Dim A, B, C, D As Integer 

Answer 1

私はあなたがForループを探していると思います：

For i As Integer = 1 To 10 
     ListBox3.Items.Add(i) 
    Next