VB的我知道
Private Sub Form_Click()
Dim sum As Integer
For i = 1 To 100
If i Mod 3 = 0 Then
sum = sum + i
End If
Next
Print sum
End Sub
单机窗体 OK