homework in googleclassroom | C# Online Compiler

homework in googleclassroom by NZMAC14606

Imports System

Public Module Module1

	Public Sub Main()
		Console.WriteLine("Hello World")
		Q12
	End Sub

	sub Q1
		console.WriteLine("Input Length and Width")
		dim n as decimal
		n = console.ReadLine()
		dim w as decimal
		w = console.Readline()
		console.WriteLine(n * w)
	end sub

	sub Q2
		console.WriteLine("Enter the degrees ºF")
		dim c as decimal
		c = console.ReadLine()
		console.WriteLine((c - 32) * 5 / 9)
	end sub

	sub Q3
		console.WriteLine("input the temperature")
		dim t as decimal
		t = console.ReadLine()
		if t < 1 then
			console.WriteLine("Frozen")
		else
			console.WriteLine("Not Frozen")
		end if
	end sub

	sub Q4
		console.WriteLine("input the temperature")
		dim t as decimal
		t = console.ReadLine()
		if t < 1 then
			console.WriteLine("Frozen")
		else if t > 100
			console.WriteLine("Boiling")
		else
			console.WriteLine("liquid")
		end if
	end sub '

	sub Q5
		dim month as integer
		month = console.readline()
		select case month
			case "1"
				console.Writeline("January")
			case "2"
				console.WriteLine("FEB")
			case "3"
				console.writeline("MAR")
			case "4"
				console.WriteLine("APR")
			CASE "5"
				CONSOLE.WriteLine("MAY")
			CASE "6"
				CONSOLE.WriteLine("JUN")
			CASE "7"
				CONSOLE.WriteLine("JULY")
			CASE "8"
				CONSOLE.WRITELINE("AUG")
			CASE "9"
				CONSOLE.WriteLine("SEP")
			CASE "10"
				CONSOLE.WriteLine("OCT")
			CASE "11"
				CONSOLE.WriteLine("NOV")
			CASE "12"
				CONSOLE.WriteLine("DEC")
		end select
	end sub

	sub Q6
		DIM ANS AS INTEGER
		ans = console.readline()
		for ans = 1 to ans
			console.Write(ans)
		next
	end sub

	sub Q7
		DIM ANS AS INTEGER
		ans = console.readline()
		for ans = ans to 1
			console.Write(ans)
		next
	end sub

	sub Q8
		DIM ANS AS INTEGER
		dim count as integer
		ans = console.readline()
		for ans = 1 to ans step count
			console.Write(ans)
		next
	end sub

	sub Q9
		dim i as integer
		dim ans as integer
		dim max as integer
		max = -10000000
		For i = 1 to 10
			ans = console.ReadLine()
			if ans > max then
				max = ans
			end if
		next

		console.writeline(max)
	end sub

	sub Q10
		dim i as integer
		dim ans as integer
		dim min as integer
		min = 10000000
		For i = 0 to 9
			ans = console.ReadLine()
			if ans < min then
				min = ans
			end if
		next

		console.writeline(min)
	end sub

	sub Q11
		dim n1 as integer
		Do Until n1 > 1 & n1 < 5
			n1 = console.ReadLine()
			if n1 > 1 & n1 < 5
				console.WriteLine(n1)
			else
				console.WriteLine("invalid")
			end if
		loop
	end sub

	sub Q12
		dim n1 as integer
		dim n2 as integer
		n1 = console.ReadLine()
		n2 = console.ReadLine()
		Do until n1 = n2 + 1
			console.WriteLine(n1)
			n1 = n1 + 1
		loop
	end sub

	sub Q13
		dim asI(9) as integer
		for i = 0 to 9
			asI(i) = 0
		next

		for i = 0 to 9
			console.writeline(asI(i))
		next
	end sub

	sub Q14
		dim asI(9) as integer
		for i = 0 to 9
			asI(i) = i
		next

		for i = 0 to 9
			console.writeline(asI(i))
		next
	end sub

	sub Q15
		dim asI(9) as integer
		for i = 0 to 9
			asI(i) = console.readline()
		next

		for i = 0 to 9
			console.writeline(asI(i))
		next
	end sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        Console.WriteLine("Hello World")
        Q12
    End Sub
