1
2
3
4
5
6
7
8
9
Module Module1
    Class sample
     Dim i As Integer
     Shared Sub New( )
     i = 10
     End Sub
 
     Sub showdata( )
     Console.WriteLine ( i )
 ...

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 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
8
Structure Point
Dim x, y As Integer
 
Sub New( ByVal x As Integer, ByVal y As Integer )
Me.x = x
Me.y = y
End Sub
End Structure
 ...

1
2
3
4
5
6
7
8
Structure Point
Dim x, y As Integer
 
Sub New( ByVal x As Integer, ByVal y As Integer )
Me.x = x
Me.y = y
End Sub
End Structure
 ...

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
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
 ...

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
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
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
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
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
  What will be the output of the code snippet given below?
 
using System ;
namespace ConsoleApplication1
{
class Program
{
static void Main ( string[ ] args )
{
 ...

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
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )     Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    Dim myfont As New Font ( "Times New                 Roman", 60 )
    Dim mybrush As New SolidBrush ( Color.Green )
    g.DrawString ( "Hello", myfont,
            mybrush, 50, 50 )
End Sub

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 Class1
Public Value As Integer = 0
End Class
 
Module Module1
Sub Main ( )
Dim val1 As Integer = 0
Dim val2 As Integer = val1
val2 = 150
 ...

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 = p1
p2 = New point
 ...

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
Class employee
    Dim name As String
    Dim code As String
Sub New ( n As String, c As String )
    name = n
    code = c
End Sub
End Class

1
2
3
4
5
6
7
8
Class employee
    Dim name As String
    Dim code As String
Sub New( )
    name = n
    code = c
End Sub
End Class

1
2
3
4
5
6
7
8
Class employee
    Dim name As String
    Dim code As String
Sub setval ( n As String, c As String )
    name = n
    code = c
End Sub
End Class

1
2
3
4
5
6
7
8
Class employee
    Dim name As String
    Dim code As String
Sub employee ( n As String, c As String )
    name = n
    code = c
End Sub
End Class

1
msgbox"!!!"

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
 ...

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
 ...

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
 ...