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

#vzxNUT VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim test as String = vbNewLine & "RV"
  6. Dim lngIndex as Int32 = test.IndexOf(vbNewLine & "RV")
  7.  
  8. 'Console.Out.WriteLine(test)
  9. Console.Out.WriteLine(lngIndex)
#x7snbo VB.NET 8 days ago
Compilation error
  1. msgbox "deneme"
#DSw5oO VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim n As Integer
  6. n = Console.ReadLine
  7. Do While n <> 42
  8. System.Console.WriteLine(n)
  9. n = Console.ReadLine
#w7cM5o VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. input a,b,c,Ar,p as integer
  6. a=inputbox("Digita il valore")
  7. b=inputbox("Digita il valore")
  8. c=Sqr((a^2)+(b^2))
  9. p= a+b+c
#kjWhdl VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Function IsAny(Of T)(data As IEnumerable(Of T)) As Boolean
  5. Return data IsNot Nothing AndAlso data.Any()
  6. End Function
  7. Public Shared Sub Main()
  8. ' your code goes here
  9. DIm l as New List(of String)
#VeBe9y 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
#dZkkuz VB.NET 9 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(Format("abc", "00000"))
  6. End Sub
  7. End Class
#6EMIPL VB.NET 9 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(Format("abc", "00000"))
  6. End Sub
  7. End Class
#hgzz3A VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(15, "00000")
  6. End Sub
  7. End Class
#vxGbUe VB.NET 9 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim n As Integer
  6. n = Console.ReadLine
  7. Do While n <> 42
  8. System.Console.WriteLine(n)
  9. n = Console.ReadLine
#xiHICB VB.NET 9 days ago
Compilation error
  1. Module Module1
  2.  
  3. Sub Main()
  4. Dim width, height As Integer
  5. Dim answer As Integer
  6. Console.WriteLine("Please enter the width of a rectangle")
  7. width = Console.ReadLine
  8. console.writeline("Please enter the height of a rectangle")
  9. height = console.readline
#zOMeWQ VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim n As Integer
  6. n = Console.ReadLine
  7. Do While n <> 42
  8. System.Console.WriteLine(n)
  9. n = Console.ReadLine
#yrQh5w 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. console.readline
  7. End Sub
  8. End Class
#WaNr9i VB.NET 9 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.WriteLine(IsNumeric("-5"))
  6. End Sub
  7. End Class
#uZCb9H VB.NET 9 days ago
Compilation error
  1. Imports System
  2. Option Explicit On
  3. Imports System.Timers
  4. Imports System.Reflection
  5. Imports System.Drawing
  6. Imports System.Windows.Forms
  7. Imports Excel = Microsoft.Office.Interop.Excel
  8. Imports System.Windows.Forms.DataVisualization.Charting
#DS0Q3Q VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. dim str_string as string
  6. str_string="jkjk"
  7. System.Console.WriteLine(str_string.reverse)
  8.  
  9. Loop
#npgAlS VB.NET 9 days ago
Compilation error
  1. using System;
  2. using System.Collections.Generic;
  3. using System.ComponentModel;
  4. using System.Data;
  5. using System.Drawing;
  6. using System.Diagnostics;
  7. using System.Linq;
  8. using System.Text;
  9. using System.Windows.Forms;
#cvEJE1 VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim public deltaPCT_D AS Decimal() = {0,0,0,0,0,0,0}
  6.  
  7. Public Function setMaxUnderlying(ByVal uVal AS Decimal, ByVal UDTVal AS String) AS Decimal
  8.  
  9. Select Case UDTVal
#Vlgjyy VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. ' your code goes here
  6. End Sub
  7. End Class
  8.  
  9. Dim public deltaPCT_D AS Decimal() = {0,0,0,0,0,0,0}
#h54Mdz VB.NET 9 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Function isLeap(ByVal year As Integer) As Boolean
  5. Return (year Mod 400) = 0 Or ((year Mod 4) = 0 And (year Mod 100) <> 0)
  6. End Function
  7.  
  8. Public Shared Sub Main()
  9. Console.WriteLine(isLeap(Console.ReadLine))
#NJDkZX VB.NET 9 days ago
Success
  1. Module constantsNenum
  2. Sub Main()
  3. Const PI = 3.14149
  4. Dim radius, area As Single
  5. radius = 7
  6. area = PI * radius * radius
  7. Console.WriteLine("Area = " & Str(area))
  8. Console.ReadKey()
  9. End Sub
#QhruAP VB.NET 9 days ago
Compilation error
  1. #include <iostream>
  2. #include <iomanip>
  3. #include <algorithm>
  4. #include<string>
  5. using namespace std;
  6. struct F{
  7. string name,style;
  8. };
  9. bool cmp(F x,F y){
#YRvduy 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. dim a as integer
  7. beep()
  8. End Sub
  9. End Class
#EkOvcm VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. for i as integer= 1 to 5
  7. document.write("The number is " & i & "<br>")
  8. i=i+1
  9. next
#FWwr3f VB.NET 9 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim ai As Integer = 0
  6.  
  7. For ai = 24 To 3 Step -1
  8. Console.WriteLine(ai & " ")
  9. ai /= 2
#26R4wd VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim ai As Integer = 6
  6. Dim bi As Integer = 20
  7. Dim ci As Integer = 0
  8.  
  9. For ci = 1 To ai - 1
#CO6DBf VB.NET 9 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim n As Integer
  6. n = InputBox("hoogte?")
  7. Do While n <> 42
  8. System.Console.WriteLine(n)
  9. n = Console.ReadLine
#Mzd1xm VB.NET 9 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim n As Integer
  6. Dim line As Integer
  7. n = InputBox("hoogte?")
  8. Do While line < n
  9. System.Console.WriteLine(n)
#FUXeLd VB.NET 9 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4.  
  5. Function FindMax(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
  6. ' local variable declaration */
  7. Dim result As Integer
  8. If (num1 > num2) Then
  9. result = num1
#ZglZwm VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.Log(ToStringg("asd"))
  6. End Sub
  7.  
  8. Function ToStringg(ByVal text as String) AS String
  9. Return text + "1";