Dim i, toplam As Integer
       
For i = 1 To 99 Step 2
           
toplam = toplam + i
       
Next


       
MsgBox("toplam sonuc=" & toplam)