Question

How to sum array values in a given range with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function sumRangeValues(ByVal arr As Integer(), ByVal from As Integer, ByVal [to] As Integer) As Integer
        Dim sum As Integer = 0
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            If i >= from AndAlso i <= [to] Then sum += arr(i)
        Next

        Return sum
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {3, 6, 0, 9, 1, 2, 8, 7, 4, 17}
        Dim from As Integer = 3, [to] As Integer = 7
		
        Console.Write(sumRangeValues(arr, from, [to]))
    End Sub
End Class



' run:
'
' 27
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Function sumRangeValues(ByVal arr As Integer(), ByVal from As Integer, ByVal to_ As Integer) As Integer
        Dim sum As Integer = 0
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            If i >= from AndAlso i <= to_ Then sum += arr(i)
        Next

        Return sum
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {3, 6, 0, 9, 1, 2, 8, 7, 4, 17}
        Dim from As Integer = 3, to_ As Integer = 7
		
        Console.Write(sumRangeValues(arr, from, to_))
    End Sub
End Class



' run:
'
' 27
'

 

70+ SQL courses for beginners and professionals