1
2
3
4
5
6
7
8
9
Private Class Alunos
 
      Dim numero_ As Integer
      Dim nome_    As String
      Dim notas_    As String
 
      Public sub New( numero As Integer, nome As String , portugues As Integer, matematica As integer)
                  numero_               = numero
      End Sub
 ...

1
2
3
4
5
6
7
8
9
Public Class Alunos
 
      Dim numero_ As Integer
      Dim nome_    As String
      Dim notas_    As String
 
      Public sub New( numero As Integer, nome As String , portugues As Integer, matematica As integer)
                  numero_               = numero
      End Sub
 ...

1
2
3
4
5
6
7
8
9
Public Class Alunos
 
      Dim numero_ As Integer
      Dim nome_    As String
      Dim notas_    As String
 
      Public sub New( numero As Integer, nome As String , portugues As Integer, matematica As integer)
                  numero_               = numero
      End Sub
 ...

1
2
3
4
5
6
7
8
9
Public Class Alunos
 
      Dim numero_ As Integer
      Dim nome_    As String
      Dim notas_    As String
 
      Public sub New( numero As Integer, nome As String , portugues As Integer, matematica As integer)
                  numero_               = numero
      End Sub
 ...

1
2
3
4
5
6
7
8
9
Public Class Alunos
 
      Dim numero_ As Integer
      Dim nome_    As String
      Dim notas_    As String
 
      Public sub New( numero As Integer, nome As String , portugues As Integer, matematica As integer)
                  numero_               = numero
      End Sub
 ...

1
2
3
4
5
6
7
8
9
Public Class Alunos
 
      Dim numero_ As Integer
      Dim nome_    As String
      Dim notas_    As Notas()
 
      Public sub New( numero As Integer, nome As String , portugues As Integer, matematica As integer)
                  numero_               = numero
                  nome_                  = nome
 ...

1
2
3
For valor As Integer = 1 To 10 Step 1
  Console.WriteLine(valor)
Next

1
2
3
For valor As Integer = 1 To
  Console.WriteLine(valor)
Next

1
2
3
For valor As Integer = 1 To 10 
  Console.WriteLine(valor)
Next

1
response.write "test"

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
for i as integer = 65 to 70
console.write(chr(i))
next
      
   End Sub

1
2
3
4
5
6
7
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       MsgBox "Hello World"
   End Sub
End Class

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       Dim n As Integer
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
 ...

1
2
3
{
      MsgBox "Hello World"
}

1
2
3
4
5
6
7
{
        num = $1;
        if(num == 42)
                exit;
        else
                printf("%d\n", num);
}

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
Sub Main()
msgbox "Hello World"
End Sub

1
 

1
2
3
4
5
Public Class Test
        Public Sub Main()
                System.Console.WriteLine("Test")
        End Sub
End Class

1
2
3
public class test
 
end class

1
2
3
sub main()
        Console.Write("Hello")
end sub

1
2
3
4
5
6
7
8
9
Private Sub Refresh_Data()
        Dim sfilter As String
        Dim ws As New localhost.CHISSLippoWS
 
        sfilter = Const_Filter(Me, "Datamaster")
        If sfilter = "" Then
            MasterKuery = "Select cast(agelower as varchar(5)) as ageLower, cast(ageupper as varchar(5)) as ageUpper, cast(AgeBandID as varchar(5)) as AgeBandID from AgeBand where 1<>1"
        Else
            MasterKuery = "Select cast(agelower as varchar(5)) as ageLower, cast(ageupper as varchar(5)) as ageUpper, cast(AgeBandID as varchar(5)) as AgeBandID from AgeBand where " & sfilter
 ...

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.Write("Chosen")
        End Sub
End Class

1
2
3
4
5
6
7
8
9
Sub Main()
Dim valores() as Integer = {10, 9, 8, 7}
Metodo(valores)
System.Console.Write(valores(2))
End Sub
 
Sub Metodo (ByVal parametro() As Integer)
Dim vector2() As Integer = {2, 3, 4}
parametro = vector2
 ...

1
 

1
2
3
4
5
6
7
8
9
Sub Main()
Dim valores() as Integer = {10, 9, 8, 7}
Metodo(valores)
System.Console.Write(valores(2))
End Sub
 
Sub Metodo (ByVal parametro() As Integer)
Dim vector2() As Integer = {2, 3, 4}
parametro = vector2
 ...

1
2
3
4
5
6
7
8
9
Sub Main()
Dim valores() as Integer = {10,9,8,7}
Metodos(valores)
System.Console.Write(valores(2))
End Sub
 
Sub Metodos (ByVal parametro() As Integer)
Dim vector2() As Integer = {2,3,4}
parametro = vector2
 ...

1
2
3
4
5
6
7
8
9
Sub Main()
Dim valores() as integer = {10,9,8,7}
Metodos(valores)
system.console.write(valores(2))
End Sub
 
Sub Metodos (ByVal parametro() As Integer)
Dim vector2() As Integer = {2,3,4}
parametro = vector2
 ...

1
2
3
4
5
6
7
8
9
'Este exemplo mostra como classificar um array de inteiros
'em ordem crescente
 
Module Module1
  Sub Main()
    ' cria um array de inteiros
    Dim valores() As Integer = {2, 6, 3, 1, 8, 45, 0, 12}
 
    'exibe os valores do array na ordem original
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       Dim n As Integer
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
 ...