编程竞赛题目

第一个数为1，第二个数为前面的数之和也就是1，第3个数是前面的和为2，，求到M的和。PSCIAL语言

是这个吗

Private Sub Form_Click()
Dim t1 As Long, t2 As Long, t3 As Long
t1 = 0
t2 = 0
t3 = 1
b = 3
Print t1; t2; t3;
While b <> 30
t4 = t1 + t2 + t3
Print t4;
b = b + 1
If b Mod 10 = 0 Then Print
t1 = t2
t2 = t3
t3 = t4
Wend
End Sub