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

#7q6Vij VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim min, max, p, sum, r As Integer
  6. Console.Write("Enter a minimum number= ")
  7. min = CInt(Console.ReadLine())
  8. Console.Write("Enter a maximum number= ")
  9. max = CInt(Console.ReadLine())
#C2Gecl VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim Op1, Op2 As Double
  6. Dim Opr As String
  7.  
  8. Private Sub Command1_Click()
  9. Text1.Text = Text1.Text + Command1.Caption
#ZG09HU VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim x As Integer
  7. theNumber = 7
  8.  
  9. For x = 1 To 10
#cXTaB6 VB.NET 8 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim age, points As Integer
  7. Console.WriteLine("What is your age?")
  8. age = Int(Console.ReadLine())
  9. Console.WriteLine("How many points do you have on your licence?")
#eQ3Zp6 VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim intInput As Integer
  6. System.Console.WriteLine("Enter an integer…")
  7. intInput = Val(System.Console.ReadLine())
  8. If intInput = 1 Then
  9. System.Console.WriteLine("Thank you.")
#zegW9S VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Dim age As Integer
  7. Console.WriteLine("What is your age?")
  8. age = Int(Console.ReadLine())
  9. If age > 16 Then
#zpo84p VB.NET 8 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim number1, number2, total As Integer
  6. Console.WriteLine("Enter first number")
  7. number1 = Int(Console.ReadLine())
  8. Console.WriteLine("Enter second number")
  9. number2 = Int(Console.ReadLine())
#iNvvgY VB.NET 8 days ago
Runtime error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim theNumber As Integer
  6. Dim theWord As String
  7. theWord = "Bird"
  8. theNumber = 9
  9. Console.WriteLine(theWord & " is the word")
#0gb3yX VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Console.Write("Welcome to ")
  6. Console.Write("Visual Basic!")
  7. End Sub
  8. End Class
#4qWkdF 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. Dim x as Double = 2.0
  7. x = 3.0 ^ 4
  8. Console.WriteLine ("x=" & x)
  9. End Sub
#CODW5W VB.NET 8 days ago
Compilation error
  1. 'Определение массивов, констант, переменных
  2. Private Const pi As Double = 3.1415926
  3. Private Const mu0 As Double = 4 * 3.1415926 * 10 ^ -7
  4. Private Const gz As Double = 9.81
  5. Dim D As Double, z As Double, hk As Double, bk As Double, w As Double
  6. Dim dpr As Double, t As Double, p As Double, a As Double
  7. Dim m As Double, H As Double, V0 As Double, x0 As Double
  8. Dim C As Double, UC0 As Double, R1 As Double, xon As Double
  9. Dim Da As Double, hp As Double, Sa As Double, Rk As Double
#wbsHtF VB.NET 8 days ago
Compilation error
  1. using System.IO;
  2. using System;
  3.  
  4. class Program
  5. {
  6. static void Main()
  7. {
  8. Console.WriteLine("Hello, World!");
  9.  
#820kpA VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5.  
  6. Private Sub cmdClear_Click()
  7. Text1.Text = “”
  8. Text1.SetFocus
  9. End Sub
#Uow88l VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim p, n, i As Integer
  6. p = 1
  7. Print “Prime Numbers are :
  8. For n = 1 To 100
  9. For i = 2 To n – 1
#kRcjM0 VB.NET 8 days ago
Compilation error
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Threading.Tasks;
  6. using System.Collections;
  7. using System;
  8.  
  9. namespace StrategyPattern
#BpGq42 VB.NET 8 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. class Twin_Prime
  5. {
  6. void Prime(int n,int m)
  7. {
  8. int a=0;
  9. int b=0;
#A72IWg VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim s, n As Integer
  6. s = 0
  7. Console.WriteLine(" enter number ")
  8. n = Console.ReadLine()
  9. While n <> 0
#y3P3lb VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim s, n As Integer
  6. s = 0
  7. Console.WriteLine(" enter number ")
  8. n = Console.ReadLine()
  9. While n <> 0
#BXz9S3 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
#tQYwQ6 VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. dim x as integer
  6. Console.WriteLine("hola")
  7. x = console.readline
  8. End Sub
  9. End Class
#LYOcOy 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
#h91DEf VB.NET 8 days ago
Success
  1. Imports System.Math
  2. Module Module1
  3. Sub Main()
  4. Dim x, y As Double
  5. Console.WriteLine("Введите угол в радианах: ")
  6. x = Val(Console.ReadLine())
  7. y = Sin(x)
  8. Console.WriteLine("Синус = "&Format(y,"0.0000"))
  9. Console.ReadKey()
#Dl2F6Q VB.NET 8 days ago
Success
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim fileName as string = "07_2015_5100000065 _178063.pdf"
  6. dim cleanFileName as string = String.Join("", fileName.Split(System.IO.Path.GetInvalidFileNameChars()))
  7. console.writeline(cleanFileName)
  8. End Sub
  9. End Class
#v6p7ld VB.NET 8 days ago
Compilation error
  1. Dim sum As Integer = 0
  2. Const MAX_ROWS As Integer = 7
  3. Const MAX_COLS As Integer = 5
  4. Dim rows As Integer
  5. Dim columns As Integer
  6. For rows = 0 To MAX_ROWS
  7. For columns = 0 To MAX_COLS
  8. sum += rows + columns
  9. Next columns
#njUCKc VB.NET 8 days ago
Compilation error
  1. Dim sum As Integer = 0
  2. Const MAX_ROWS As Integer = 7
  3. Const MAX_COLS As Integer = 5
  4. Dim rows As Integer
  5. Dim columns As Integer
  6. For rows = 0 To MAX_ROWS
  7. For columns = 0 To MAX_COLS
  8. sum += rows + columns
  9. Next columns
#t2MKCE VB.NET 8 days ago
Success
  1. Imports System
  2. Imports System.Collections.Generic
  3.  
  4. Public Class Test
  5. Public Shared ReadOnly Sectors As List(Of Integer) = New List(Of Integer)(New Integer() {1,2,3,XXX})
  6. Public Const XXX As Integer = 14407
  7. Public Shared Sub Main()
  8. For Each i As Integer In Sectors
  9. Console.WriteLine(i)
#Oc01cL 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
#PaJ0So 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
#GjuOyo VB.NET 9 days ago
Compilation error
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. int val=(1,3);
  6. print(val);
  7. End Sub
  8. End Class
#lcEZnA VB.NET 9 days ago
Compilation error
  1. Public Class formCalculator
  2.  
  3. Dim operationsArray As Array = {"add", "subtract", "multiply", "divide"}
  4. Dim cachedOperation As String = ""
  5. Dim cachedNumber As String = ""
  6. Dim isAllowedToEnter As Boolean = True
  7. Dim isEqualClicked As Boolean = False
  8.  
  9. Private Sub displayNumber(number As String)