fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. Dim a As String = "conan"
  6. Dim b As String = "the"
  7. Dim c As String = "barbarian"
  8. Dim d As Long = 0
  9. Dim f As Long = 0
  10. Dim g As Long = 0
  11. Dim h As Long = 0
  12. Dim i As String = ""
  13. Dim j As Long = 0
  14. Dim k As Long = 100000
  15. Dim n As Long = 100000000
  16. Dim l As Integer = 89
  17. Dim m As Integer = 6301
  18. Dim o As Long = 155755927
  19. Dim x As Integer
  20. For x = 0 To a.Length - 1
  21.     d = d + Asc(a.Substring(x, 1))
  22. Next
  23. For x = 0 To b.Length - 1
  24.     f = f + Asc(b.Substring(x, 1))
  25. Next
  26. For x = 0 To c.Length - 1
  27.     g = g + Asc(c.Substring(x, 1))
  28. Next
  29. h = Math.Floor(((g * f) + (f * d + k)) + n * d ^ 2)
  30. For x = 0 To h.ToString.Length - 1 Step 1
  31.     i = String.Concat(i, h.ToString.Substring(x, 1))
  32. Next
  33. i = i + ((l * m) * o)
  34. print(i)
  35. 	End Sub
  36. End Class
Runtime error #stdin #stdout #stderr 0.11s 28024KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Unhandled Exception:
System.InvalidCastException: Conversion from string "115119111114100" to type 'Integer' is not valid. ---> System.OverflowException: Value is too large
  at System.Int32.Parse (System.String s) [0x00000] in <filename unknown>:0 
  at Microsoft.VisualBasic.CompilerServices.IntegerType.FromString (System.String Value) [0x00000] in <filename unknown>:0 
  --- End of inner exception stack trace ---
  at Microsoft.VisualBasic.CompilerServices.IntegerType.FromString (System.String Value) [0x00000] in <filename unknown>:0 
  at Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger (System.String Value) [0x00000] in <filename unknown>:0 
  at Test.Main () [0x00000] in <filename unknown>:0 
[ERROR] FATAL UNHANDLED EXCEPTION: System.InvalidCastException: Conversion from string "115119111114100" to type 'Integer' is not valid. ---> System.OverflowException: Value is too large
  at System.Int32.Parse (System.String s) [0x00000] in <filename unknown>:0 
  at Microsoft.VisualBasic.CompilerServices.IntegerType.FromString (System.String Value) [0x00000] in <filename unknown>:0 
  --- End of inner exception stack trace ---
  at Microsoft.VisualBasic.CompilerServices.IntegerType.FromString (System.String Value) [0x00000] in <filename unknown>:0 
  at Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger (System.String Value) [0x00000] in <filename unknown>:0 
  at Test.Main () [0x00000] in <filename unknown>:0
https://ideone.com/LoGtdo
language:
VB.NET (mono-3.10)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!