VB.Net Console Programs Archives

VB.Net Program to print Numbers 1 to N in Right Triangle Format

VB.Net Program to print Numbers 1 to N in Right Triangle Format Module Module1 Sub Main() Dim sum As Integer = 0, i As Integer, k As Integer, n As Integer Console.WriteLine(“*** www.programmingposts.com ***”) Console.WriteLine(vbLf & “>>> VB.Net Program to print Numbers 1..n as Right Triangle… Continue Reading VB.Net Program to print Numbers 1 to N in Right Triangle Format

Declaring constants in VB.Net

In this article we will see a small example of using constants in vb.net . constants are declared with a keyword const . Example : ConstPI As Double = 3.14 ConstmyStr As String= “*** www.ProgrammingPosts.blogspot.com ***” The program below is to find the area and perimeter of… Continue Reading Declaring constants in VB.Net

VB.NET Program to get File Names in a Folder / Directory

In this post we will see a VB.Net Program to retrieve list of file names in a given folder/directory.

Imports System.IO
Module Module1

Sub Main()
Try
Dim FolderPath As String
Dim Files As String() 'declaring string array
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FILES NAMES IN A Given Directory  <<<")
            Console.WriteLine(" Enter the Directory Path to get File Names in it : ")
            FolderPath = Console.ReadLine()
            Files = Directory.GetFiles(FolderPath)
            Console.WriteLine(vbLf & " The FileNames with extension in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files
' Creating the FileInfo object
Dim fi As System.IO.FileInfo = Nothing
Try
                    fi = New System.IO.FileInfo(FileName)
Catch ex As System.IO.FileNotFoundException
' To inform the user and continue
                    Console.WriteLine(ex.Message)
                    Continue For
End Try
' Console.WriteLine("{0}", fi.Directory);  //prints filepath
' Console.WriteLine("{0}", fi.DirectoryName); // prints directorypath
                Console.WriteLine("{0}", fi.Name)
Next
            Console.ReadLine()
Catch ex As DirectoryNotFoundException
            Console.BackgroundColor = ConsoleColor.Red
            Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")
            Console.ReadKey()
End Try
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

Imports System.IO

Module Module1

Sub Main()

Try

Dim FolderPath As String

Dim Files As String() 'declaring string array

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FILES NAMES IN A Given Directory <<<")

Console.WriteLine(" Enter the Directory Path to get File Names in it : ")

FolderPath = Console.ReadLine()

Files = Directory.GetFiles(FolderPath)

Console.WriteLine(vbLf & " The FileNames with extension in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files

' Creating the FileInfo object

Dim fi As System.IO.FileInfo = Nothing

Try

fi = New System.IO.FileInfo(FileName)

Catch ex As System.IO.FileNotFoundException

' To inform the user and continue

Console.WriteLine(ex.Message)

Continue For

End Try

' Console.WriteLine("{0}", fi.Directory); //prints filepath

' Console.WriteLine("{0}", fi.DirectoryName); // prints directorypath

Console.WriteLine("{0}", fi.Name)

Catch ex As DirectoryNotFoundException

Console.BackgroundColor = ConsoleColor.Red

Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")

Console.ReadKey()

End Try

End Sub

Sample Output :

VB.NET Program to get Files Full Path in a given Folder

In this post we will see a VB.Net Program to retrieve list of file names with full path in a given folder/directory.

Imports System.IO

Module Module1

    Sub Main()
        Try
            Dim FolderPath As String
            Dim Files As String() 'string array
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FULL FILES PATH IN A Given Directory  <<<")
            Console.WriteLine(vbLf & "Enter the Directory Path to get File Names in it : ")
            FolderPath = Console.ReadLine()
            Files = Directory.GetFiles(FolderPath)
            Console.WriteLine(vbLf & " The FilePaths in given Directory are : " & vbLf & vbLf)
            For Each FileName As String In Files
                Console.WriteLine(FileName)
            Next
            Console.ReadLine()
        Catch ex As DirectoryNotFoundException 'catching directory not found exception
            Console.BackgroundColor = ConsoleColor.Red
            Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")
            Console.ReadKey()
        Catch ex As Exception 'catching all other exceptions
            Console.BackgroundColor = ConsoleColor.Red
            Console.WriteLine(vbLf & vbLf & ex.Message)
            Console.ReadKey()
        End Try
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

Imports System.IO

Module Module1

Sub Main()

Try

Dim FolderPath As String

Dim Files As String() 'string array

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FULL FILES PATH IN A Given Directory <<<")

Console.WriteLine(vbLf & "Enter the Directory Path to get File Names in it : ")

FolderPath = Console.ReadLine()

Files = Directory.GetFiles(FolderPath)

Console.WriteLine(vbLf & " The FilePaths in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files

Console.WriteLine(FileName)

Catch ex As DirectoryNotFoundException 'catching directory not found exception

Console.BackgroundColor = ConsoleColor.Red

Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")

Console.ReadKey()

Catch ex As Exception 'catching all other exceptions

Console.BackgroundColor = ConsoleColor.Red

Console.WriteLine(vbLf & vbLf & ex.Message)

Console.ReadKey()

End Try

End Sub

End Module

Sample Output :

VB.NET Program to print Matrix in a Snail Shell Way

Module Module1

    Sub Main()

        Dim size As Integer
        Dim a As Integer = 0
        Dim i As Integer, j As Integer, k As Integer, count As Integer = 0, flag As Integer = 0

        Do
            Try
                Console.WriteLine("www.ProgrammingPosts.blogspot.com")
                Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT A MULTI-DIMENSIONAL ARRAY IN A SNAIL SHELL WAY <<<")
                Console.Write(vbLf & " Enter the Size of a square Matrix(between 2 to 10):")
                size = Convert.ToInt16(Console.ReadLine())
                If size < 2 OrElse size > 10 Then
                    'limiting the size of matrix
                    Console.BackgroundColor = ConsoleColor.DarkRed
                    'changing background color to red
                    Console.WriteLine("The Size Of Matrix should Be in between  2 and 10.")
                    'System.Console.ResetColor(); 'resetting color
                    Console.ReadKey()
                    Return
                Else



                    flag = 1
                    Dim matrix As Integer(,) = New Integer(size - 1, size - 1) {}

                    k = 1
                    While k < size
                        i = a
                        j = a
                        While j < size - k
                            'lef
                            matrix(i, j) = System.Threading.Interlocked.Increment(count) ' this is equal to count++
                            j += 1
                        End While
                        i = a
                        j = size - k
                        While i < size - k
                            matrix(i, j) = System.Threading.Interlocked.Increment(count)
                            i += 1
                        End While
                        i = size - k
                        j = size - k
                        While j >= a
                            matrix(i, j) = System.Threading.Interlocked.Increment(count)
                            j -= 1
                        End While
                        i = size - (k + 1)
                        j = a
                        While i >= k
                            matrix(i, j) = System.Threading.Interlocked.Increment(count)
                            i -= 1
                        End While
                        k += 1
                        a += 1
                    End While


                    Console.Write(vbLf & vbLf & vbTab)
                    For i = 0 To size - 1

                        For j = 0 To size - 1
                            If matrix(i, j) < 10 Then
                                Console.Write("  0" & Convert.ToString(matrix(i, j)))
                            Else
                                Console.Write("  " & Convert.ToString(matrix(i, j)))
                            End If

                            If j = size - 1 Then
                                Console.Write(vbLf & vbTab)

                            End If
                        Next
                    Next
                End If
            Catch
                'to catch exceptions,suppose string entered as a size of matrix
                Console.BackgroundColor = ConsoleColor.DarkRed
                Console.WriteLine("WARNING:only Number between (2 and 10) is allowed")
                Console.ResetColor()
            End Try


            Console.WriteLine(vbLf & vbLf & vbTab & " Press any key to exit....")
        Loop While flag = 0

        Console.ReadKey()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

Module Module1

Sub Main()

Dim size As Integer

Dim a As Integer = 0

Dim i As Integer, j As Integer, k As Integer, count As Integer = 0, flag As Integer = 0

Do

Try

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT A MULTI-DIMENSIONAL ARRAY IN A SNAIL SHELL WAY <<<")

Console.Write(vbLf & " Enter the Size of a square Matrix(between 2 to 10):")

size = Convert.ToInt16(Console.ReadLine())

If size < 2 OrElse size > 10 Then

'limiting the size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

'changing background color to red

Console.WriteLine("The Size Of Matrix should Be in between 2 and 10.")

'System.Console.ResetColor(); 'resetting color

Console.ReadKey()

Return

Else

flag = 1

Dim matrix As Integer(,) = New Integer(size - 1, size - 1) {}

k = 1

While k < size

i = a

j = a

While j < size - k

'lef

matrix(i, j) = System.Threading.Interlocked.Increment(count) ' this is equal to count++

j += 1

End While

i = a

j = size - k

While i < size - k

matrix(i, j) = System.Threading.Interlocked.Increment(count)

i += 1

End While

i = size - k

j = size - k

While j >= a

matrix(i, j) = System.Threading.Interlocked.Increment(count)

j -= 1

End While

i = size - (k + 1)

j = a

While i >= k

matrix(i, j) = System.Threading.Interlocked.Increment(count)

i -= 1

End While

k += 1

a += 1

End While

Console.Write(vbLf & vbLf & vbTab)

For i = 0 To size - 1

For j = 0 To size - 1

If matrix(i, j) < 10 Then

Console.Write(" 0" & Convert.ToString(matrix(i, j)))

Else

Console.Write(" " & Convert.ToString(matrix(i, j)))

End If

If j = size - 1 Then

Console.Write(vbLf & vbTab)

End If

Catch

'to catch exceptions,suppose string entered as a size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

Console.WriteLine("WARNING:only Number between (2 and 10) is allowed")

Console.ResetColor()

End Try

Console.WriteLine(vbLf & vbLf & vbTab & " Press any key to exit....")

Loop While flag = 0

Console.ReadKey()

End Sub

End Module

Sample Output :

VB.Net Program to Perform Subtraction on Matrices using Arrays

Module Module1

    Sub Main()

        'using 2D-ARRAYS
        Dim RowSize As Integer = 5, ColSize As Integer = 5
        'declaring 2-d arrays below
        Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim i As Integer, j As Integer


        Try
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT SUBTRACTION OF TWO MATRICES <<" & vbLf)
            Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")
            Dim s As String = Console.ReadLine()
            Dim values As String() = s.Split("*"c)
            RowSize = Integer.Parse(values(0))
            ColSize = Integer.Parse(values(1))

            If RowSize > 5 OrElse ColSize > 5 Then
                'limiting the size of matrix
                Console.BackgroundColor = ConsoleColor.DarkRed
                'changing background color to red
                Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")
                System.Console.ResetColor()
                'resetting color
                Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
                Console.ReadKey()
                Return
            Else



                'Reading elements of Matrix1
                Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix1[{0},{1}] : ", i, j)
                        Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next
                'Reading elements of Matrix2
                Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix2[{0},{1}] : ", i, j)
                        Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next

                'calculating ResultMatrix, by subtracting Matrix2 from Matrix1 elements
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        ResultMatrix(i, j) = Matrix1(i, j) - Matrix2(i, j)
                    Next
                Next

                'Printing Result Matrix
                Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix  ***" & vbLf & vbLf & vbTab)
                For i = 0 To RowSize - 1

                    For j = 0 To ColSize - 1
                        If ResultMatrix(i, j) < 10 Then
                            'Making number as 01,02,etc,. 
                            Console.Write("  0" & Convert.ToString(ResultMatrix(i, j)))
                        Else
                            Console.Write("  " & Convert.ToString(ResultMatrix(i, j)))
                        End If

                        If j = ColSize - 1 Then
                            Console.Write(vbLf & vbTab)

                        End If
                    Next
                Next
            End If
        Catch
            'to catch exceptions,suppose string entered as a RowSize or Colsize  of matrix
            Console.BackgroundColor = ConsoleColor.DarkRed
            Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")
            Console.ResetColor()
        End Try

        Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
        Console.ReadLine()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

Module Module1

Sub Main()

'using 2D-ARRAYS

Dim RowSize As Integer = 5, ColSize As Integer = 5

'declaring 2-d arrays below

Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim i As Integer, j As Integer

Try

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT SUBTRACTION OF TWO MATRICES <<" & vbLf)

Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")

Dim s As String = Console.ReadLine()

Dim values As String() = s.Split("*"c)

RowSize = Integer.Parse(values(0))

ColSize = Integer.Parse(values(1))

If RowSize > 5 OrElse ColSize > 5 Then

'limiting the size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

'changing background color to red

Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")

System.Console.ResetColor()

'resetting color

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadKey()

Return

Else

'Reading elements of Matrix1

Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix1[{0},{1}] : ", i, j)

Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())

'Reading elements of Matrix2

Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix2[{0},{1}] : ", i, j)

Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())

'calculating ResultMatrix, by subtracting Matrix2 from Matrix1 elements

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

ResultMatrix(i, j) = Matrix1(i, j) - Matrix2(i, j)

'Printing Result Matrix

Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix ***" & vbLf & vbLf & vbTab)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

If ResultMatrix(i, j) < 10 Then

'Making number as 01,02,etc,.

Console.Write(" 0" & Convert.ToString(ResultMatrix(i, j)))

Else

Console.Write(" " & Convert.ToString(ResultMatrix(i, j)))

End If

If j = ColSize - 1 Then

Console.Write(vbLf & vbTab)

End If

Catch

'to catch exceptions,suppose string entered as a RowSize or Colsize of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")

Console.ResetColor()

End Try

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadLine()

End Sub

End Module

Sample Output 1: Sample Output 2:

VB.Net Program to Add Two Matrices

Module Module1

    Sub Main()

        'using 2D-ARRAYS
        Dim RowSize As Integer = 5, ColSize As Integer = 5
        'declaring 2-d arrays below
        Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim i As Integer, j As Integer


        Try
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT ADDITION OF TWO MATRICES <<" & vbLf)
            Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")
            Dim s As String = Console.ReadLine()
            Dim values As String() = s.Split("*"c)
            RowSize = Integer.Parse(values(0))
            ColSize = Integer.Parse(values(1))

            If RowSize > 5 OrElse ColSize > 5 Then
                'limiting the size of matrix
                Console.BackgroundColor = ConsoleColor.DarkRed
                'changing background color to red
                Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")
                System.Console.ResetColor()
                'resetting color
                Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
                Console.ReadKey()
                Return
            Else


                'Initializing all the elements to zero
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Matrix1(i, j) = 0
                        Matrix2(i, j) = 0
                    Next
                Next
                'Reading elements of Matrix1
                Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix1[{0},{1}] : ", i, j)
                        Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next
                'Reading elements of Matrix2
                Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix2[{0},{1}] : ", i, j)
                        Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next

                'calculating ResultMatrix, by adding Matrix1 and Matrix2
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        ResultMatrix(i, j) = Matrix1(i, j) + Matrix2(i, j)
                    Next
                Next

                'Printing Result Matrix
                Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix  ***" & vbLf & vbLf & vbTab)
                For i = 0 To RowSize - 1

                    For j = 0 To ColSize - 1
                        If ResultMatrix(i, j) < 10 Then
                            'Making number as 01,02,etc,. 
                            Console.Write("  0" & Convert.ToString(ResultMatrix(i, j)))
                        Else
                            Console.Write("  " & Convert.ToString(ResultMatrix(i, j)))
                        End If

                        If j = ColSize - 1 Then
                            Console.Write(vbLf & vbTab)

                        End If
                    Next
                Next
            End If
        Catch
            'to catch exceptions,suppose string entered as a RowSize or Colsize  of matrix
            Console.BackgroundColor = ConsoleColor.DarkRed
            Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")
            Console.ResetColor()
        End Try

        Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
        Console.ReadLine()

    End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

Module Module1

Sub Main()

'using 2D-ARRAYS

Dim RowSize As Integer = 5, ColSize As Integer = 5

'declaring 2-d arrays below

Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim i As Integer, j As Integer

Try

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT ADDITION OF TWO MATRICES <<" & vbLf)

Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")

Dim s As String = Console.ReadLine()

Dim values As String() = s.Split("*"c)

RowSize = Integer.Parse(values(0))

ColSize = Integer.Parse(values(1))

If RowSize > 5 OrElse ColSize > 5 Then

'limiting the size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

'changing background color to red

Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")

System.Console.ResetColor()

'resetting color

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadKey()

Return

Else

'Initializing all the elements to zero

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Matrix1(i, j) = 0

Matrix2(i, j) = 0

'Reading elements of Matrix1

Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix1[{0},{1}] : ", i, j)

Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())

'Reading elements of Matrix2

Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix2[{0},{1}] : ", i, j)

Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())

