Question

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

Answer 1

Imports System

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

        For i As Integer = 1 To 1000 - 1
            If i Mod 3 = 0 OrElse i Mod 5 = 0 Then
                sum += i
            End If
        Next

        Console.WriteLine("The sum of all multiples of 3 or 5 below 1000 is: " & sum)
    End Sub
End Class



' run:
'
' The sum of all multiples of 3 or 5 below 1000 is: 233168
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Linq

Class Program
	Public Shared Sub Main()
        Dim sum As Integer = Enumerable.Range(0, 1000).Where(Function(x) x Mod 3 = 0 OrElse x Mod 5 = 0).Sum()
			
        Console.WriteLine(sum)
    End Sub
End Class



' run:
'
' 233168
'

 

70+ SQL courses for beginners and professionals