To display 1,1,2,3,5,8........up to10th term

CLS
A = 1
B = 1
FOR I = 1 To 10
C = A + B
A = B
B = C
NEXT I
END