Option Explicit |
Private Sub Command1_Click() |
Dim a1, a2, b As Integer |
Dim i, n As Integer |
n = InputBox( "显示数列的前N项" ) |
a1 = 1 |
For i = 1 To n |
b = a1 + a2 |
Text1.SelText = b & " " |
a1 = a2 |
a2 = b |
Next i |
End Sub |
Private Sub Command2_Click() |
End |
End Sub |