1
2
3
4
5
6
7
8
9
Module Module1
    Class sample
     Shared i As Integer
     Shared Sub New ( ByVal ii As Integer )
     i = ii
     End Sub
    End Class
 
    Sub Main( )
 ...

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
If marks >= 60
grade = "Pass"
End If

1
2
3
If marks >= 60 Then
grade = "Pass"
End If 

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
Option Strict On
Module Module1
Sub Main( )
Dim b As Boolean
b = 1
Console.WriteLine( b )
End Sub
End Module

1
2
3
4
While i <= 10 Then
Console.WriteLine ( 2 * i )
i = i + 1
End While

1
2
3
4
5
6
7
8
9
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
   ("Select * from Win32_Process Where Name = 'Dfrgntfs.exe'")
If colProcesses.Count = 0 Then
   Wscript.Echo " Dfrgntfs.exe is not running."
Else
   Wscript.Echo " Dfrgntfs.exe is running."
End If

1
2
3
While i <= 10
Console.WriteLine ( 2 * i )
End While

1
2
3
4
Dim i As Integer = 1
While i <= 10
Console.WriteLine ( 2 * i )
End While

1
dim mike as person

1
2
3
4
Dim i As Integer = 1
        While i <= 10
Console.WriteLine ( 2 * i )
i = i + 1

1
2
3
4
5
Dim i As Integer = 1
While i <= 10 Then
Console.WriteLine ( 2 * i )
i = i + 1
End While

1
2
3
4
5
Dim i As Integer = 1
While i <= 10
Console.WriteLine ( 2 * i )
i = i + 1
End While 

1
2
3
4
While i <= 10
Console.WriteLine ( 2 * i )
i = i + 1
End While 

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

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

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
 

1
 

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
Console.Write("*")
Console.Write("***")
Console.WriteLine("*****")
Console.Write("****")
Console.WriteLine("**")
 ...

1
2
3
4
5
6
7
Sub Main
Console.Write("*")
Console.Write("***")
Console.WriteLine("*****")
Console.Write("****")
Console.WriteLine("**")
End Sub

1
console.writeline("*")