作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/14 15:27:55
计算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