Question

How to find the sum of all the multiples of 3 or 5 below 10 in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim sum As Integer = 0

        For i As Integer = 3 To 10 - 1
            If i Mod 3 = 0 OrElse i Mod 5 = 0 Then
                Console.WriteLine(i)
                sum += i
            End If
        Next

        Console.Write("sum = " & sum)
    End Sub
End Class



' run:
'
' 3
' 5
' 6
' 9
' sum = 23
' 

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
 
Public Class Program
    Public Shared Function Summ(ByVal n As Integer) As Integer
        Return (n * (n + 1)) / 2
    End Function
 
    Public Shared Sub Main(ByVal args As String())
        Dim below10 As Integer = 9
         
        Dim sum As Integer = 3 * Summ(Math.Floor(below10 / 3)) + 5 * Summ(Math.Floor(below10 / 5)) - (3 * 5) * Summ(Math.Floor(below10 / 15))
         
        Console.Write("sum = " & sum)
    End Sub
End Class
 
 
 
' run:
'
' sum = 23
'

 

70+ SQL courses for beginners and professionals