I know all the veebeez!, Visual Basic

I know all the veebeez!

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions
Imports System.Console
Imports System.Environment

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
            
            Dim rows as Integer
            rows = 15
            Dim current as Integer
            current = 1
            Dim row as Integer
            Dim column as Integer
            Dim sum as integer
            sum = 0
            
            for row = 1 To rows
                for column = 1 to row
                    Write("{0, -5} ", current)
                    current += 1
                    sum += current
                next
            
            WriteLine()
            next
            
            
            Write("The sum is {0}", sum)
            
            WriteLine()
            
            WriteLine("{0} + {1} = {2}", column, row, Add(column, row))
            
            DoIt()
            Print()
            WriteLine(Print())
            
            
            
            
        End Sub
        
        Function DoIt()
            Console.WriteLine("I DID IT!") 
            Console.WriteLine("I GOT THIS GOOD SIR!")
        End Function
        
        Function Print() As String
            return"AND YOU TOO FINE MADAME!"
        End Function
        
        Function Add(a as integer, b as integer) As integer
            return a + b
        End Function
            
            
        
    End Module
End Namespace


run \| edit \| history \| help	0

Please log in to post a comment.