​
    sub Q1
        console.WriteLine("Input Length and Width")
        dim n as decimal
        n = console.ReadLine()
        dim w as decimal
        w = console.Readline()
        console.WriteLine(n * w)
    end sub
​
    sub Q2
        console.WriteLine("Enter the degrees ºF")
        dim c as decimal
        c = console.ReadLine()
        console.WriteLine((c - 32) * 5 / 9)
    end sub
​
    sub Q3
        console.WriteLine("input the temperature")
        dim t as decimal
        t = console.ReadLine()
        if t < 1 then
            console.WriteLine("Frozen")
        else
            console.WriteLine("Not Frozen")
        end if
    end sub
​
    sub Q4
        console.WriteLine("input the temperature")
        dim t as decimal
        t = console.ReadLine()
        if t < 1 then
            console.WriteLine("Frozen")
        else if t > 100
            console.WriteLine("Boiling")
        else
            console.WriteLine("liquid")
        end if
    end sub '
​
    sub Q5
        dim month as integer
        month = console.readline()
        select case month
            case "1"
                console.Writeline("January")
            case "2"
                console.WriteLine("FEB")
            case "3"
                console.writeline("MAR")
            case "4"
                console.WriteLine("APR")
            CASE "5"
                CONSOLE.WriteLine("MAY")
            CASE "6"
                CONSOLE.WriteLine("JUN")
            CASE "7"
                CONSOLE.WriteLine("JULY")
            CASE "8"
                CONSOLE.WRITELINE("AUG")
            CASE "9"
                CONSOLE.WriteLine("SEP")
            CASE "10"
                CONSOLE.WriteLine("OCT")
            CASE "11"
                CONSOLE.WriteLine("NOV")
            CASE "12"
                CONSOLE.WriteLine("DEC")
        end select
    end sub
​
    sub Q6
        DIM ANS AS INTEGER
        ans = console.readline()
        for ans = 1 to ans
            console.Write(ans)
        next
    end sub
​
    sub Q7
        DIM ANS AS INTEGER
        ans = console.readline()
        for ans = ans to 1
            console.Write(ans)
        next
    end sub
​
    sub Q8
        DIM ANS AS INTEGER
        dim count as integer
        ans = console.readline()
        for ans = 1 to ans step count
            console.Write(ans)
        next
    end sub
​
    sub Q9
        dim i as integer
        dim ans as integer
        dim max as integer
        max = -10000000
        For i = 1 to 10
            ans = console.ReadLine()
            if ans > max then
                max = ans
            end if
        next
​
        console.writeline(max)
    end sub
​
    sub Q10
        dim i as integer
        dim ans as integer
        dim min as integer
        min = 10000000
        For i = 0 to 9
            ans = console.ReadLine()
            if ans < min then
                min = ans
            end if
        next
​
        console.writeline(min)
    end sub
​
    sub Q11
        dim n1 as integer
        Do Until n1 > 1 & n1 < 5
            n1 = console.ReadLine()
            if n1 > 1 & n1 < 5
                console.WriteLine(n1)
            else
                console.WriteLine("invalid")
            end if
        loop
    end sub
​
    sub Q12
        dim n1 as integer
        dim n2 as integer
        n1 = console.ReadLine()
        n2 = console.ReadLine()
        Do until n1 = n2 + 1
            console.WriteLine(n1)
            n1 = n1 + 1
        loop
    end sub
​
    sub Q13
        dim asI(9) as integer
        for i = 0 to 9
            asI(i) = 0
        next
​
        for i = 0 to 9
            console.writeline(asI(i))
        next
    end sub
​
    sub Q14
        dim asI(9) as integer
        for i = 0 to 9
            asI(i) = i
        next
​
        for i = 0 to 9
            console.writeline(asI(i))
        next
    end sub
​
    sub Q15
        dim asI(9) as integer
        for i = 0 to 9
            asI(i) = console.readline()
        next
​
        for i = 0 to 9
            console.writeline(asI(i))
        next
    end sub
End Module
​

Last Run:	5:14:13 am
Compile:	0.475s
Execute:	0s
Memory:	32kb
CPU:	0s

View IL Code