درخواست كد يك برنامه

با سلام
دبير رياضيمون گفته يه برنامه با وي‍ژوال بيسيك براش بنويسيم ( مربوط به درس فاكتوريله) دوستان لطف كنن كدش رو به من بدن.

برنامه اي بنويسيد كه با اعداد 0 تا 10، تعدادي اعداد 3 رقمي بنويسد بطوريكه:
الف) محدوديتي نداشته باشد
ب) فرد باشند
ج) زوج باشند

توضيح: در مورد الف منظور از محدوديت اين است كه هر تعداد اعدادي كه ميتوان با اين اعداد ساخت را چاپ كند.

با تشكر

یعنی نوشتن این برنامه این قدر سخته؟

کد:

---

Private Sub Command1_Click()
f1 = 1
f2 = 1
n = Val(InputBox("plese enter new number"))
For i = 3 To n
    f3 = f1 + f2
    f1 = f2
    f2 = f3
    Print i, "****", f3
Next
End Sub

---

اوه شرمنده من فك كردم برنامه فاكتوريل رو ميخواهي اين بالايي فاكتوريله!!!!!!!!! در ضمن اين سوالت رومن كه اصلا نفهميدم ؟‌

-----------------------