Private Sub Form_Click() Dim n As Integer n = Val(InputBox("请输入N:")) Dim a, b As Long a = 1: b = 1 For i = 1 To n Print a &""&b &"&qu 展开
Private Sub Form_Click() Dim n As Integer n = Val(InputBox("请输入N:")) Dim a, b As Long a = 1: b = 1 For i = 1 To n Print a &""&b &"";a = a + b: b = b + a Next iEnd Sub 收起
