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

Filter by: All Bash C C# C++ 4.9.2 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++ 4.3.2 C99 strict CLIPS Clojure COBOL COBOL 85 Common Lisp (clisp) D 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) Python (Pypy) R Scala Scheme (chicken) Scheme (guile) Smalltalk Tcl Text Unlambda Whitespace

#bFeyP2 VB.NET 5 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. MsgBox(Now.ToLongDateString)
  6. End Sub
  7. End Class
#a1Q38t VB.NET 5 days ago
Compilation error
  1.  
  2. Imports System
  3. MsgBox(Now.ToLongDateString)
  4. Public Class Test
  5. Public Shared Sub Main()
  6. ' your code goes here
  7. End Sub
  8. End Class
#OJoPhd VB.NET 5 days ago
Time limit exceeded
  1. Imports System
  2.  
  3. Module UniqueRandomIntArray
  4.  
  5. Dim rnGen As System.Random = New System.Random()
  6.  
  7. Sub uriArray(rray() As Integer)
  8.  
  9. Dim poor As Integer = 0
#zT1Tef VB.NET 5 days ago
Time limit exceeded
  1. Imports System
  2.  
  3. Module UniqueRandomIntArray
  4.  
  5. Dim rnGen As System.Random = New System.Random()
  6.  
  7. Sub uriArray(rray() As Integer)
  8.  
  9. Dim poor As Integer = 0
#30sHU5 VB.NET 5 days ago
Success
  1. Imports System
  2.  
  3. Module UniqueRandomIntArray
  4.  
  5. Dim rnGen As System.Random = New System.Random()
  6.  
  7. Sub uriArray(rray() As Integer)
  8.  
  9. Dim poor As Integer = 0
#CfHrro VB.NET 5 days ago
Compilation error
  1. Imports System
  2.  
  3. Module UniqueRandomIntArray
  4.  
  5. Dim Generator As System.Random = New System.Random()
  6. Return Generator.Next(Min, Max)
  7.  
  8. Dim randoms(1000) As Integer
  9. For i As Integer = 0 to randoms.Length - 1
#reza6E VB.NET 5 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Sub Main()
  5. writeline("eat shit") ' your code goes here
  6. End Sub
  7. End Class
#XtWGMu VB.NET 5 days ago
Compilation error
  1. Private Sub Form_Load()
  2. a = getHTTPPage("http://i...content-available-to-author-only...8.com/ip2city.asp")
  3. b = Split(a, "[")(1)
  4. c = Split(b, "]")(0)
  5. MsgBox c
  6. End Sub
  7. Function getHTTPPage(url)
  8. On Error Resume Next
  9. Dim http
#S7sAVK VB.NET 5 days ago
Success
  1. Imports System
  2.  
  3. Module UniqueRandomIntArray
  4.  
  5. Dim rnGen As System.Random = New System.Random()
  6.  
  7. Sub uriArray(rray() As Integer)
  8.  
  9. Dim low As Integer = 0