'calculating ResultMatrix, by adding Matrix1 and Matrix2

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

ResultMatrix(i, j) = Matrix1(i, j) + Matrix2(i, j)

'Printing Result Matrix

Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix ***" & vbLf & vbLf & vbTab)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

If ResultMatrix(i, j) < 10 Then

'Making number as 01,02,etc,.

Console.Write(" 0" & Convert.ToString(ResultMatrix(i, j)))

Else

Console.Write(" " & Convert.ToString(ResultMatrix(i, j)))

End If

If j = ColSize - 1 Then

Console.Write(vbLf & vbTab)

End If

Catch

'to catch exceptions,suppose string entered as a RowSize or Colsize of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")

Console.ResetColor()

End Try

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadLine()

End Sub

Sample output 1 : Sample output 2 : Sample output 3 :

VB.NET Program to Print Smiley Symbol

Module Module1

    Sub Main()

        Dim a As Integer = 1, b As Integer = 2, i As Integer
        Console.WriteLine("www.ProgrammingPosts.blogspot.com")
        Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT SMILEY SYMBOL <<" & vbLf)
        Console.WriteLine(vbLf & "ASCII SYMBOL OF 1" & vbLf)
        For i = 0 To 99
            'for loop prints ascii symbol of 1 for 100 times
            Console.Write(ChrW(a))
        Next
        Console.WriteLine()
        Console.WriteLine(vbLf & "ASCII SYMBOL OF 2" & vbLf)
        For i = 0 To 99
            'for loop prints ascii symbol of 2 for 100 times
            Console.Write(ChrW(b))
        Next

        'Console.Write(ChrW(1))  'this also prints the same
        Console.ReadKey()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

