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

Filter by: All Bash C C# C++ 5.1 C++14 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 C++ C++ 4.3.2 C99 strict CLIPS Clojure COBOL COBOL 85 CoffeeScript Common Lisp (clisp) D D D (dmd) Elixir Erlang F# Factor Falcon Fantom Forth Fortran Go Groovy Icon Intercal JavaScript (rhino) JavaScript (spidermonkey) Lua Nemerle Nice Nim Node.js Objective-C Ocaml Octave Oz Perl 6 PicoLisp Pike Prolog (gnu) Prolog (swi) Python (Pypy) R Rust Scala Scheme (chicken) Scheme (guile) Smalltalk Tcl Text Unlambda Whitespace

#W8EMW8 VB.NET 13 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#Sy7eYb VB.NET 13 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#oTxHta VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#qJLEoe VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#67BvhJ VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#Fpildz VB.NET 13 days ago
Compilation error
  1. mports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#PR0cAY VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#00jNdQ VB.NET 13 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim i1 as integer
  8. Dim i2 as integer
  9. Dim i3 as integer
#zDluRA VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7.  
  8. Dim i1 as integer
  9. Dim i2 as integer
#U6pX8J VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7.  
  8. For i1 = 0 To 1
  9. For i2 = 0 To 1
#0XtjaD VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4.  
  5.  
  6. Dim mvArr As Variant
  7. Dim maResult() As String
  8. Dim maInclude() As Long
  9. Dim mlElementCount As Long
#IMyGIr VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4.  
  5.  
  6. Dim mvArr As Variant
  7. Dim maResult() As String
  8. Dim maInclude() As Long
  9. Dim mlElementCount As Long
#lA0VAf VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7.  
  8. Dim x As cPermutations
  9. Set x = New cPermutations
#RmoYiq VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim x As cPermutations
  8. Set x = New cPermutations
#bGOSpD VB.NET 13 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim Options() As String = {"0", "0", "0", "0", "0", "0", "0", "0", "1","1","1","1","1","1","1","1"}
  8. For x As Integer = 0 To 15
  9. For y As Integer = 0 To 15
#2osVrd VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7.  
  8. Dim Options() As String = {"0", "0", "0", "0", "0", "0", "0", "0, "1","1","1","1,"1","1","1","1"}
  9. For x As Integer = 0 To 15
#fIwBT1 VB.NET 13 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7. Dim Options() As String = {"00000000", "11111111"}
  8. For x As Integer = 0 To 2
  9. For y As Integer = 0 To 2
#YdAhIh VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6.  
  7.  
  8. Dim Options() As String = {"00000000", "11111111"}
  9. For x As Integer = 0 To 2
#QT7YPP VB.NET 13 days ago
Compilation error
  1. Private Shared Sub GetCombinationsRec(Of T)(sources As IList(Of IEnumerable(Of T)), chain As T(), index As Integer, combinations As ICollection(Of T()))
  2. For Each element As var In sources(index)
  3. chain(index) = element
  4. If index Is sources.Count - 1 Then
  5. Dim finalChain = New T(chain.Length - 1) {}
  6. chain.CopyTo(finalChain, 0)
  7. combinations.Add(finalChain)
  8. Else
  9. GetCombinationsRec(sources := sources, chain := chain, index := index + 1, combinations := combinations)
#XljWMW VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim sString as String
  6. Dim iIndex as Integer = 5
  7. sString = "Unknown"
  8. Select Case iIndex
  9. Case Is <= 4
#RZCJg8 VB.NET 13 days ago
Success
  1. Imports System
  2. Imports System.IO
  3.  
  4. Public Class Suretsu
  5. Shared Sub Main(ByVal args As String())
  6. Dim input As TextReader
  7. input = Console.In
  8.  
  9. Dim line As String = input.ReadLine()
#v0yKp2 VB.NET 13 days ago
Success
  1. Module Module1
  2.  
  3. Sub Main()
  4. If -1 Then
  5. Console.Write("Hello")
  6. ElseIf 0 Then
  7. Console.Write("World")
  8. End If
  9. End Sub
#5aHbas VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. if -1 then
  6. Console.WriteLine('Hello')
  7. end
  8. End Sub
  9. End Class
#NhXov6 VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4.  
  5. Private Sub drawImageButton_Click(sender As System.Object,e As System.EventArgs) Handles drawImageButton.Click
  6.  
  7.  
  8.  
  9. ' create an orange colored brush
#QomkJr VB.NET 13 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim s As String = "foo [123]=ro bar"
  7. Dim i As Integer = s.IndexOf("[")
  8. Dim f As String = s.Substring(i + 1, s.IndexOf("]", i + 1) - i - 1)
  9.  
#uRiWXg VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim s, result As String
  7. Dim r As RegularExpressions.Regex
  8.  
  9. s = "aaa[bbbb]ccc"
#yQ0VYS VB.NET 13 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6. Public Shared ReadOnly mbkEuroTypesByTld As New Dictionary(Of String, Of String)From {
  7. {".com", "valid"}
  8. }
  9.  
#k8CPSU VB.NET 13 days ago
Compilation error
  1. Sub Main
  2. ' This is DMV's steal the ENTER key script (sometimes the F10 key) and do some behind the scenes processing
  3. ' This script only does ENTER key processing. A copy and different variation of this code is saved as F10.vba for PF10 processing
  4. ' The ENTER keys must be mapped to this script (enter.vba) and the users must use the keyboard.KBD
  5. ' located in the folder c:\ntc32 as are the scripts (*.vba)
  6. '
  7. ' All of DMV screens provide a program or screen ID on line 2 column 2 up to 9 chars (maybe 8)
  8. ' The main purpose thus far is to identify which screens require a Lead / Cover sheet for scanning
  9. ' field / office work documents ...
#GU7oWf VB.NET 14 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Dim RandomClass As New Random()
  5. Dim RememberSet As New HashSet(Of Integer)
  6.  
  7. Dim RandomNumber As Integer
  8.  
  9. While RememberSet.Count < 5
#SRBBaH VB.NET 14 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Function RandomArray(min As Integer, max As Integer) As Integer()
  6.  
  7. If min >= max Then
  8. Throw New Exception("Min. must be less than Max.)")
  9. End If