计算100~300之间所有能被3和7整除的数之和如何用VB书写

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sum As Integer
        sum = 0
        Dim i As Integer
        For i = 100 To 300
            ' 如果能被3整除且被7整除,则累加
            If 0 = i Mod 3 And 0 = i Mod 7 Then
                sum = sum + i
            End If
        Next i
        MsgBox(sum)
    End Su