急！！VB程序设计

来源：百度知道 编辑：UC知道 时间：2024/06/22 01:59:35
!(事件)双击窗体;（响应）求1+2+3+5+8+13+。。。前二十项的和，并将结果在窗体上输出，将结果存入变量SUM中。

楼上的题目看错了。

Dim sum As Long
Dim i As Long
Dim lt1 As Long, lt2 As Long, lt3 As Long

Private Sub form_dblclick()
sum = 0
lt1 = 0
lt2 = 1
For i = 1 To 20
lt3 = lt1 + lt2
sum = sum + lt3
lt1 = lt2
lt2 = lt3
Next i
Print sum
End Sub

结果显示：
28655

Dim sum As Integer
Private Sub Form_DblClick()
sum = 0
For i = 1 To 20
sum = sum + i
Next i
Print sum
End Sub

留名看答案