Module Module1

Sub Main()

Dim a As Integer = 1, b As Integer = 2, i As Integer

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT SMILEY SYMBOL <<" & vbLf)

Console.WriteLine(vbLf & "ASCII SYMBOL OF 1" & vbLf)

For i = 0 To 99

'for loop prints ascii symbol of 1 for 100 times

Console.Write(ChrW(a))

Console.WriteLine(vbLf & "ASCII SYMBOL OF 2" & vbLf)

For i = 0 To 99

'for loop prints ascii symbol of 2 for 100 times

Console.Write(ChrW(b))

Console.ReadKey()

End Sub

End Module

Output :

VB.NET Program to Print Love Symbol

Module Module1

    Sub Main()

        Dim a As Integer = 3, i As Integer
        Console.WriteLine("www.ProgrammingPosts.blogspot.com")
        Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT LOVE SYMBOL <<" & vbLf)
        For i = 0 To 249
            'for loop prints love symbol 250 times
            Console.Write(ChrW(a))
        Next
        'Console.Write((char)3) 'this also prints the same
        Console.ReadKey()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Module Module1

Sub Main()

Dim a As Integer = 3, i As Integer

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT LOVE SYMBOL <<" & vbLf)

For i = 0 To 249

'for loop prints love symbol 250 times

Console.Write(ChrW(a))

