For döngü Hakkında

[toprak2349]

Sub örnek()
t = 1
For i = 10 To 50 Step 5

sayı & t & = i

t = t + 1
Next i

Me.label12.Caption = sayı8


End Sub

Kod örneği içinde " sayı & t & = i " kodunda hata veriyor !!! Bu sorunu nasıl çözebilirim ? Sonucu exceldeki hücreye yazdırmayacağım. Kod satırı içinde sayı1=10---sayı2=15---sayı3=20 ... şeklinde hafızasında tutsun istiyorum....

 

[muygun]

Merhaba;

Private Sub CommandButton1_Click()
Dim sayı(100) As Integer
t = 0
For i = 0 To 500 Step 5
sayı(t) = i
t = t + 1
Next i
Me.label12.Caption = sayı(8)
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[toprak2349]

Merhaba;

Private Sub CommandButton1_Click()
Dim sayı(100) As Integer
t = 0
For i = 0 To 500 Step 5
sayı(t) = i
t = t + 1
Next i
Me.label12.Caption = sayı(8)
End Sub

Şeklinde deneyin.
İyi çalışmalar.

Teşekkürler. Bu durumda sayı(5) değerini buluyor. Ama döngünün içinde iken sayı(t) değeri daima sıfır (0) olarak görüyor. sayı(t) değerini de i değişkenine bağlayabilir miyiz ? Yani şu Me.label12.Caption = sayı(t) ???

 

[muygun]

Tam anlamadım.
Burada boyut sıfırdan başlar.
sizin döngü 5 ve 5 lerin katları
eğer boyut değişken no'su i değişkenine eşitlenirse 5 ve 5 in katları dışında değeri sıfır alırsınız.
yani sayı(t) yerine sayı(i) yapacaksınız.
burada i yerine 5,10,15... gibi değer yazacaksınız.
örn:40 için sayı(i) yerine sayı(40) yazmalısınız 5*8=40 gibi...

Private Sub CommandButton1_Click()
Dim sayı(500) As Integer
t = 0
For i = 0 To 500 Step 5
sayı(t) = i
t = t + 5
Next i
Me.label12.Caption = sayı(40)
End Sub