dizi tanımlayarak yaparsan kolay olur. aşağıdaki gibi. dim sayi(3) yazısını general declaration bölümünde tanımlarsan programın heryerinde kullanabilirsin.
Private Sub Command1_Click()
Dim sayi(3)
d = Val(Text1.Text)
For i = 0 To d - 1
sayi(i) = InputBox(i + 1 & ". sayıyı giriniz")
List1.AddItem sayi(i)
Next
End Sub
<<< 10-HAGİ-10 >>>