درخواست آموزش چند برنامه ساده .. كمك

سلام به همگي.
تروخدا كمكم كنيد تا فردا بيشتر وقت ندارم.
يكي بگه چجوري جدول ضرب اعداد فرد و سري فيبوناچي رو با for بنويسم؟

يعني هيچكس بلد نيست؟ تروخدا عجله دارم.

کد:

---

for i = 1 to 10 step 2
for j = 1 to 10 step 2
print i*j

---

فيبوناچي:

کد:

---

a=1
b=1
print a,b
for i = 1 to n
c=a+b
print c
a=b
b=c
next i

---

دوست عزيز من اين رنامه رو چك نكردم اما اگر باز هم اينطوري عجله داشتي پيشنهاد ميكنم كه در اينترنت سرچ كني چون اين برنامه ها خيلي رايجند به هر زباني در اينترنت يافت مي شوند. موفق باشيد

سلام.
من درست نفهیدم شما چی گفتین چون نمیدونم این فیرانچی چیه؟
جدول ضرب با یک حلقه:

کد:

---

    Dim i, c, w As Integer
    c = 1
    For i = 1 To 100
        Print i * c;
        If i Mod 10 = 0 Then
            Print
            c = c + 1
            If c = 11 Then
                Exit For
            End If
            Print c;
            i = 1
        End If
    Next

---

با دو حلقه:

کد:

---

    For i = 1 To 10
        Print
        For c = 1 To 10
            Print i * c;
        Next
    Next

---

جدول ضرب اعداد فرد:

کد:

---

    Dim i, c, w As Integer
    c = 1
    For i = 1 To 100 Step 2
        Print i * c;
        If i Mod 9 = 0 Then
            Print
            c = c + 2
            If c = 11 Then
                Exit For
            End If
            Print c;
            i = 1
        End If
    Next

---

با دو حلقه:

کد:

---

    For i = 1 To 10 Step 2
        Print
        For c = 1 To 10 Step 2
            Print i * c;
        Next
    Next

---

موفق باشید و سربلند.

از همتون ممنون به موقع كمكم كرديد.