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
SW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMKCk1vZHVsZSBNb2R1bGUxCgpTdWIgTWFpbiAoICkKCkRpbSBhcnIgQXMgTmV3IEFycmF5TGlzdAoKRGltIGMgQXMgSW50ZWdlcgoKYXJyLkFkZCggImEiYyApCgphcnIuQWRkKCAyMCApCgphcnIuQWRkKCAyLjUgKQoKYXJyLkFkZCggIlJhaHVsIiApCgphcnIuQWRkKCBUcnVlICkKCmFyci5BZGQoIDQwICkKCmFyci5JbnNlcnQoIDEsICJSb2hpdCIgKQoKYyA9IGFyci5DYXBhY2l0eQoKQ29uc29sZS5Xcml0ZUxpbmUoIGMgKQoKRW5kIFN1YgoKRW5kIE1vZHVsZQoK
stdin
SW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMKTW9kdWxlIE1vZHVsZTEKU3ViIE1haW4gKCApCkRpbSBhcnIgQXMgTmV3IEFycmF5TGlzdApEaW0gYyBBcyBJbnRlZ2VyCmFyci5BZGQoICZxdW90O2EmcXVvdDtjICkKYXJyLkFkZCggMjAgKQphcnIuQWRkKCAyLjUgKQphcnIuQWRkKCAmcXVvdDtSYWh1bCZxdW90OyApCmFyci5BZGQoIFRydWUgKQphcnIuQWRkKCA0MCApCmFyci5JbnNlcnQoIDEsICZxdW90O1JvaGl0JnF1b3Q7ICkKYyA9IGFyci5DYXBhY2l0eQpDb25zb2xlLldyaXRlTGluZSggYyApCkVuZCBTdWIKRW5kIE1vZHVsZQo=
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