یک برنامه فکر نکنم ریاضی

[Nabavi]

سلام دوستان خسته نباشید :

یک برنامه می خوام با حلقه که 5 تا عدد را بگیره و بر عکس پرینت کند از آرایه باید استفاده کرد و از هیچ تابعی نباید استفاده کرد؟
مثلاً اعداد :
1
2
3
4
5

را بگیره و بعد خروجی زیر را روی فرم پرینت کند :
5
4
3
2
1

ممنون

 

[the_king]

سلام دوستان خسته نباشید :

یک برنامه می خوام با حلقه که 5 تا عدد را بگیره و بر عکس پرینت کند از آرایه باید استفاده کرد و از هیچ تابعی نباید استفاده کرد؟
مثلاً اعداد :
1
2
3
4
5

را بگیره و بعد خروجی زیر را روی فرم پرینت کند :
5
4
3
2
1

ممنون

اگه از هیچ تابعی استفاده نشه، پس مقادیر رو چطور می خوانید؟

Private Sub Form_Load()
    Dim Index As Long
    Dim MyArray(1 To 5) As Double
    For Index = 1 To 5
        MyArray(Index) = InputBox("Number :")
    Next
    AutoRedraw = True
    For Index = 5 To 1 Step -1
        Print MyArray(Index)
    Next
End Sub