1
2
3
4
5
dim x as string
 
x="olá"
 
messagebox.show(x)

1
2
3
4
5
6
7
8
9
#include<graphics.h>
#include<dos.h>
#include<stdlib.h>
#include<iostream.h>
#include<conio.h>
#include<string.h>
#include<process.h>
#include<fstream.h>
#include<dir.h>
 ...

1
 

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
AL:IERhhhhhhhhhhhaerg

1
msgbox("Te amo")

1
 MsgBox("Debe Ingresar un Codigo de Serie o parte de el", MsgBoxStyle.Exclamation, "Error")

1
2
3
Dim mocha as string
mocha = "Te amo mucho"
MsgBox(mocha, MsgBoxStyle.Information, "♥")

1
2
3
4
private button1.click
{
msgbox("hi")
}

1
2
3
4
5
class Ex
sub main
 
end sub
end class

1
2
3
4
5
class Ex
sub main
"HELLO"
end sub
end class

1
2
3
4
5
class Ex
sub main
text1.text="HELLO"
end sub
end class

1
dim num as string

1
2
3
4
5
6
7
8
9
Module mainModule
Sub Main()
 
Dim s1 As String = Nothing
If (s1 = Nothing) Then
   Call Console.WriteLine("String の Nothing は Nothing と等しいです。")
Else
   Call Console.WriteLine("String の Nothing は Nothing と等しくありません。")
End If
 ...

1
2
3
4
5
6
7
8
9
Module mainModule
    Sub Main()
 
Dim s1 As String = Nothing
If (s1 = Nothing) Then
   Call Console.WriteLine("String の Nothing は Nothing と等しいです。")
Else
   Call Console.WriteLine("String の Nothing は Nothing と等しくありません。")
End If
 ...

1
2
3
4
5
6
7
8
9
Dim s1 As String = Nothing
If (s1 = Nothing) Then
   Call Console.WriteLine("String の Nothing は Nothing と等しいです。")
Else
   Call Console.WriteLine("String の Nothing は Nothing と等しくありません。")
End If
 
Dim s2 As String = String.Empty
If (s2 = Nothing) Then
 ...

1
2
3
4
5
6
7
8
9
Imports System
Declare Function GetStdHandle Lib "kernel32" (ByVal _
           nStdHandle As Long) As Long
Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
           (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
           nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
           lpReserved As Any) As Long
Public Class Test
        Public Shared Sub Main()
 ...

1
Console.WriteLine("Hello World!")

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim winhttp As New winhttp.WinHttpRequest
Dim i As Integer
Dim a As String
For i = 0000 To 99999
winHttp.Open "GET", "http://webhacking.kr/challenge/web/web-04/index.php?cid=admin&cpw=" & i
winhttp.Send
a = StrConv(winhttp.ResponseBody, vbUnicode)
Label1.Caption = i
 ...

1
2
3
4
5
6
7
8
9
 
      Dim strName1 As String = ”Jim”
      Dim strName2 As String = “John”
      If strName1 > strName2 Then
              lblMessage.Text = “Jim is greater”
      Else
             lblMessage.Text = “John is greater”
     End If
 

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                System.Console.WriteLine(DateDiff(DateInterval.Month, -1, Today()))
        End Sub
End Class

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

1
debug.print("Hey")

1
debug.print "Hey"

1
2
3
4
5
6
7
8
9
'   Autor : Hernán Toro
'   Lenguaje : VB.Net
'   Descripcion : este programa calcula promedio de dos notas
 
Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Dim nombre As String
 ...

1
2
3
4
5
6
7
8
9
'   Autor : Hernán Toro
'   Lenguaje : VB.Net
'   Descripcion : este programa calcula promedio de dos notas
 
Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Dim nombre As String
 ...

1
2
3
4
5
6
7
8
9
'   Autor : Hernán Toro
'   Lenguaje : VB.Net
'   Descripcion : este programa calcula promedio de dos notas
 
Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Dim nombre As String
 ...

1
2
3
4
5
6
7
8
9
'   Autor : Hernán Toro
'   Lenguaje : VB.Net
'   Descripcion : este programa calcula promedio de dos notas
 
Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Dim nombre As String
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Dim nombre As String
        Dim calif1 As Double
        Dim calif2 As Double
        Dim notaFinal As Double
        Dim mensaje As String
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Dim nombre As String
        Dim calif1 As Double
        Dim calif2 As Double
        Dim notaFinal As Double
        Dim mensaje As String
 ...