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

#1Q4xYC VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim a As Integer = 2014
  6.  
  7. Do
  8. a = a + 1
  9. If a Mod 4 = 0 Then
#IZOPWD VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. LabDarbs_I(3)
  6. End Sub
  7.  
  8. Public Function LabDarbs_I(x) As int
  9. If x < -1 Or 2 * Sin(x) > 1 Or 1 - 2 * Sin(x) = 0 Then
#fbO9DP VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Public Function LabDarbs_I(x)
  6.  
  7. If x < -1 Or 2 * Sin(x) > 1 Or 1 - 2 * Sin(x) = 0 Then
  8.  
  9. LabDarbs_I = "neeksistē"
#qH5OdM VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim phone As String = "86022494387"
  7.  
  8. Console.WriteLine(String.Format("{0:(###) ###-####}", phone))
  9.  
#e0MyzO 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
#bWb2rB VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. dim EndDate as new datetime
  6. EndDate = convert.todatetime("10/08/2014")
  7. dim BillStart as new datetime
  8. Dim TrialNextMonthDate As DateTime = DateAdd(DateInterval.Month, 1, EndDate)
  9. BillStart = DateSerial(TrialNextMonthDate.Year, TrialNextMonthDate.Month, 1)
#O3OSqw VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. For a As Integer = 1 To 10
  6. Console.WriteLine(a)
  7. Next
  8.  
  9. Console.WriteLine("-----------------------")
#R9cFku VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. For a As Integer = 1 To 10
  6. Console.WriteLine(a)
  7. Next
  8. End Sub
  9. End Class
#VRmGqY VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim a As Integer = 1
  6.  
  7. Do
  8.  
  9. Console.WriteLine(a)
#eznLv0 VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim marks As Integer
  6. Dim grade As String
  7.  
  8. marks = 88
  9.  
#Owepxl VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(GetColumnNumber("B"))
  6. End Sub
  7.  
  8. Public Shared Function GetColumnNumber(name As String) As Integer
  9. Dim number As Integer = 0
#ESEXr3 VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim cont1, cont2, media, n, soma, maior As Integer
  6. n = console.readline
  7. cont1 = 1
  8. If n > 175 then
  9. cont2 = cont2 + 1
#omdHUS VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim a As Integer = 1
  7. While (a <= 10)
  8. Console.WriteLine(a)
  9.  
#0D90Pm VB.NET 8 days ago
Compilation error
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Web;
  5. using System.Web.UI;
  6. using System.Web.UI.WebControls;
  7.  
  8. public partial class homework03 : System.Web.UI.Page
  9. {
#pXlM0v VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim marks As Integer
  6. Dim grade As String
  7.  
  8. marks = 88
  9.  
#uKez0H VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim width, height, column_width, column_area, room_area As Decimal, column_count As Integer
  6.  
  7. Console.WriteLine("Room Width in meters")
  8. width = Console.ReadLine()
  9. Console.WriteLine("Room Height in meters")
#dTUsrR VB.NET 8 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. MsgBox("Hello, World!")
  6. End Sub
  7. End Class
#rWQBxE VB.NET 9 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim m As Double
  6. End Sub
  7. End Class
#risguq VB.NET 9 days ago
Success
  1. module first
  2. sub main()
  3. dim a as integer =10
  4. dim b as integer =20
  5. dim c as integer =30
  6.  
  7. if (a>b) then
  8. if (b>c) then
  9. console.writeline(b)
#F03rEG VB.NET 9 days ago
Success
  1. Imports System
  2. Imports System.Text
  3.  
  4. Public Class Test
  5. Public Shared Sub Main()
  6. Dim b As Boolean = False
  7. Dim st As StringBuilder = Nothing
  8.  
  9. Console.WriteLine((Not b).ToString)
#CL9Tho VB.NET 9 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
#AQB3lL VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim intNum As Integer
  6. intNum = Console.ReadLine()
  7. Call Factoral(intNum)
  8. End Sub
  9. Function Factoral(Dim intNum As Integer)
#vAGMoe VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim intFunction As Integer
  6.  
  7. intFunction = Console.ReadLine
  8. Call Factorial(intFunction)
  9.  
#3X6ggh VB.NET 9 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine("Adam is gay.")
  6. Console.ReadLine()
  7. End Sub
  8. End Class
#ri54EQ VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. WriteLine("Adam is gay")
  6. ReadLine()
  7. End Sub
  8. End Class
#SFMZdO VB.NET 9 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
#xaiYA7 VB.NET 9 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine("lol Adam")
  6. Console.ReadLine()
  7. End Sub
  8. End Class
#XWsV2v VB.NET 9 days ago
Runtime error
  1. Namespace System.Collections.Generic
  2. Module VBModule
  3. Sub Main()
  4. console.writeline("Enter ISBN:")
  5. Dim isbn As String = console.readline()
  6. isbn = isbn.Replace("-","")
  7. Dim length As Integer = len(isbn)
  8. Dim counter As Integer = 0
  9. Dim isbn_list As New List (Of Integer)
#NnO7rT VB.NET 9 days ago
Runtime error
  1. Namespace System.Collections.Generic
  2. Module VBModule
  3. Sub Main()
  4. console.writeline("Enter ISBN:")
  5. Dim isbn As String = console.readline()
  6. isbn = isbn.Replace("-","")
  7. Dim length As Integer = len(isbn)
  8. Dim counter As Integer = 0
  9. Dim isbn_list As New List (Of Integer)
#bOw9Pf VB.NET 9 days ago
Runtime error
  1. Namespace System.Collections.Generic
  2. Module VBModule
  3. Sub Main()
  4. console.writeline("Enter ISBN:")
  5. Dim isbn As String = console.readline()
  6. isbn = isbn.Replace("-","")
  7. Dim length As Integer = len(isbn)
  8. Dim counter As Integer = 0
  9. Dim isbn_list As New List (Of Integer)