1
print "sd"||"ds"

1
print %"sd"||"ds""% ert

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim table as System.IO.Data.DataTable
        End Sub
End Class

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class hashterminal
   Public Shared Sub Main() 
       Dim n As Integer
dim hash1 as boolean
dim hash2 as string
       n = Console.ReadLine
       Do While n <> 42
 ...

1
2
3
4
5
6
7
8
9
'On Error Resume Next
' main chunk of code originally written by Ian Diston
' code rewritten by MWJ - work in progress
 
 
set objShell = WScript.CreateObject( "WScript.Shell" )
set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
const HKCU = &H80000001
strComputer = "."
 ...

1
2
3
4
5
6
7
8
9
Function Sint (value as Long) as Integer
   
   Sint = (value AND &H7FFF)
 
   If (value > 32767) Then
     Sint = (Sint OR &H8000)
   End If
 
Exit Function
 ...

1
2
3
4
5
6
7
8
9
Function Sint (value as Long) as Integer
   
   Sint = (value AND &H7FFF)
 
   If (value > 32767) Then
     Sint = (Sint OR &H8000)
   End If
 
Exit Function
 ...

1
2
3
4
5
6
7
8
9
Sub main() 
 Try 
     Try 
         Throw New ApplicationException("First ") 
     Catch ex As ApplicationException 
        Console.WriteLine(ex.Message & _ 
        "captured by the inner ApplicationException catch block") 
         Throw New Exception("Second ") 
     Catch ex As Exception 
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Pascalls_Triangle
        Public Shared Sub Main()
                'Returns the number at the location inside pascalls triangle
                console.writeline(Pascalls_Return_n_Of_k(4,2))
        End Sub
        
        Public Shared Function Return_Factorial_Of_n(Byval n as Integer)
                'n! = n * (n-1)... * 3 * 2 * 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Pascalls_Triangle
        Public Shared Sub Main()
                'Returns the number at the location inside pascalls triangle
                console.writeline(Pascalls_Return_n_Of_k(4,2))
        End Sub
        
        Public Function Return_Factorial_Of_n(Byval n as Integer)
                'n! = n * (n-1)... * 3 * 2 * 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Pascalls_Triangle
        Public Shared Sub Main()
                'Returns the number at the location inside pascalls triangle
                Pascalls_Return_n_Of_k(4,2)
        End Sub
        
        Public Function Return_Factorial_Of_n(Byval n as Integer)
                'n! = n * (n-1)... * 3 * 2 * 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
Public Class Pascalls_Triangle
        Public Shared Sub Main()
                Pascalls_Return_n_Of_k(4,2)
        End Sub
        
        Public Function Return_Factorial_Of_n(Byval n as Integer)
                dim nFactorial as uint64 = 1
                for i as uint64 = n  to 1 step -1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Test
        Public Shared Sub Main()
                Pascalls_Return_n_Of_k(4,2)
        End Sub
        
        Public Function Return_Factorial_Of_n(Byval n as Integer)
                dim nFactorial as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as uint64 = 1
 ...

1
2
3
4
5
6
7
8
9
Imports System
imports system.numerics
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
 ...

1
2
3
4
5
6
7
8
9
Imports System
'What is the 10001 st prime number?
Public Class Euler_7
        Public Shared Sub Main()
                Console.Writeline("Project Euler #6")
                Console.Writeline()
                Console.Writeline("Generating...")
                Console.Writeline()
                dim answer as int64 = 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
print %"racecar" || "racecar"% tnirp

1
2
3
4
5
6
7
8
9
Imports System.IO
Imports System.Text
 
Module mainModule
 
    Private Function ReadAFile(ByVal FileName As String, ByVal Encode As Encoding) As String
        Try
            If My.Computer.FileSystem.FileExists(FileName) Then
                Dim fileReader As New StreamReader(FileName, Encode)
 ...

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp