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
public class a 
{
public static void main(String a[])
{
System.out.println("mani");
}
 
}

1
2
3
4
5
6
7
8
9
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
    If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
        Label1.Caption = "Done"
        ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
        Image1.Visible = True
    If Progress > 0 And ProgressMax > 0 Then
        ProgressBar1.Visible = True
        Image1.Visible = False
 ...

1
2
3
4
5
6
7
8
9
friend sub gg (byval v as integer = 33)
dim je as integer = 22
dim gg = v + 1
if not 0 then
msgbox(je)
exit sub
end if
msgbox(jj)
end sub
 ...

1
2
3
dim t as char
t = "q"c
msgbox(t)

1
2
3
dim t as double = 1234.5678
dim b as byte = cbyte(t)
msgbox(t & " " & b)

1
2
3
4
5
6
7
8
9
friend function gg (option byval v as integer = 33) as integer
dim je as integer = 22
gg = v + 1
if not -1 then
exit function
end if
return je
end function
msgbox(gg(31))

1
2
3
4
5
6
7
8
9
friend sub gg (optional byval v as integer = 33)
dim je as integer = 22
gg = v + 1
if not -1 then
msgbox(je)
exit function
end if
msgbox(jj)
end function

1
2
3
4
5
6
7
on error goto h
throw new DivideByZeroException()
msgbox("1")
h:
if (typeof err.getexception() is DivideByZeroException) then
msgbox("2")
end if

1
2
3
dim t as string = "FEW"
dim c as char = cchar(t)
msgbox(t & " " & c)

1
2
3
dim t as long = 123
dim t1 as single = ctype(t,boolean)
msgbox(t & " " & t1)

1
2
3
4
5
6
7
8
9
friend function gg (option byval v as integer = 33) as integer
dim je as integer = 22
gg = v + 1
if 1 = 1 then
exit function
end if
return je
end function
msgbox(gg(31))

1
2
3
4
5
6
7
on error goto h
throw new exception()
msgbox("1")
h:
if (typeof err.getexception() is DivideByZeroException) then
msgbox("2")
end if

1
2
3
4
5
6
7
8
9
friend sub gg (byval v as integer = 33)
dim je as integer = 22
dim gg = v + 1
if not 0 then
msgbox(je)
exit sub
end if
msgbox(jj)
end sub
 ...

1
2
3
4
5
6
public function gg (optional byval v as integer = 33) as integer
dim je as integer = 22
gg = v + 1
return je = 22
end function
msgbox(gg())

1
2
3
dim t as double = 1234.5678
dim b as byte = cbyte(t)
msgbox(t & " " & b)

1
2
3
4
5
6
7
8
9
PRINT "Privetstvuiu, eto programma napisana Mihailom Sokolyanskim"
PRINT "____________________________________________________________"
 
INPUT "Familiya:", f$
INPUT "Imya:", i$
INPUT "Class:", k$
INPUT "Bukva classa:", b$
CLS
SLEEP
 ...

1
print "pópi"

1
msgbox("pópi")

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
 

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