Skip to main content

AccessTr.neT


for next step döngüsü

for next step döngüsü

Çözüldü #1
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
Cevapla
Çözüldü #2
Kod:
for i=-1 to 1
  for j=-1 to 1
    c=(i*a)+(j*b)
  next
next

Son Düzenleme: 25/03/2009, 14:13, Düzenleyen: Krizantem.
Cevapla
Çözüldü #3
çok teşekkürler
mesala 1 den 100 kadar sadece 5 ve katlarını kullanmamız gerekseydi nasıl yazmamız lazımdı
Cevapla
Çözüldü #4
step 5 yaz
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #5
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.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #6
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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da