AccessTr.neT

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

çok teşekkürler
mesala 1 den 100 kadar sadece 5 ve katlarını kullanmamız gerekseydi nasıl yazmamız lazımdı

step 5 yaz

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.

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