Console.ReadKey()

End Sub

End Module

Output : Explanation : Actually here we are printing the ASCII smbol of 3 . Which gives a love symbol. you can also print directly by writing the following code. Console.Write(Convert.ToChar(3)) or Console.Write(ChrW(3))

VB.Net Program to Find Factorial of given Number

Module Module1

    Sub Main()
        Dim num As Integer, i As Integer, fact As Integer = 1
        Console.WriteLine("www.ProgrammingPosts.blogspot.com")
        Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO FIND FACTORIAL OF GIVEN NUMBER <<" & vbLf)
        Console.Write(vbLf & " Enter the Number whose Factorial you want: ")
        num = Convert.ToInt32(Console.ReadLine())
        For i = num To 2 Step -1
            'i is intializing with num value and  is decremented till 2
            'fact is updating with changing value of i
            fact = fact * i
        Next

        Console.WriteLine(vbLf & " The factorial of {0} is {1}." & vbLf & vbLf, num, fact)
        Console.ReadLine()
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

Module Module1

Sub Main()

Dim num As Integer, i As Integer, fact As Integer = 1

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO FIND FACTORIAL OF GIVEN NUMBER <<" & vbLf)

Console.Write(vbLf & " Enter the Number whose Factorial you want: ")

num = Convert.ToInt32(Console.ReadLine())

For i = num To 2 Step -1

'i is intializing with num value and is decremented till 2

'fact is updating with changing value of i

fact = fact * i

Console.ReadLine()

End Sub

End Module

Sample Output :

VB.Net Program to find the Number Palindrome or not

Module Module1

    Sub Main()
        Dim num As Integer, remainder As Integer, sum As Integer = 0, temp As Integer
        Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")
        Console.WriteLine(vbLf & " >>>> To Find a Number is Palindrome or not <<<< ")
        Console.Write(vbLf & " Enter a number: ")
        num = Convert.ToInt32(Console.ReadLine())
        temp = num
        While Convert.ToBoolean(num)
            remainder = num Mod 10
            'for getting remainder by dividing with 10
            num = num / 10
            'for getting quotient by dividing with 10
            'multiplying the sum with 10 and adding remainder
            sum = sum * 10 + remainder
        End While
        Console.WriteLine(vbLf & " The Reversed Number is: {0} " & vbLf, sum)
        If temp = sum Then
            'checking whether the reversed number is equal to entered number
            Console.WriteLine(vbLf & " The given Number is Palindrome ")
        Else
            Console.WriteLine(vbLf & " The given Number is not a palindrome ")
        End If
        Console.ReadLine()
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

Module Module1

Sub Main()

Dim num As Integer, remainder As Integer, sum As Integer = 0, temp As Integer

Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")

Console.WriteLine(vbLf & " >>>> To Find a Number is Palindrome or not <<<< ")

Console.Write(vbLf & " Enter a number: ")

num = Convert.ToInt32(Console.ReadLine())

temp = num

While Convert.ToBoolean(num)

remainder = num Mod 10

'for getting remainder by dividing with 10

num = num / 10

'for getting quotient by dividing with 10

'multiplying the sum with 10 and adding remainder

sum = sum * 10 + remainder

End While

Console.WriteLine(vbLf & " The Reversed Number is: {0} " & vbLf, sum)

If temp = sum Then

'checking whether the reversed number is equal to entered number

Console.WriteLine(vbLf & " The given Number is Palindrome ")

Else

Console.WriteLine(vbLf & " The given Number is not a palindrome ")

End If

Console.ReadLine()

End Sub

End Module

Sample Output :

VB.Net Program to Print Reverse of a Number

Module Module1

    Sub Main()
        Dim num As Integer, remainder As Integer, sum As Integer = 0, rev As Integer
        Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")
        Console.WriteLine(vbLf & " >>> VB.NET Program To Find Reverse Of a Number <<<")
        Console.Write(vbLf & " Enter a number: ")
        num = Convert.ToInt32(Console.ReadLine())
        While Convert.ToBoolean(num)
            remainder = num Mod 10
            'for getting remainder by dividing with 10
            num = num / 10 'symbol is for Integer Division in vb.net
            'for getting quotient by dividing with 10
            sum = sum * 10 + remainder
        End While
        rev = sum
        Console.WriteLine(vbLf & " The Reversed Number is: {0} " & vbLf , rev)
        Console.ReadLine()
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Module Module1

Sub Main()

Dim num As Integer, remainder As Integer, sum As Integer = 0, rev As Integer

Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")

Console.WriteLine(vbLf & " >>> VB.NET Program To Find Reverse Of a Number <<<")

Console.Write(vbLf & " Enter a number: ")

num = Convert.ToInt32(Console.ReadLine())

While Convert.ToBoolean(num)

remainder = num Mod 10

'for getting remainder by dividing with 10

num = num / 10 'symbol is for Integer Division in vb.net

'for getting quotient by dividing with 10

sum = sum * 10 + remainder

End While

rev = sum

Console.WriteLine(vbLf & " The Reversed Number is: {0} " & vbLf , rev)

Console.ReadLine()

End Sub

End Module

Sample Output:

VB.Net Program to Print Sum Of Series 1+2+3+..+n

Module Module1

    Sub Main()
        Dim sum As Integer = 0, i As Integer, n As Integer
        Console.WriteLine("*** www.programmingposts.blogspot.com ***")
        Console.WriteLine(vbLf & ">>> VB.Net Program to print Sum of Series 1+2+3+..+n <<<")
        Console.Write(vbLf & " Enter the nth number of series: ")
        n = Convert.ToInt32(Console.ReadLine()) 'taking input, converting to Int
        For i = 1 To n
            sum += i 'calculating sum 
        Next
        Console.WriteLine(vbLf & " Sum of series upto  {0} is : {1}", n, sum)
        Console.ReadLine()
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

Module Module1

Sub Main()

Dim sum As Integer = 0, i As Integer, n As Integer

Console.WriteLine("*** www.programmingposts.blogspot.com ***")

Console.WriteLine(vbLf & ">>> VB.Net Program to print Sum of Series 1+2+3+..+n <<<")

Console.Write(vbLf & " Enter the nth number of series: ")

n = Convert.ToInt32(Console.ReadLine()) 'taking input, converting to Int

For i = 1 To n

sum += i 'calculating sum

Console.ReadLine()

End Sub

End Module

Sample Output:

VB.Net Program to get Product of two Numbers

Module Module1

    Sub Main()
        Dim x, y As Integer
        Dim result As Integer
        Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")
        Console.WriteLine(">>> VB.NET PROGRAM FOR PRODUCT OF TWO NUMBERS <<< ")
        'vblf gets the cursor to next line in console
        Console.Write(vbLf & " Enter the first number : ")
        ' reading 1st number from user
        x = Convert.ToInt32(Console.ReadLine()) 'converting input to type int

        Console.Write(vbLf & " Enter the second number: ")
        ' reading 2nd number from user
        y = Convert.ToInt32(Console.ReadLine()) 'converting input to type int

        ' storing the product in result
        result = x * y
        'printing the result
        Console.WriteLine(vbLf & " The product of two numbers is: {0} ", result)
        Console.ReadLine()
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

Module Module1

Sub Main()

Dim x, y As Integer

Dim result As Integer

Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")

Console.WriteLine(">>> VB.NET PROGRAM FOR PRODUCT OF TWO NUMBERS <<< ")

'vblf gets the cursor to next line in console

Console.Write(vbLf & " Enter the first number : ")

' reading 1st number from user

x = Convert.ToInt32(Console.ReadLine()) 'converting input to type int

Console.Write(vbLf & " Enter the second number: ")

' reading 2nd number from user

y = Convert.ToInt32(Console.ReadLine()) 'converting input to type int

' storing the product in result

result = x * y

'printing the result

Console.WriteLine(vbLf & " The product of two numbers is: {0} ", result)

Console.ReadLine()

End Sub

End Module

Sample Output:

VB.Net Program to ADD two INTEGERS without using THIRD VARIABLE

Module Module1

    Sub Main()
        Dim x As Integer, y As Integer
        Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")
        Console.WriteLine(">>> VB.NET PROGRAM TO ADD TWO NUMBERS WITHOUT USING THIRD VARIABLE <<< ")
        'vblf gets the cursor to next linein console
        Console.Write(vbLf & " Enter the first number to be added: ")
        ' taking x value from keyboard
        x = Convert.ToInt32(Console.ReadLine())

        Console.Write(vbLf & " Enter the second number to be added: ")
        ' taking y value from keyboard
        y = Convert.ToInt32(Console.ReadLine())

        'assining the value of sum of x and y to x
        x = x + y

        'printing the sum.
        Console.WriteLine(vbLf & " The sum of two numbers is: " & x)
        Console.ReadLine()
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

Module Module1

Sub Main()

Dim x As Integer, y As Integer

Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")

Console.WriteLine(">>> VB.NET PROGRAM TO ADD TWO NUMBERS WITHOUT USING THIRD VARIABLE <<< ")

'vblf gets the cursor to next linein console

Console.Write(vbLf & " Enter the first number to be added: ")

' taking x value from keyboard

x = Convert.ToInt32(Console.ReadLine())

Console.Write(vbLf & " Enter the second number to be added: ")

' taking y value from keyboard

y = Convert.ToInt32(Console.ReadLine())

'assining the value of sum of x and y to x

x = x + y

'printing the sum.

Console.WriteLine(vbLf & " The sum of two numbers is: " & x)

Console.ReadLine()

End Sub

End Module

Sample Output:

VB.NET PROGRAM TO ADD TWO NUMBERS / INTEGERS USING FUNCTION

Module Module1

    Sub Main()
        Dim x, y, result As Integer
        Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")
        Console.WriteLine(">>> VB.NET Console program to add two integers <<<")
        Console.Write(" Enter the first number to be added: ")
        x = Convert.ToInt32(Console.ReadLine())
        Console.Write(" Enter the second number to be added: ")
        y = Convert.ToInt32(Console.ReadLine())
        result = Sum(x, y)
        Console.Write(Environment.NewLine & " The sum of two numbers is:" & result)
        Console.ReadLine()
    End Sub
    Function Sum(ByVal a, ByVal b) As Integer
        Dim c As Integer
        c = a + b
        Return c
    End Function

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Module Module1

Sub Main()

Dim x, y, result As Integer

Console.WriteLine("*** www.ProgrammingPosts.blogspot.com ***")

Console.WriteLine(">>> VB.NET Console program to add two integers <<<")

Console.Write(" Enter the first number to be added: ")

x = Convert.ToInt32(Console.ReadLine())

Console.Write(" Enter the second number to be added: ")

y = Convert.ToInt32(Console.ReadLine())

result = Sum(x, y)

Console.Write(Environment.NewLine & " The sum of two numbers is:" & result)

Console.ReadLine()

End Sub

Function Sum(ByVal a, ByVal b) As Integer

Dim c As Integer

c = a + b

Return c

End Function

End Module

Sample Output:

VB.NET PROGRAM TO ADD TWO NUMBERS / INTEGERS

In this post, we will see a VB.Net Program to read two number inputs from user and display the sum. The program below accepts two numbers from user and perform basic arithmetic operation(addition) using + operator and display the sum on screen. For algorithm & flowchart to add two numbers, go… Continue Reading VB.NET PROGRAM TO ADD TWO NUMBERS / INTEGERS