for next step döngüsü

1 2
25/03/2009, 12:46

accessman

iyi günler arkadaşlar
for next döngüsü nasıl oluyor
mesala a sayısı için
"a" ve "-a" ve "sıfır" sayılarını döngüde kullanamak istiyorum
şu şekilde mi yazmam lazım
-------------------------
for b = b * (-1) to b step b
for a = a * (-1) to a step a
c = a + b
next a
next b
--------------------------
bunun için şu sonuçları almak istiyorum
c= -a + -b
c= -a + 0
c= -a + b
c= 0 + -b
c= 0 + 0
c= 0 + b
c= a + -b
c= a + 0
c= a + b
-------------------------
yardımlarınız için teşekkürler
25/03/2009, 14:12

Krizantem

Kod:
for i=-1 to 1
  for j=-1 to 1
    c=(i*a)+(j*b)
  next
next
25/03/2009, 14:21

accessman

çok teşekkürler
mesala 1 den 100 kadar sadece 5 ve katlarını kullanmamız gerekseydi nasıl yazmamız lazımdı
25/03/2009, 15:08

esrefigit

step 5 yaz
25/03/2009, 15:15

Seruz

Kod:
For i=5 to 100 Step 5

5 ve katları olacaksa, 1 den 100'e değil, 5'den 100'e yazılmalı.
"1 to 100 step 5" yazılırsa, değerler 1,6,11,16.... şeklinde döner.
25/03/2009, 15:16

esrefigit

Private Sub Komut6_Click()
Dim sakla As String
Dim i As Integer
Dim j As Integer

For i = -1 To 1
For j = -1 To 1
sakla = sakla & (i * Me.a) + (j * Me.b) & vbCrLf
Next
Next
Me.c = sakla
End Sub



buda diğeri
Private Sub Komut6_Click()
Me.c = Null
Dim sakla As String
Dim i As Integer
Dim j As Integer
For i = 1 To 100 Step 5
For j = 1 To 100 Step 5
sakla = sakla & (i * Me.a) + (j * Me.b) & vbCrLf
Next
Next
Me.c = sakla
End Sub
1 2