自体脂肪丰额头多少钱:vb小问题,会的帮帮忙

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/04 07:05:34
编写程序
输出:
0
1 1
2 3 5
8 13 21 34
……
(共六行)

Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
a = 1
b = 0
For i = 0 To 6
For j = 0 To i
Print c;
c = a + c
a = b
b = c
Next
Print
Next
End Sub