fork download
copy 
  1. Imports System.Collections
  2.  
  3. Module Module1
  4.  
  5. Sub Main ( )
  6.  
  7. Dim arr As New ArrayList
  8.  
  9. Dim c As Integer
  10.  
  11. arr.Add( "a"c )
  12.  
  13. arr.Add( 20 )
  14.  
  15. arr.Add( 2.5 )
  16.  
  17. arr.Add( "Rahul" )
  18.  
  19. arr.Add( True )
  20.  
  21. arr.Add( 40 )
  22.  
  23. arr.Insert( 1, "Rohit" )
  24.  
  25. c = arr.Capacity
  26.  
  27. Console.WriteLine( c )
  28.  
  29. End Sub
  30.  
  31. End Module
  32.  
  33.  
Success #stdin #stdout 0.03s 24208KB
comments (?)
stdin
copy 
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
arr.Add( True )
arr.Add( 40 )
arr.Insert( 1, "Rohit" )
c = arr.Capacity
Console.WriteLine( c )
End Sub
End Module
stdout
copy 
8
https://ideone.com/fw9n0Y
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!