Dim stack As New Stack(Of Integer)
For index As Integer = 1 To 20
' Generate random value between 1 and 6.
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))
stack.Push(value)
Next
For index As Integer = 1 To stack.Count
'show on web browser
Response.Write(stack.Pop().ToString() & "<br/>")
Next