Alıntı:
Gercek Mesajı Gonderen ozanxy
-Do While-Loop dongusu ile n sayı sayı giriniz komutu veren kod(ornegin 1.sayıyı gir ,2.sayıyı gir seklinde soran) (BU DONGUYU SINIRLANDIRAMADIM SONSUZA KADAR İSTİYO SAYIYI ARKADASLAR =( )

Private Sub Command1_Click()
Dim cevap As String, n As Integer, sayı() As Integer

cevap = InputBox("kac sayı gireceksiniz?")
If Not IsNumeric(cevap) Then
MsgBox ("Sayısal bir deger gir")
Exit Sub
End If

n = cevap
ReDim sayı(n)

For i = 1 To n
cevap = InputBox(i & ".sayısal deger gir")
sayı(i) = Val(cevap)
Next i

buyuk = sayı(1)

For i = 2 To n
If sayı(i) > buyuk Then buyuk = sayı(i)
Next i
kucuk = sayı(1)

Text1.Text = buyuk

For i = 2 To n
If sayı(i) < kucuk Then kucuk = sayı(i)
Next i
Text2.Text = kucuk

For i = 1 To n
toplam = toplam + sayı(i)
Next i
Text3.Text = toplam

ort = toplam / n
Text4.Text = ort
End Sub
(ARKADASLLAR BUNU DO-WHİLE LOOP DONGUSUYLE YAZMAM LAZIM LUTFEN YARDIM )
__________________