1
2
3
4
5
6
7
8
Class employee
    Private Dim empcode As Integer ;
    Private Dim empname As String ;
 
    Public Sub showinfo( )
        Console.WriteLine ( empcode & " " & empname ) ;
    End Sub
End Class

1
2
3
4
5
6
7
8
Class employee
    Private Dim empcode As Integer
    Private Dim empname As String
 
    Public Sub showinfo( )
        Console.WriteLine ( empcode & " " & empname )
    End Sub
End Class

1
2
3
4
5
6
7
8
Option Explicit Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
x = 50
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 / 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( " { 0 } { 1 } { 2 }", x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( " { 0 } { 1 } { 2 }", x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Class Base
Public Overridable Sub fun1( )
Console.WriteLine ( "fun1 of Base..." )
End Sub
End Class
 
Class Der : Inherits Base
Public Overrides Sub fun1( )
 ...

1
2
3
4
5
6
7
8
9
Module Module1
Class Base
Public Overridable Sub fun1( )
Console.WriteLine ( "fun1 of Base..." )
End Sub
End Class
 
Class Der : Inherits Base
Public Overrides Sub fun1( )
 ...

1
2
3
4
5
6
7
8
9
Module Module1
Class Base
Public Overridable Sub fun1( )
Console.WriteLine ( "fun1 of Base..." )
End Sub
End Class
 
Class Der : Inherits Base
Public Overrides Sub fun1( )
 ...

1
2
3
4
5
6
7
8
9
 
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " { 0 } { 1 } ", i, b )
End Sub
 ...

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " { 0 } { 1 } ", i, b )
End Sub

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " { 0 } { 1 } " i, b )
End Sub
 ...

1
2
3
4
5
6
7
8
9
Option Strict Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
i = True
b = -10
Console.WriteLine ( " { 0 } { 1 } ", i, b )
End Sub

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( { 0 } { 1 } { 2 }, x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( " { 0 } { 1 } { 2 }, x, y, z" )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( { 0 } { 1 } { 2 }, x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine( " { 0 } { 1 } { 2 }", x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine("{ 0 } { 1 } { 2 }", x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ("{ 0 } { 1 } { 2 }", x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x, y, z As Integer
x = 11 \ 2
y = 11 / 2
z = 11 Mod 2
Console.WriteLine ( " { 0 } { 1 } { 2 }", x, y, z )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim i As Integer = 5
Dim j, res As Integer
res = fun ( i, j )
Console.WriteLine ( j & " " & res )
End Sub
Function fun( ByVal x As Integer, ByRef y As Integer ) As Integer
y = x * x
 ...

1
2
3
4
5
6
Module Module1
Sub Main( )
dim true as Boolean = False
Console.WriteLine( true )
End Sub
End Module

1
2
3
4
5
6
7
8
Option Strict On
Module Module1
Sub Main( )
Dim b As Boolean
b = 1
Console.WriteLine( b )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim randObj As New Random()
        Console.WriteLine(randObj.Next())
        Console.WriteLine(randObj.Next())
        Console.WriteLine(randObj.Next())
        Console.WriteLine(randObj.Next())
 ...

1
2
3
4
5
6
7
8
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim randObj As New Random()
        Console.WriteLine(randObj.Next())
        End Sub
End Class

1
2
3
4
5
6
7
8
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim randObj As New Random()
        randObj.Next()
        End Sub
End Class

1
2
3
4
5
6
7
8
9
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd" >
<html>
<head>
<meta  http-equiv="Content-Type" content="text/html;charset=iso-8859-1">
<meta name="author" content="kjell at ieee dot org ">
<meta name="copyright" content="2011">
<meta name="robots" content="index,follow">
<title>Picture of an Object</title>
<link rel="stylesheet" type="text/css" href="../CAIstyleRev2.css">
 ...

1
2
3
Sub Main()
        Console.Write("Hello")
End Sub

1
2
3
4
5
6
7
8
9
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
 Dim mypen As New Pen ( Red, 5 )
g.DrawLine ( mypen, 20, 30, 200, 60 )
 
 
End Sub 

1
2
3
4
5
6
7
8
9
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
  Dim mypen As New Pen ( Color.Red, 5 )
g.DrawLine ( mypen, 20, 30, 200, 60 )
 
 
End Sub