حلقه for

[mahdivita]

سلام
میخواستم به وسیله ی حلقه forو روش فیبوناچی جواب زیر رو بدست بیاره
1-3+5-7تا20 اعداد فرد و یک در میون علامتش عوض میشه یه بار- و یک بار+

[hosein320]

سلام

dim a,b,i as integer
dim c as string
a=1
c="-"
for i = 1 to 17 step 2
a=i+2
select case c
case c="-"
b=b+i-a
c="+"
case c="+"
b=b+i+a
c="-"
end select
next


اگه مشکل کوچیک داشت ببخشین
من وی بی 6 نصب نداشتم:لبخندساده:

[SlowCode]

سلام
Function Fib(n As Byte) As String
Dim x, g, i, sum As Integer, z As String
x = 1
y = 1
f = 1 & " + " & y
For i = 1 To n
sum = x + y
If i Mod 2 Then ch = " - " Else ch = " + "
f = f & ch & sum
x = y
y = sum
Next i
Fib = f
End Function
طرز استفاده:

Private Sub Form_Load()
MsgBox Fib(10)
End Sub

[mahdivita]

سلام
خیلی ممنون از همکاریتون ولی فکر میکنم که مشکل داشته باشه

[hosein320]

کد درست شد
ببخشید حواسم نبود:اشتباه: