Imports System

Public Module Module1

    Public Sub Main()

        'a comment

        'console  -extranal library

        '"hello world" a literal

        Console.WriteLine("Hello World")

        's1 is a  text variable. You create the variable with key word Dim

        Dim s1 as string

        'assign a value with the "=" sign

        s1 = "First String"

        Dim s2 as string = "Second String"

        Print("Hello World")

        Print(s1)

        Print(s1 & s2)

        Dim s3 as string

        's3 is assigned a value using other variables. it copies the values

        s3  =s1 & s2

        Print(s3)

        s1 = "s1 changed"

        s2 = "s1 changed"

        'changing s1 or s2 has no effect on s3

        Print (s1 & s2)

        Print ("s3 not changed")

        Print(s3)

        Dim n1 as decimal

        Dim n2 as decimal = 5.23

        n1 = 6

        Dim n3 as decimal = n1 * n3

        Print(n3)

    End Sub

    Public Sub Print(sTextToPrint as string)

        'Print is a sub routine

        'sTextToPrint is a parameter passed to the sub routine

        'use sTextToPRint the same way you use any other variable

        Console.WriteLine("Print Command")

        Console.WriteLine(sTextToPrint)

        Dim nRounded as decimal

        nRounded=Math.Round (n3,2)

        Print ("n3 rounded" & nRounded)

end sub

End Module

​

​

Public Module Module2

        Private Sub Print2()

        'hidden routine

        Console.WriteLine("Module2 Print")

    End Sub

End Module

​

​