Wie füge ich 10 Nummern zu einer ListBox mit weniger Code hinzu?

Question

Ich habe dies codiert. Es ist in Ordnung, aber kann ich es mit weniger Code schreiben?

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 

wenn Sie nicht meine Frage verstehen können Sie das folgende Beispiel lesen:

Wir

codieren können

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

aber wir können es in einer prägnanten Art und Weise Code wie diese

Dim A, B, C, D As Integer 

Answer 1

Ich glaube, Sie suchen nach einer For-Schleife:

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