Question

How to check if a sequence of numbers is a Geometric progression (consecutive ratios are the same) in VB.NET

Answer 1

Imports System

Public Class SequenceIsGeometricProgression_VB_NET
    Public Shared Function isGeometricProgression(ByVal arr As Integer()) As Boolean
        Dim size As Integer = arr.Length

        If size = 1 Then
            Return True
        End If

        Dim ratio As Integer = arr(1) / (arr(0))

        For i As Integer = 1 To size - 1
            If (arr(i) / (arr(i - 1))) <> ratio Then
                Return False
            End If
        Next

        Return True
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer() {9, 27, 81, 243, 729, 2187}
	
        Console.WriteLine(If(isGeometricProgression(arr), "Yes", "No"))
    End Sub
End Class



' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals