Namespace Hello
   Class HelloWorld
      Overloads Shared Sub Main(ByVal args() As String)
         Dim name As String = "VB.NET"

        
          If args.Length = 1 Then name = args(0)

          Console.WriteLine("Hello, " & name & "!")
      End Sub
   End Class
End Namespace

namespace Hello {
   public class HelloWorld {
      public static void Main(string[] args) {
         string name = "C#";

        
         if (args.Length == 1)
            name = args[0];

         Console.WriteLine("Hello, " + name + "!");
      }
   }
}

Boolean
Byte, SByte
Char
Short, UShort, Integer, UInteger, Long, ULong
Single, Double
Decimal
Date  

Object
String

Dim correct As Boolean = True
Dim b As Byte = &H2A  
Dim person As Object = Nothing
Dim name As String = "Dwight"
Dim grade As Char = "B"c
Dim today As Date = #12/31/2010 12:15:00 PM#
Dim amount As Decimal = 35.99@
Dim gpa As Single = 2.9!
Dim pi As Double = 3.14159265
Dim lTotal As Long = 123456L
Dim sTotal As Short = 123S
Dim usTotal As UShort = 123US
Dim uiTotal As UInteger = 123UI
Dim ulTotal As ULong = 123UL

Dim s = "Hello!"
Dim nums = New Integer() {1, 2, 3}
Dim hero = New SuperHero With {.Name = "Batman"}

bool
byte, sbyte
char
short, ushort, int, uint, long, ulong
float, double
decimal
DateTime  

object
string

bool correct = true;
byte b = 0x2A;  
object person = null;
string name = "Dwight";
char grade = 'B';
DateTime today = DateTime.Parse("12/31/2010 12:15:00 PM");
decimal amount = 35.99m;
float gpa = 2.9f;
double pi = 3.14159265;
long lTotal = 123456L;
short sTotal = 123;
ushort usTotal = 123;
uint uiTotal = 123;
ulong ulTotal = 123;

var s = "Hello!";
var nums = new int[] { 1, 2, 3 };
var hero = new SuperHero() { Name = "Batman" };

ReadOnly MIN_DIAMETER As Single = 4.93

readonly float MIN_DIAMETER = 4.93f;

Action a = Action.Stop;
if (a != Action.Start)
  Console.WriteLine(a + " is " + (int) a);    

Console.WriteLine((int) Status.Pass);   
Console.WriteLine(Status.Pass);     

=  <  >  <=  >=  <>

+  -  *  /
Mod
\ 
^ 

=  +=  -=  *=  /=  \=  ^=  <<=  >>=  &=

And   Or   Xor   Not   <<   >>

AndAlso   OrElse   And   Or   Xor   Not

Note: AndAlso and OrElse perform short-circuit logical evaluations

&

==  <  >  <=  >=  !=

+  -  *  /
% 
/ 
Math.Pow(x, y)

=  +=  -=  *=  /=   %=  &=  |=  ^=  <<=  >>=  ++  --

&   |   ^   ~   <<   >>

&&   ||   &   |   ^   !

Note: && and || perform short-circuit logical evaluations

+

greeting = If(age < 20, "What's up?", "Hello")

If age < 20 Then greeting = "What's up?"
If age < 20 Then greeting = "What's up?" Else greeting = "Hello"

If x <> 100 AndAlso y < 5 Then x *= 5 : y *= 2  

If x <> 100 AndAlso y < 5 Then
  x *= 5
  y *= 2
End If

If whenYouHaveAReally < longLine And
  itNeedsToBeBrokenInto2 > Lines Then _
  UseTheUnderscore(charToBreakItUp)

If x > 5 Then
  x *= y
ElseIf x = 5 OrElse y Mod 2 = 0 Then
  x += y
ElseIf x < 10 Then
  x -= y
Else
  x /= y
End If

Select Case color  
  Case "pink", "red"
    r += 1
  Case "blue"
    b += 1
  Case "green"
    g += 1
  Case Else
    other += 1
End Select

greeting = age < 20 ? "What's up?" : "Hello";

if (age < 20)
  greeting = "What's up?";
