Question

How to check if a string contain only two same repeating characters in VB.NET

Answer 1

Imports System
                 
Public Module Module1
    Function contain_only_two_same_repeating_chars(s As String) As Boolean 
        Dim len As Integer = s.Length
		
        if (len Mod 2 <> 0) Then return false
        For i As Integer = 0 To len - 3 
            If (s(i) <> s(i + 2)) Then return false
        Next 
       
        return true  
    End Function 
             
    Public Sub Main()
        Dim s As String = "ababababab"
        
        If (contain_only_two_same_repeating_chars(s)) Then
            Console.WriteLine("Yes")
        else
            Console.WriteLine("No")
        End If
    End Sub
End Module
         
         
         
' Run
'
' Yes
'

 

70+ SQL courses for beginners and professionals