VB编程序求出1-200以内的能被7整除的数的平方和

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim i, lngResult As Long
    For i = 0 To 200
        DoEvents
        If i Mod 7 = 0 Then
            lngResult = lngResult + i * i
        End If
    Next
    MsgBox "结果：" & lngResult
End Sub

Private Sub Command1_Click()
Dim i%, s&
For i = 1 To 200
If i Mod 7 = 0 Then s = s + i ^ 2
Next
MsgBox "平方和为:" & s
End Sub

Dim a, b As Integer
Dim s As Double

Private Sub Form_Click()
For a = 1 To 200<