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 is a sub routine - it is a like a user block in Scratch. Lets you group commands together so you can re-use them

        'the data in nthe brackets is the parameter.

        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)

        Dim n4 as decimal

        'Math is anexternal library - it holds all the maths functions and sub routines

        n4 = Math.Sqrt(n3)

        Dim sMessage as string = ""

        sMessage = "The square root of " & n3 & " is: " & n4

    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)

end sub

End Module

​

​

Public Module Module2

        Private Sub Print2()

        'hidden routine

        Console.WriteLine("Module2 Print")

    End Sub

End Module