Question

How to get the middle character from string in VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim s AS String = "programming"
           
		Dim index As Integer = Math.Floor(s.Length / 2)
 
        Console.Write(s(index))
	End Sub
End Module



' run:
' 
' a
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim s AS String = "python"
		Dim len AS Integer = s.Length
		Dim index As Integer = Math.Floor(len / 2)
 
  		
		If len Mod 2 = 1  Then
             Console.Write(s(index))
		ElseIf len Mod 2 = 0 Then
             Console.Write(s(index - 1))
             Console.Write(s(index))
		End if
	End Sub
End Module



' run:
' 
' th
'

 

70+ SQL courses for beginners and professionals