Imports System

Public Module Module1

    Public Sub Main()

        Dim x As String

        Dim country As String

        Dim school As String

        Dim age As Integer

        Dim ShoeSize As Integer 

        Dim Siblings As Integer

        Dim pocket As Decimal

        Dim Height As Decimal 

        Dim gender As Char

        Dim Letter As Char 

        Dim DayStudent as Boolean

        Dim Smart As Boolean

​

        x = "JOHN"

        Console.WriteLine(x & " is my name")

        country = "Malaysia"

        Console.WriteLine("I am from " & country)

        school = "Concord College"

        Console.WriteLine("I go to " & school)

        age = 65

        Console.WriteLine("I am " & age & " years old")

        ShoeSize = 10

        Console.WriteLine("My shoe size is a UK " & ShoeSize)

        Siblings = 2

        Console.WriteLine("I have " & Siblings & " siblings")

        pocket = 25.35

        Console.WriteLine("I have £" & pocket & " in my pocket")

        Height = 174.5

        Console.WriteLine("I am " & Height & "cm tall")

        gender = "M"

        Console.WriteLine("My gender is represnted by a " & gender)

        letter = "K"

        Console.WriteLine("My favourite letter is " & letter)

        DayStudent = False 

        Console.WriteLine("I am a Day Student is " & DayStudent)

        Smart = False

        Console.WriteLine("Saying that I am smart would be a " & Smart & " fact") 

        Console.WriteLine("The statement""is smart""")

    End Sub

End Module