Option Explicit
Private Sub Form_DblClick()
Dim i As Integer
Dim s As Long
For i = 20 To 263
s = s + i
Next i
Print "s=" & s
End Sub
结果：s=34526