برنامه زیر 20 جمله اول سری فیبوناچی را نمایش میدهد :
Private Sub Command24_Click()
Cls
Dim a As Integer, b As Integer, c As Integer, i As Integer
a = 1
For i = 1 To InputBox("Enter number of fibonacci series you want to make", , 20)
c = a + b
Print c
a = b
b = c
Next
End Sub