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
Module Module1
Sub Main( )
dim true as Boolean = False
Console.WriteLine( true )
End Sub
End Module

1
2
3
4
5
6
7
Imports Forms
Module Module1
    Sub Main( )
     Dim f As New Form1
     Run ( f )
    End Sub
End Module

1
2
3
Module Module1
    Application.Run ( form )
End Module

1
2
3
4
5
6
7
Imports System.Windows.Forms
Module Module1
Sub Main( )
Dim f As New Form1
Application.Run ( f )
End Sub
End Module

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main()
Dim arr As New ArrayList
arr.Add ( "Ram" )
arr.Add ( "Shyam" )
arr.Add ( "Monu" )
arr.Add ( "Sonu" )
Dim q As New Queue
 ...

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 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
7
8
9
Structure sample
Dim i As Integer
End Structure
 
Module Module1
Sub main ( )
Dim x As sample
x.i = 10
Dim y As sample
 ...

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

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
9
Module employee
    Private Dim empcode As Integer
    Private Dim empname As String
 
    Public Sub showinfo( )
        Console.WriteLine ( empcode & " " & empname )
    End Sub
End Module
          

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

1
2
3
4
5
6
7
8
9
Imports System.Data.SqlClient
Module Module1
Sub Main( )
Dim constr As String = " server = < computer name >; database = bank; uid = sa; pwd = thanks"
Dim cmdstr As String = ______________________
Dim con As New SqlConnection ( constr )
Dim com As New SqlCommand ( cmdstr, con )
con.Open( )
Dim r As SqlDataReader = com.ExecuteReader
 ...

1
2
3
4
5
6
7
8
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
TextBox1.Multiline = True
TextBox1.ScrollBars = Vertical
End Sub
 
    

1
2
3
4
5
6
7
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
TextBox1.Multiline = True
TextBox1.ScrollBars = ScrollBars.Horiozontal
End Sub
 

1
2
3
4
5
6
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
TextBox1.Multiline = True
TextBox1.ScrollBars = ScrollBars.Vertical
End Sub 

1
2
3
4
5
6
7
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
TextBox1.Multiline = False
TextBox1.ScrollBars = ScrollBars.Vertical
End Sub
 

1
2
3
Module Module1
    Application.Run ( form )
End Module

1
2
3
4
5
6
7
Imports Forms
Module Module1
    Sub Main( )
     Dim f As New Form1
     Run ( f )
    End Sub
End Module

1
2
3
4
5
6
7
Imports System.Windows.Forms
Module Module1
Sub Main( )
Dim f As New Form1
Application.Run ( f )
End Sub
End Module

1
2
3
4
5
6
7
8
9
   
Module Module1
Sub Main ( )
Dim index As Integer
Dim a ( 5 ) As Integer
Try
a ( 6 ) = 20
Catch e As IndexOutOfRangeException
Console.Write ( "Index out of bounds" & " " )
 ...

1
2
3
4
5
6
7
8
9
Module Module1
Class point
Dim x As Integer
Dim y As Integer
End Class
Sub Main( )
Dim p1, p2 As point
p1 = New point
p2 = p1
 ...

1
2
3
4
5
6
7
8
9
Sub Main( )
Dim obj As Window 
obj = New Window
obj.create( )
obj = New MyWindow
obj.create( )
End Sub
Class Window
Public Overridable Sub create( )
 ...

1
2
3
4
5
6
7
8
9
Sub Main( )
Dim obj As Window 
obj = New Window
obj.create( )
obj = New MyWindow
obj.create( )
End Sub
Class Window
Public Sub create( )
 ...

1
2
3
4
5
6
7
Sub Main( )
Dim obj As Window 
obj = New Window
obj.create( )
obj = New MyWindow
obj.create( )
End Sub

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

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