1
2
3
4
5
6
7
8
9
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
Dim ToolBar1 As New ToolBar
Dim toolBarButton1 As New ToolBarButton
Dim toolBarButton2 As New ToolBarButton
ToolBar1.Buttons.Add ( toolBarButton1 )
ToolBar1.Buttons.Add ( toolBarButton2 )
Controls.Add ( ToolBar1 )

1
2
3
4
5
6
7
8
9
Class base
Dim val As Integer
Public Sub New( )
val = 0
End Sub
End Class
Class Der : Inherits base
Public Sub Display( )
Console.WriteLine ( "val = {0}", val )
 ...

1
2
3
4
5
6
7
8
9
Class base
Dim val As Integer
Public Sub New( )
val = 0
End Sub
End Class
Class Der : Inherits base
Public Sub Display( )
Console.WriteLine ( "val = {0}", val )
 ...

1
2
3
4
5
6
7
8
9
Namespace n1
Namespace n2
Namespace n2
Class example
Sub fun()
Console.WriteLine ( "Hello" )
End Sub
Sub fun( ByVal i As Integer )
Console.WriteLine( "Hi" )
 ...

1
2
3
4
5
6
7
8
9
Class base
Dim val As Integer
Public Sub New( )
val = 0
End Sub
End Class
Class Der : Inherits base
Public Sub Display( )
Console.WriteLine ( "val = {0}", val )
 ...

1
2
3
4
5
6
7
8
9
Class base
Dim val As Integer
Public Sub New( )
val = 0
End Sub
End Class
Class Der : Inherits base
Public Sub Display( )
Console.WriteLine ( "val = {0}", val )
 ...

1
2
3
4
5
6
7
8
9
Class base
Dim val As Integer
Public Sub New( )
val = 0
End Sub
End Class
Class Der : Inherits base
Public Sub Display( )
Console.WriteLine ( "val = {0}", val )
 ...

1
2
3
4
5
6
7
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
    'Add code here
End Sub    
 

1
2
3
4
5
6
7
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
Module Module1
Sub Main( )
Dim x As Integer = 0
Try
Dim y As Integer = 100 / x
Catch e As ArithmeticException
Console.WriteLine ( "ArithmeticException Handler: {0}", e.ToString( ) )
Catch e As Exception
Console.WriteLine ( "Generic Exception Handler: {0}", e.ToString( ) )
 ...

1
2
3
4
5
6
7
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, Thickness.5 )
g.DrawLine ( mypen, 20, 30, 200, 60 ) 
End Sub    

1
2
3
4
5
6
7
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    

1
2
3
4
5
6
7
8
9
Class base
Dim val As Integer
Public Sub New( )
val = 0
End Sub
End Class
Class Der : Inherits base
Public Sub Display( )
Console.WriteLine ( "val = {0}", val )
 ...

1
2
3
4
5
6
7
8
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
     Dim myimg As Image = Image.FromFile ( "C:\fun.jpg" ) 
    g.DrawImage ( myimg, 50, 50 )
End Sub  
 

1
2
3
4
5
6
7
8
9
Class sample
    Function fun ( ByVal ii As Integer ) As Integer
        Return ii
    End Function            
    
    Function fun ( ByVal jj As Single ) As Single
        Return jj
    End Function            
End Class

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

1
2
3
4
5
6
7
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
   Dim myimg As Image = FromFile ( "C:\fun.jpg" )
     g.DrawImage ( myimg, 50, 50 )
End Sub  

1
2
3
4
5
6
7
8
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs ) 
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics 
    Dim myimg As Image = FromFile.Image ( "C:\fun.jpg" )
    g.DrawImage ( myimg, 50, 50 )
End Sub    
 

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" & " " )
Catch e As FormatException
 ...

1
Find the cheksum for the bit sequence 1001101000111100. assuming a 4-bit segment size.

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
Class base
Dim val As Integer
Public Sub New( )
val = 0
End Sub
End Class
Class Der : Inherits base
Public Sub Display( )
Console.WriteLine ( "val = {0}", val )
 ...

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
 ...

1
2
3
4
5
6
7
8
9
Class sample
    Function fun ( ByVal ii As Integer ) As Integer
        Return ii
    End Function            
    
    Function fun ( ByVal jj As Single ) As Single
        Return jj
    End Function            
End Class

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
 ...

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

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 Module1
    Class sample
        Shared obj As sample
        
        Private Sub New( )
        End Sub
        
        Shared Function create( ) As sample
         If obj Is Nothing Then
 ...

1
2
3
4
5
6
7
8
9
Module Module1
    Class test
        Dim i As integer
        
        Public Sub setadata ( ii As Integer )
            i = ii 
        End Sub
    End Class
End Module
 ...