Looking for an inspiration? Below you will find public programs submitted by other users.

Filter by: All Bash C C# C++ 4.8.1 C++11 Haskell Java Java7 Objective-C Pascal (fpc) Pascal (gpc) Perl PHP Python Python 3 Ruby SQL VB.NET Ada Assembler Assembler AWK (gawk) AWK (mawk) bc Brainf**k C++ 4.3.2 C99 strict CLIPS Clojure COBOL COBOL 85 Common Lisp (clisp) D (dmd) Erlang F# Factor Falcon Forth Fortran Go Groovy Icon Intercal JavaScript (rhino) JavaScript (spidermonkey) Lua Nemerle Nice Nimrod Node.js Ocaml Octave Oz PARI/GP Perl 6 Pike Prolog (gnu) Prolog (swi) R Scala Scheme (guile) Smalltalk Tcl Text Unlambda Whitespace

#qVnyQ6 VB.NET 7 days ago
Compilation error
  1. import sys
  2.  
  3. def main():
  4.  
  5. num = 65
  6.  
  7. counter = 1
  8.  
  9. func(num, counter)
#DEPMmK VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(1<>1)
  6. End Sub
  7. End Class
#iUENH6 VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(DateSerial(Year(CType("2014-09-27", DateTime)), Month(CType("2014-09-27", DateTime)) + 1, 0))
  6. End Sub
  7. End Class
#B0cHQT VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(DateSerial(Year(CType("2014-09-30", DateTime)), Month(CType("2014-09-30", DateTime)) + 1, 0))
  6. End Sub
  7. End Class
#10IzYo VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine("Hello World")
  6. End Sub
  7. End Class
#fqYELZ VB.NET 7 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim aa As String = "smth_343_xyz_000"
  7.  
  8. Dim bb As String = aa.Split("_")(1)
  9. 'Dim cc As String = aa.Split("_")(2)
#y5DUKn VB.NET 7 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim aa As String = "smth_343"
  7.  
  8. Dim bb As String = aa.Split("_")(1)
  9. Dim cc As String = aa.Split("_")(2)
#UHUyfY VB.NET 7 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. IIF(2984 <> "", "Approved By " & "2984" & " on " "2301", IIF(2985 <> "", "Suspened By " & "2985" & " on 2303", IIF([2986] <> "", "Denied By " & "2986" & " on " & "2987", IIF([2988] <> "", "Approved on Different Terms By " & [2988] & " on " [2989]))))
  6. End Sub
  7. End Class
#48z5WI VB.NET 7 days ago
Success
  1. Imports System
  2. Module Module1
  3. Sub Main()
  4. Console.WriteLine("Hello World")
  5. Console.ReadKey()
  6. End Sub
  7. End Module
#rcFP82 VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim sCode = "051056062060069068069079"
  6. Dim i As Integer
  7. Dim sDec As String = ""
  8. Dim sDecode
  9. For i = 1 To Len(sCode) Step 3
#ldxjUg VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim sCode = "113073087114114118120079"
  6. Dim i As Integer
  7. Dim sDec As String = ""
  8. Dim sDecode
  9. For i = 1 To Len(sCode) Step 3
#goAPMh VB.NET 7 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim sCode = "113073087114114118120079"
  6. Dim i As Integer
  7. Dim sDec As String = ""
  8.  
  9. For i = 1 To Len(sCode) Step 3
#vgoIYS VB.NET 7 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim sCode = "113073087114114118120079"
  6. Dim i As Integer
  7. Dim sDec As String = ""
  8. '
  9. For i = 1 To Len(sCode) Step 3
#ZRGTLv VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim i As Long = 17
  6. Console.WriteLine((i and CLng(2 ^ 0)))
  7. Console.WriteLine((i and CLng(2 ^ 1)))
  8. Console.WriteLine((i and CLng(2 ^ 2)))
  9. Console.WriteLine((i and CLng(2 ^ 3)))
#wTzXul VB.NET 7 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim userRoles = New String() {"a", "z", "k", "y", "w"}
  6.  
  7. Dim i = New String() {"y", "z"}.All(Function(v) userRoles.Contains(v)) OrElse userRoles.Contains("x")
  8.  
  9. Console.WriteLine(i)
#rz9hNP VB.NET 7 days ago
Compilation error
  1. Imports System
  2. Module Module1
  3.  
  4. Sub Main()
  5. Dim userRoles = New String() {"a", "z", "k", "y", "w"}
  6.  
  7. Dim i = New String() {"y", "z"}.All(Function(v) userRoles.Contains(v)) OrElse userRoles.Contains("x")
  8.  
  9. Console.WriteLine(i)
#yMW4bv VB.NET 7 days ago
Success
  1. Module Module1
  2. Sub Main
  3. Console.WriteLine("Hi")
  4. End Sub
  5. End Module
#EgzsIo VB.NET 7 days ago
Compilation error
  1. Function OutPut(S, str, kol As Variant)
  2.  
  3. Cells(str + 2, kol).Font.Bold = True
  4. Cells(str + 2, kol).HorizontalAlignment = xlLeft
  5. Cells(str + 2, kol).Value = S(4)
  6.  
  7. If (S(4) = "UM 75 PVR Ïð.Èí.ÕÂ4 á/î 490") Or _
  8. (S(4) = "UM 75 PVR Ïð.Èí.ÕÂ4 21.6Ì 350") Or _
  9. (S(4) = "UM SM75 PVR ÏÈ ÕÂ4 21.6Ì 350") Or _
#R7spQ0 VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6. End Sub
  7. End Class
#qqkDSA VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.writeline("hi")
  6. End Sub
  7. End Class
#7nJIjp VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.writeline("hello there")
  6. console.readline()
  7. End Sub
  8. End Class
#nNWhJ3 VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6. End Sub
  7. End Class
#pdttKc VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim dteStartOfYear As Date
  7. Dim dteWorkingDate As Date
  8. Dim intWeeks As Integer
#j8ehJY VB.NET 7 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine("Hello, world!")
  6. End Sub
  7. End Class
#hRygx7 VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine((NOT (15 OR 51) EQV 85) IMP (15 AND 51));
  6. End Sub
  7. End Class
#trZMpE VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6. End Sub
  7. End Class
#boKeD1 VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine((NOT (15 OR 51) EQV 85) IMP (15 AND 51))
  6. End Sub
  7. End Class
#PkvrnB VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. System.writeline("Hello Orld")
  6. End Sub
  7. End Class
#ub2le2 VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim k, i, m, h, k1 As Integer
  6. Dim S, P As Double
  7. Dim X As String
  8. 1:M = Val(Console.ReadLine())
  9. h = Val(Console.ReadLine())
#Z8rIwe VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim k, i, m, h, k1 As Integer
  6. Dim S, P As Double
  7. Dim X As String
  8. 1:M = Val(Console.ReadLine())
  9. h = Val(Console.ReadLine())