Question

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

麻烦过程具体一点。。。

Answer 1

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 Sub

Answer 2

for i=100 to 300

if n mod 3=0 and n mod 7=0 then

sum=sum+n

end if
next