else
  greeting = "Hello";

if (x != 100 && y < 5) {   
  x *= 5;
  y *= 2;
}

if (x > 5)
  x *= y;
else if (x == 5 || y % 2 == 0)
  x += y;
else if (x < 10)
  x -= y;
else
  x /= y;

switch (color) {                          // Must be integer or string
  case "pink":
  case "red":    r++;    break;
  case "blue":   b++;   break;
  case "green": g++;   break;
  default:    other++;   break;      
}

Dim names As String() = {"Fred", "Sue", "Barney"}
For Each s As String In names
  Console.WriteLine(s)
Next

For i = 0 To 4
  If i < 4 Then Continue For
  Console.WriteLine(i)  
Next

string[] names = {"Fred", "Sue", "Barney"};
foreach (string s in names)
  Console.WriteLine(s);

int i = 0;
while (true) {
  if (i == 5)
    break;
  i++;
}

for (i = 0; i <= 4; i++) {
  if (i < 4)
    continue;
  Console.WriteLine(i);  
}

float[,] twoD = new float[rows, cols];
twoD[2,0] = 4.5f; 

int[][] jagged = new int[3][] {
  new int[5], new int[2], new int[3] };
jagged[0][4] = 5;

 
Sub TestFunc(ByVal x As Integer, ByRef y As Integer, ByRef z As Integer)
  x += 1
  y += 1
  z = 5
End Sub

Dim a = 1, b = 1, c As Integer    
TestFunc(a, b, c)
Console.WriteLine("{0} {1} {2}", a, b, c)  

int a = 1, b = 1, c;  // c doesn't need initializing
TestFunc(a, ref b, out c);
Console.WriteLine("{0} {1} {2}", a, b, c); 

int Sum(params int[] nums) {
  int sum = 0;
  foreach (int i in nums)
    sum += i;
  return sum;
}

int total = Sum(4, 3, 2, 1);   // returns 10

 
void SayHello(string name, string prefix = "") {
  Console.WriteLine("Greetings, " + prefix + " " + name);
} 

SayHello("Strangelove", "Dr.");
SayHello("Mom");

vbCrLf, vbCr, vbLf, vbNewLine
vbNullString
vbTab
vbBack
vbFormFeed
vbVerticalTab
""

Dim school As String = "Harding" & vbTab
school = school & "University"

Dim letter As Char = school.Chars(0)  
letter = "Z"c                                        
letter = Convert.ToChar(65)                
letter = Chr(65)                                 Dim word() As Char = school.ToCharArray()

Dim mascot As String = "Bisons"
If (mascot = "Bisons") Then   
If (mascot.Equals("Bisons")) Then  
If (mascot.ToUpper().Equals("BISONS")) Then  
If (mascot.CompareTo("Bisons") = 0) Then   

If ("John 3:16" Like "Jo[Hh]? #:*") Then  

s = mascot.Substring(2, 3))

s = mascot.Replace("sons", "nomial"))

Dim names As String = "Michael,Dwight,Jim,Pam"
Dim parts() As String = names.Split(",".ToCharArray())  

Dim dt As New DateTime(1973, 10, 12)
Dim s As String = "My birthday: " & dt.ToString("MMM dd, yyyy")  

Dim x As Integer = 2
Dim y As String = x.ToString()    

Dim x As Integer = Convert.ToInt32("-5")    

Dim buffer As New System.Text.StringBuilder("two ")
buffer.Append("three ")
buffer.Insert(0, "one ")
buffer.Replace("two", "TWO")
Console.WriteLine(buffer)        

string school = "Harding\t";
school = school + "University";  

char letter = school[0];           
letter = 'Z';                              
letter = Convert.ToChar(65);    
letter = (char)65;                    char[] word = school.ToCharArray();  

string msg = @"File is c:\temp\x.dat";

string msg = "File is c:\\temp\\x.dat";

string mascot = "Bisons";
if (mascot == "Bisons")   
if (mascot.Equals("Bisons"))   
if (mascot.ToUpper().Equals("BISONS"))  
if (mascot.CompareTo("Bisons") == 0)   

s = mascot.Substring(2, 3))    

s = mascot.Replace("sons", "nomial"))    

string names = "Michael,Dwight,Jim,Pam";
string[] parts = names.Split(",".ToCharArray());  

DateTime dt = new DateTime(1973, 10, 12);
string s = dt.ToString("MMM dd, yyyy");    

int x = 2;
string y = x.ToString();    

System.Text.StringBuilder buffer = new System.Text.StringBuilder("two ");
buffer.Append("three ");
buffer.Insert(0, "one ");
buffer.Replace("two", "TWO");
Console.WriteLine(buffer);    

Imports System.Text.RegularExpressions

Dim r As New Regex("j[aeiou]h?. \d:*", RegexOptions.IgnoreCase Or _
        RegexOptions.Compiled)
If (r.Match("John 3:16").Success) Then  
    Console.WriteLine("Match")
End If

Dim s As String = "My number is 305-1881, not 305-1818."
Dim r As New Regex("(\d+-\d+)")
Dim m As Match = r.Match(s)    
While m.Success
    Console.WriteLine("Found number: " & m.Groups(1).Value & " at position " _
            & m.Groups(1).Index.ToString)
    m = m.NextMatch()
End While

Dim r As New Regex("(\d\d):(\d\d) (am|pm)")
Dim m As Match = r.Match("We left at 03:15 pm.")
If m.Success Then
    Console.WriteLine("Hour: " & m.Groups(1).ToString)      
    Console.WriteLine("Min: " & m.Groups(2).ToString)        
    Console.WriteLine("Ending: " & m.Groups(3).ToString)  
End If

Dim r As New Regex("h\w+?d", RegexOptions.IgnoreCase)
Dim s As String = r.Replace("I heard this was HARD!", "easy")  

Dim s As String = Regex.Replace("123 < 456", "(\d+) . (\d+)", "$2 > $1")  

Dim names As String = "Michael, Dwight, Jim, Pam"
Dim r As New Regex(",\s*")
Dim parts() As String = r.Split(names)  

using System.Text.RegularExpressions;

Regex r = new Regex(@"j[aeiou]h?. \d:*", RegexOptions.IgnoreCase |
        RegexOptions.Compiled);
if (r.Match("John 3:16").Success)  
    Console.WriteLine("Match");

string s = "My number is 305-1881, not 305-1818.";
Regex r = new Regex("(\\d+-\\d+)");

for (Match m = r.Match(s); m.Success; m = m.NextMatch())
    Console.WriteLine("Found number: " + m.Groups[1] + " at position " +
        m.Groups[1].Index);

Regex r = new Regex("@(\d\d):(\d\d) (am|pm)");
Match m = r.Match("We left at 03:15 pm.");
if (m.Success) {
    Console.WriteLine("Hour: " + m.Groups[1]);      
    Console.WriteLine("Min: " + m.Groups[2]);        
    Console.WriteLine("Ending: " + m.Groups[3]);  
}

Regex r = new Regex("h\\w+?d", RegexOptions.IgnoreCase);
string s = r.Replace("I heard this was HARD!", "easy"));  

string s = Regex.Replace("123 < 456", @"(\d+) . (\d+)", "$2 > $1");  

string names = "Michael, Dwight, Jim, Pam";
Regex r = new Regex(@",\s*");
string[] parts = r.Split(names);  

Dim ex As New Exception("Something is really wrong.")
Throw  ex 

Try 
  y = 0
  x = 10 / y
Catch ex As Exception When y = 0
  Console.WriteLine(ex.Message)
Finally
  Beep()
End Try

On Error GoTo MyErrorHandler
...
MyErrorHandler: Console.WriteLine(Err.Description)

Exception up = new Exception("Something is really wrong.");
throw up; 

try { 
  y = 0;
  x = 10 / y;
}
catch (Exception ex) {    
  Console.WriteLine(ex.Message);
}
finally {
  Microsoft.VisualBasic.Interaction.Beep();
}

Namespace Harding.Compsci.Graphics 
  ...
End Namespace

Namespace Harding
  Namespace Compsci
    Namespace Graphics 
      ...
    End Namespace
  End Namespace
End Namespace

Imports Harding.Compsci.Graphics

namespace Harding.Compsci.Graphics {
  ...
}

namespace Harding {
  namespace Compsci {
    namespace Graphics {
      ...
    }
  }
}

using Harding.Compsci.Graphics;

Public
Private
Friend
Protected
Protected Friend

MustOverride
NotInheritable
Shared
Overridable

Module

Partial Class Competition
  ...
End Class 

Class FootballGame
  Inherits Competition
  ...
End Class 

Interface IAlarmClock
  Sub Ring()
  Property TriggerDateTime() As DateTime
End Interface

Interface IAlarmClock
  Inherits IClock
  ...
End Interface

public
private
internal
protected
protected internal

abstract
sealed
static

abstract
sealed
static
virtual

partial class Competition {
  ...
}

class FootballGame : Competition {
  ...
}

interface IAlarmClock {
  void Ring();
  DateTime CurrentDateTime { get; set; }
}

interface IAlarmClock : IClock {
  ...
}

  Public Sub New()
    powerLevel = 0
  End Sub

  Public Sub New(ByVal powerLevel As Integer)
    Me.powerLevel = powerLevel
  End Sub

  Shared Sub New()
   
  End Sub

  Protected Overrides Sub Finalize() 
   
    MyBase.Finalize()
  End Sub
End Class

Dim hero As SuperHero = New SuperHero

Dim hero As New SuperHero

With hero
  .Name = "SpamMan"
  .PowerLevel = 3
End With

hero.Defend("Laura Jones")
hero.Rest()    

SuperHero.Rest()

Dim hero2 As SuperHero = hero 
hero2.Name = "WormWoman"
Console.WriteLine(hero.Name)  

hero = Nothing   

If hero Is Nothing Then _
  hero = New SuperHero

Dim obj As Object = New SuperHero
If TypeOf obj Is SuperHero Then _
  Console.WriteLine("Is a SuperHero object.")

Using reader As StreamReader = File.OpenText("test.txt")
  Dim line As String = reader.ReadLine()
  While Not line Is Nothing
    Console.WriteLine(line)
    line = reader.ReadLine()
  End While
End Using

hero.Defend("Laura Jones");
SuperHero.Rest();  

SuperHero hero2 = hero;  
hero2.Name = "WormWoman";
Console.WriteLine(hero.Name);  

hero = null ;  

if (hero == null)
  hero = new SuperHero();

Object obj = new SuperHero(); 
if (obj is SuperHero)
  Console.WriteLine("Is a SuperHero object.");

  public Student(string name, float gpa) {
    this.name = name;
    this.gpa = gpa;
  }
}

Public Property Name As String
Public Property Size As Integer = -1    

Private mName As String
Public Property Name() As String
    Get
        Return mName
    End Get
    Set(ByVal value As String)
        mName = value
    End Set
End Property

Private mPowerLevel As Integer
Public ReadOnly Property PowerLevel() As Integer
    Get
        Return mPowerLevel
    End Get
End Property

Private mHeight As Double
Public WriteOnly Property Height() As Double
    Set(ByVal value As Double)
        mHeight = If(value < 0, mHeight = 0, mHeight = value)
    End Set
End Property

public string Name { get; set; }
public int Size { get; protected set; }    

private string name;
public string Name {
  get {
    return name;
  }
  set {
    name = value;
  }
}

private int powerLevel;
public int PowerLevel {
  get {
    return powerLevel;
  }
}

private double height;
public double Height {
  set {
    height = value < 0 ? 0 : value;
  }
}

Delegate Sub MsgArrivedEventHandler(ByVal message As String)

Event MsgArrivedEvent As MsgArrivedEventHandler

Event MsgArrivedEvent(ByVal message As String)

AddHandler MsgArrivedEvent, AddressOf My_MsgArrivedCallback
RaiseEvent MsgArrivedEvent("Test message")
RemoveHandler MsgArrivedEvent, AddressOf My_MsgArrivedCallback

Imports System.Windows.Forms

Dim WithEvents MyButton As Button  
MyButton = New Button

Private Sub MyButton_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyButton.Click
  MessageBox.Show(Me, "Button was clicked", "Info", _
    MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

delegate void MsgArrivedEventHandler(string message);

event MsgArrivedEventHandler MsgArrivedEvent;

using System.Windows.Forms;

Button MyButton = new Button(); 
MyButton.Click += new System.EventHandler(MyButton_Click);

private void MyButton_Click(object sender, System.EventArgs e) {
  MessageBox.Show(this, "Button was clicked", "Info",
    MessageBoxButtons.OK, MessageBoxIcon.Information);
}

Dim numbers As New List(Of Integer)
numbers.Add(2)
numbers.Add(4)
DisplayList(Of Integer)(numbers)

Sub DisplayList(Of T)(ByVal list As List(Of T))
    For Each item As T In list
        Console.WriteLine(item)
    Next
End Sub

Function Maximum(Of T As IComparable)(ByVal ParamArray items As T()) As T
    Dim max As T = items(0)
    For Each item As T In items
        If item.CompareTo(max) > 0 Then max = item
    Next
    Return max
End Function

List<int> numbers = new List<int>();
numbers.Add(2);
numbers.Add(4);
DisplayList<int>(numbers);

T Maximum<T>(params T[] items) where T : IComparable<T> {
    T max = items[0];
    foreach (T item in items)
        if (item.CompareTo(max) > 0)
            max = item;
    return max;
}

var results = from value in nums
                where value > 4
                select value;

Console.WriteLine(results.Count());    
Console.WriteLine(results.First());    
Console.WriteLine(results.Last());    
Console.WriteLine(results.Average());    

foreach (int n in results)
    Console.Write(n + " ");

results = results.Intersect(new[] {5, 6, 7});    
results = results.Concat(new[] {5, 1, 5});    
results = results.Distinct();    

Student[] Students = {
    new Student{ Name = "Bob", GPA = 3.5 },
    new Student{ Name = "Sue", GPA = 4.0 },
    new Student{ Name = "Joe", GPA = 1.9 }
};

var goodStudents = from s in Students
            where s.GPA >= 3.0
            orderby s.GPA descending
            select s;

Console.WriteLine(goodStudents.First().Name);    

Console.Write("What's your name? ");
string name = Console.ReadLine();
Console.Write("How old are you? ");
int age = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("{0} is {1} years old.", name, age);

Console.WriteLine(name + " is " + age + " years old.");

int c = Console.Read(); 
Console.WriteLine(c);   

Imports System.IO

Dim writer As StreamWriter = File.CreateText("c:\myfile.txt")
writer.WriteLine("Out to file.")
writer.Close()

Dim reader As StreamReader = File.OpenText("c:\myfile.txt")
Dim line As String = reader.ReadLine()
While Not line Is Nothing
  Console.WriteLine(line)
  line = reader.ReadLine()
End While
reader.Close()

Dim str As String = "Text data"
Dim num As Integer = 123
Dim binWriter As New BinaryWriter(File.OpenWrite("c:\myfile.dat")) 
binWriter.Write(str) 
binWriter.Write(num) 
binWriter.Close()

Dim binReader As New BinaryReader(File.OpenRead("c:\myfile.dat"))
str = binReader.ReadString()
num = binReader.ReadInt32()
binReader.Close()

using System.IO;

StreamWriter writer = File.CreateText("c:\\myfile.txt");
writer.WriteLine("Out to file.");
writer.Close();

StreamReader reader = File.OpenText("c:\\myfile.txt");
string line = reader.ReadLine();
while (line != null) {
  Console.WriteLine(line);
  line = reader.ReadLine();
}
reader.Close();

string str = "Text data";
int num = 123;
BinaryWriter binWriter = new BinaryWriter(File.OpenWrite("c:\\myfile.dat"));
binWriter.Write(str);
binWriter.Write(num);
binWriter.Close();

BinaryReader binReader = new BinaryReader(File.OpenRead("c:\\myfile.dat"));
str = binReader.ReadString();
num = binReader.ReadInt32();
binReader.Close();