#wtOZh3 VB.NET 5 days ago
Compilation error
  1. protected void Page_Load(object sender, EventArgs e)
  2. { string delimStr = " ,.:";
  3. char[] delimiter = delimStr.ToCharArray();
  4. string words = "Mango Apple.Banana,Pear:";
  5. string[] SplitString = null;
  6. for (int x = 1; x <= 5; x++)
  7. {
  8. SplitString = words.Split(delimiter, x);
  9. Response.Write("<br>Count = " + x + " ..............<br>");
#SfoHb3 VB.NET 5 days ago
Compilation error
  1. #include "stdafx.h"
  2. //[junk_enable 128 320 /]
  3.  
  4. //[enc_string_enable /]
  5.  
  6. string neg0 = "Aim Boat Disabled Off"; //save our plain ascii string
  7. std::wstring nag0 = std::wstring(neg0.begin(), neg0.end()); //copy it to a wide string
  8. const wchar_t* nig0 = nag0.c_str(); //convert wide string into wchar_t pointer
#Fp7QK5 VB.NET 6 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. dim d as object = nothing
  6. console.writeline("".Equals(d))
  7. End Sub
  8. End Class
#4xraWI VB.NET 6 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. dim d = DBnull.Value
  6. console.writeline("yes".Equals(d))
  7. End Sub
  8. End Class
#bHqwUp VB.NET 6 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. dim d as new DBnull.Value
  6. console.writeline("yes".Equals(d))
  7. End Sub
  8. End Class
#JeH0vH VB.NET 6 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. dim d as date
  6. console.writeline("yes".Equals(d))
  7. End Sub
  8. End Class
#kXeXcV VB.NET 6 days ago
Success
  1.  
  2. MODULE MODULEE
  3. SUB MAIN()
  4. CONSOLE.WRITELINE("QmFzZSA2NCBlcyB1biBzaXN0ZW1hIGRlIG51b WVyYWNpw7NuIHBvc2ljaW9uYWwgcXVlIHVzYS A2NCBjb21vIGJhc2UuIEVzIGxhIG1heW9yIHB vdGVuY2lhIGRlIGRvcyBxdWUgcHVlZGUgc2Vy IHJlcHJlc2VudGFkYSB1c2FuZG8gw7puaWNhb WVudGUgbG9zIGNhcmFjdGVyZXMgaW1wcmltaW JsZXMgZGUgQVNDSUkuIEVzdG8gaGEgcHJvcGl jaWFkbyBzdSB1c28gcGFyYSBjb2RpZmljYWNp w7NuIGRlIGNvcnJlb3MgZWxlY3Ryw7NuaWNvc ywgUEdQIHkgb3RyYXMgYXBsaWNhY2lvbmVzLg pQYXJhIHBhc2FyIGVzdGUgbml2ZWwsIHVzYSB sYSBwYWxhYnJhIEFTQ0lJLg==".TOLOWER() & SPACE(LEN("L")) & "QmFzZSA2NCBlcyB1biBzaXN0ZW1hIGRlIG51b WVyYWNpw7NuIHBvc2ljaW9uYWwgcXVlIHVzYS A2NCBjb21vIGJhc2UuIEVzIGxhIG1heW9yIHB vdGVuY2lhIGRlIGRvcyBxdWUgcHVlZGUgc2Vy IHJlcHJlc2VudGFkYSB1c2FuZG8gw7puaWNhb WVudGUgbG9zIGNhcmFjdGVyZXMgaW1wcmltaW JsZXMgZGUgQVNDSUkuIEVzdG8gaGEgcHJvcGl jaWFkbyBzdSB1c28gcGFyYSBjb2RpZmljYWNp w7NuIGRlIGNvcnJlb3MgZWxlY3Ryw7NuaWNvc ywgUEdQIHkgb3RyYXMgYXBsaWNhY2lvbmVzLg pQYXJhIHBhc2FyIGVzdGUgbml2ZWwsIHVzYSB sYSBwYWxhYnJhIEFTQ0lJLg==".TOLOWER())
  5. END SUB
  6. END MODULE
#PJ2qQ4 VB.NET 6 days ago
Compilation error
  1. Imports System.Text.RegularExpressions
  2. Imports System.Collections.Generic
  3. Imports System
  4. Imports System.Linq
  5.  
  6. Public Module Module1
  7.  
  8. Public Function ExtrairBlocos(ByVal texto As String) As List(Of String)
  9. Dim blocos As List(Of String)
#SB0oAd VB.NET 6 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Function ExtrairBlocos(ByVal texto As String) As List(Of String)
  5. ' Dim blocos As New List(Of String)
  6. ' blocos = Regex.Split(texto, "(""[^""]*""|\s+)").ToList()
  7. ' blocos.RemoveAll(Function(bloco) String.IsNullOrWhiteSpace(bloco))
  8. ' Return blocos
  9. End Function
#G5z3Rs VB.NET 6 days ago
Compilation error
  1. Imports System.Text.RegularExpressions
  2. Imports System
  3.  
  4. Module Module1
  5.  
  6. Function ExtrairBlocos(ByVal texto As String) As List(Of String)
  7. Dim blocos As New List(Of String)
  8. blocos = Regex.Split(texto, "(""[^""]*""|\s+)").ToList()
  9. blocos.RemoveAll(Function(bloco) String.IsNullOrWhiteSpace(bloco))
#gmCJry VB.NET 6 days ago
Success
  1. Imports System.Text.RegularExpressions
  2. Imports System
  3.  
  4. Module Module1
  5.  
  6. Sub Main()
  7. Dim texto As String = "if ""esse campo tem espaços"" = true"
  8. Dim blocos() As String = Regex.Split(texto, "(""[^""]*""|\s+)")
#Tupd1e VB.NET 6 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim Texto As String = "if "esse campo tem espaços" = true"
  6. Console.WriteLine(Texto)
  7. End Sub
  8. End Class
#DO9N9w VB.NET 6 days ago
Compilation error
  1. Option Strict On
  2.  
  3. Option Explicit On
  4.  
  5. Imports System.Math
  6.  
  7. Public Class Airports
  8.  
#vFzPNR VB.NET 6 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. a="Mehmet"
  6. string(3,"a")
  7. End Sub
  8. End Class
#Fkmr9b VB.NET 6 days ago
Compilation error
  1. Sub ulu_ulu1()
  2. Dim cCmpValue As String
  3. Dim cntA As Long
  4. Dim cntC As Long
  5. Dim cntP As Long
  6.  
  7. Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
  8. ra = ActiveCell.Address
  9.  
#1f7rac VB.NET 6 days ago
Compilation error
  1. Imports System
  2. Sub RDB_Workbook_To_PDF_And_Create_Mail()
  3. Dim FileName As String
  4.  
  5.  
  6. FileName = RDB_Create_PDF(Source:=ActiveWorkbook, _
  7. FixedFilePathName:="", _
  8. OverwriteIfFileExist:=True, _
  9. OpenPDFAfterPublish:=False)
#A4Tkp0 VB.NET 6 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. End Sub
  7. End Class
#0GXOCJ VB.NET 6 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. msgbox("your code goes here")
  6. End Sub
  7. End Class
#ADtt7V VB.NET 6 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim X1 As Double = 3.2
  6. Dim Y1 As Double = 4.5
  7. Dim X2 As Double = 1.5
  8. Dim Y2 As Double = 2.5
  9. Dim X3 As Double = 2.7
#4AIaRn VB.NET 6 days ago
Compilation error
  1. Dim X1 As Double
  2. Dim Y1 As Double
  3. Dim X2 As Double
  4. Dim Y2 As Double
  5. Dim X3 As Double
  6. Dim Y3 As Double
  7. Dim KatA As Double
  8. Dim KatB As Double
  9. Dim KatC As Double
#uVUvJG VB.NET 6 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