1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
Dim s as string = ""
dim i as integer
Dim x as integer
For i = 1 to 8
s &= "hi"
next
 ...

1
I as interge

1
2
3
4
XDDPAY = XFORCE/PAYMASS
YDDPAY = YFORCE/PAYMASS
ADDPAY = MOM/PAYINT
RETURN

1
2
3
4
5
6
7
8
9
Public Function GetCodigoProximidad(ByVal p_CodigoProximidad As String) As String 
 
        If True Then 
            Dim longitud As Integer, i As Integer, j As Integer 
            Dim tfc As Double, fc As Double 
            Dim bin As String, hex As String, binfc As String, cfc As String, codigo As String 
            Dim facility As String, numcard As String, bintot As String, id As String 
            bintot = "" 
            bin = "" 
 ...

1
2
3
Private sub
Form2.InstanceExists
End sub

1
2
3
4
Private sub
Form2.InstanceExists  f.Show()
 
End sub

1
2
3
4
5
6
Private sub
If Form2.InstanceExists = False Then
 Dim f As New Form2
 f.Show()
End If
End sub

1
2
3
4
If Form2.InstanceExists = False Then
 Dim f As New Form2
 f.Show()
End If

1
dim b as form

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
 
Console.writeline(frac(5))
End sub
 
Public Shared Function frac(byval n as integer)as long
Dim a as integer = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
 
Console.writeline(frac(5))
End sub
 
Public Shared Function frac(byval n as integer)as long
Dim a as integer = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Public Shared Sub Main()
Dim s as string = ""
dim i as integer
For i = 1 to 8
s &= "hi"
next
Console.writeline(s)
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Private Sub main()
Dim s as string = ""
dim i as integer
For i = 1 to 8
s &= "hi"
next
Console.writeline(s)
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Test
Private Sub main()
Dim s as string = ""
For i = 1 to 8
s &= "hi"
next
Console.writeline(s)
End sub

1
2
3
4
5
6
7
Private sub main()
Dim s as string = ""
For i = 1 to 8
s &= "hi"
next
msgbox(s)
End sub

1
2
3
4
5
Dim s as string = ""
For i = 1 to 8
s &= "hi"
next
msgbox(s)

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
a=[[[3,1],[5,1],[821,1],[273997,1],[7741805910970258163,1]],[[2,2],[107,1],[244219007447,1],[95966808334871,1]],[[2,2],[7,3],[919,1],[56951,1],[103160249,1],[4656410419,1]],[[2,3],[17,1],[177693403,1],[414883089729841223,1]],[[3,1],[31,1],[4951,1],[1346989159,1],[50461897989311,1]],[[7,2],[79,1],[241,1],[4271,1],[48523,1],[1051181,1],[176838479,1]],[[2,1],[1475709031,1],[12177009148932085937,1]],[[6323573,1],[4753519027288416018457,1]],[[2,1],[18164960872674393974925145111,1]]]
a.length.times do |i|
n=1
(a[i].length).times do |j|
n*=a[i][j][0]**a[i][j][1]
end
s="";
(Math.log(n)/Math.log(256)).ceil.times do
s=(n%256).chr+s
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Application
        Public Shared Sub Main()
                'Trzeba sie przyjrzec, jak wyglada ten wzor.
                'Pierwszy składnik sumy (1+ 1/3*x trzbea obliczyc bo w zaden sposob nie ma zaleznosci z pozostalymi
                
                'Poczawszy od drugiego skladnika sumy zmienia sie:
                '- znak skladnika co drugi jest ujemny, co drugi dodatni.
                '- potega x-a rosnie o 1.
 ...

1
2
3
4
5
6
7
8
9
Public Class Application
        Public Shared Sub Main()
                'Trzeba sie przyjrzec, jak wyglada ten wzor.
                'Pierwszy składnik sumy (1+ 1/3*x trzbea obliczyc bo w zaden sposob nie ma zaleznosci z pozostalymi
                
                'Poczawszy od drugiego skladnika sumy zmienia sie:
                '- znak skladnika co drugi jest ujemny, co drugi dodatni.
                '- potega x-a rosnie o 1.
                '- licznik kazdego skladnika jest iloczynem liczb o roznicy 3, iloczyn ten zaczyna sie od 2.
 ...

1
2
3
4
5
6
7
8
9
 
Function Olcia(x As double, dokladnosc As Long) As double
'Trzeba sie przyjrzec, jak wyglada ten wzor.
'Pierwszy składnik sumy (1+ 1/3*x trzbea obliczyc bo w zaden sposob nie ma zaleznosci z pozostalymi
 
'Poczawszy od drugiego skladnika sumy zmienia sie:
'- znak skladnika co drugi jest ujemny, co drugi dodatni.
'- potega x-a rosnie o 1.
'- licznik kazdego skladnika jest iloczynem liczb o roznicy 3, iloczyn ten zaczyna sie od 2.
 ...

1
2
3
4
5
6
OptionExplicit
dim number as Integer
number = 3
if number > 3 then
  msgbox("test")
endif

1
2
3
4
5
6
7
8
9
Imports System
Imports System.Net.NetworkCredential
Imports System.IO  
Imports System.Net  
Imports System.Text 
Imports System.Web 
 
Public Module modmain
   Sub Main()
 ...

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

1
MsgBox("Ha");

1
2
3
4
5
6
7
8
9
main( )
{
int i = 1 ;
while ( i++<= 100 )
{
        printf ("%d\n",i);
        
}
}

1
2
3
4
5
6
7
8
9
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, _
    ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
 
        'Creating the request and getting the response
        Dim theResponse As HttpWebResponse
        Dim theRequest As HttpWebRequest
        Try 'Checks if the file exist
 
            theRequest = WebRequest.Create(Me.txtFileName.Text)
 ...

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
Dim number1 As Integer
Dim number2 As Integer
Dim multiplier As Integer
Dim answer As Integer
Dim i As Integer
 
number1 = Val(TextBox1.Text)
number2 = Val(TextBox2.Text)
 ...