1
msgbox ("test")

1
msgbox "test"

1
2
3
4
5
6
7
8
9
        global _start
 
section .data
        buffer  dw      0h
 
section .text
 
_start:
        mov             ecx, buffer
 ...

1
2
3
4
5
6
7
8
9
sub s()
 
for a= 1 to 29
 
ss=a
 
next 
 
end sub

1
 

1
2
3
4
5
for a= 1 to 29
 
ss=a
 
next

1
In MySQL, what is the result of "select round(-3.57);"

1
2
3
4
5
6
7
8
9
class Program2
{
        static void Main(string[] args)
        {
                Student a = new Student(5);
                Student b = a;
                a.Grade += 4;
                b.Grade -= 4; 
                
 ...

1
print "Kode Multus"

1
print "Kode Multus"

1
2
3
4
5
6
7
8
9
public void VBTrim_Test()
 
      {
 
            string str="string" + '\r' + '\n';
 
            Debug.WriteLine(String.Format("length of {0} is {1}", str,Microsoft.VisualBasic.Strings.Len(str)));
 
            str=Microsoft.VisualBasic.Strings.Trim(str);
 ...

1
Charlie bit me!

1
2
3
4
5
6
7
8
9
Partial Public Class Homepage
    Inherits System.Web.UI.MasterPage
    Protected Sub Page_Load(sender As Object, e As EventArgs)
    End Sub
 
    Protected Sub RequestLanguageChange_Click(sender As Object, e As EventArgs)
        Dim senderLink As LinkButton = TryCast(sender, LinkButton)
 
        'store requested language as new culture in the session
 ...

1
2
3
4
5
6
7
8
9
Dim bInUndoRedo AsBooleanPrivateSub ThisDocument_ContentControlBeforeDelete(ByVal OldContentControl As Microsoft.Office.Interop.Word.ContentControl, ByVal InUndoRedo AsBoolean) HandlesMe.ContentControlBeforeDelete
            bInUndoRedo = InUndoRedo
          EndSubPrivateSub ThisDocument_SelectionChange(ByVal sender AsObject, ByVal e As Tools.Word.SelectionEventArgs) HandlesMe.SelectionChange
 
            TryDim selection As Word.Selection = e.Selection
              IfNot bInUndoRedo ThenDim numberOfControls AsInteger = (From book As Word.Bookmark In selection.Bookmarks _
                                    Select book _
                                    Where book.Name.Contains("Something")).Count()
              EndIfDim s AsString, bkm As Word.Bookmark
 ...

1
2
3
4
5
6
7
8
9
Dim bInUndoRedo AsBooleanPrivateSub ThisDocument_ContentControlBeforeDelete(ByVal OldContentControl As Microsoft.Office.Interop.Word.ContentControl, ByVal InUndoRedo AsBoolean) HandlesMe.ContentControlBeforeDelete
            bInUndoRedo = InUndoRedo
          EndSubPrivateSub ThisDocument_SelectionChange(ByVal sender AsObject, ByVal e As Tools.Word.SelectionEventArgs) HandlesMe.SelectionChange
 
            TryDim selection As Word.Selection = e.Selection
              IfNot bInUndoRedo ThenDim numberOfControls AsInteger = (From book As Word.Bookmark In selection.Bookmarks _
                                    Select book _
                                    Where book.Name.Contains("Something")).Count()
              EndIfDim s AsString, bkm As Word.Bookmark
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
        Try
                Test1()
        Catch e As Exception
                Console.WriteLine(e)
        End Try
 ...

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
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
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
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
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
    
        
        Dim texto As String
 
        
 ...

1
 

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
    Private Sub btCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcular.Click
        
        Dim texto As String
 
        
 ...

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

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       
        Try
 
        Catch ex As Exception
                Console.WriteLine "Error Handling..."
 ...

1
2
3
Try
 
End Try

1
2
3
4
5
6
7
8
Public Class frmChapa
    Private Sub btCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcular.Click
        
        Dim texto As String
 
        
        Dim x As Integer
        Dim y As Integer
 ...

1
2
3
4
5
6
7
8
Public Class frmChapa
    Private Sub btCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcular.Click
        'declaro la cadena de caracteres
        Dim texto As String
 
        'declaro las variables de control
        Dim x As Integer
        Dim y As Integer
 ...

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