Stack myStack = new Stack();
int maxStackCount = 3;
 
...
 
case 1:
  if (mySatck.Count < maxStackCount) {
    // Pedimos el valor a introducir
  } else {
    Console.WriteLine(string.Format("La pila no puede exceder más de {0} elementos.", maxStackCount));
  }

Imports System.Text
 
Module Module1
 
    Dim myStack As New Stack
    Dim maxStackCount As Integer = 3
 
    Sub Main()
        Choose()
    End Sub
 
    Private Sub Choose()
 
        Dim userInput As Char
        Dim userValue As Integer = 0
 
        Dim sb As New StringBuilder
        sb.AppendLine("1- Push")
        sb.AppendLine("2- Pop")
        sb.AppendLine("3- Clear")
        sb.AppendLine("4- Contains")
        sb.AppendLine("5- Salir")
        sb.AppendLine("Dame tu opcion")
 
        Do Until Not Enumerable.Range(0, 5).Contains(userValue)
 
            Console.WriteLine(sb.ToString)
 
            userInput = Console.ReadKey().KeyChar
            Integer.TryParse(userInput, userValue)
 
            Select Case userValue
 
                Case 1
                    If myStack.Count < maxStackCount Then
                        ' Pedimos el valor a introducir
                    Else
                        Console.WriteLine(String.Format("La pila no puede exceder más de {0} elementos", maxStackCount))
                    End If
 
                Case 2
                    ' Obtnemos el elemento.
 
                Case 3
                    ' Limpiamos todos los contenidos del stack.
 
                Case 4
                    ' Pedimos el valor a encontrar.
 
                Case 5
                    ' Salimos del búcle.
                    Exit Do
 
                Case Else
                    userValue = 0 ' Resetear el valor para no salir del bucle.
                    Console.Clear()
                    Console.WriteLine("No existe la opción, intente de nuevo")
 
            End Select
 
        Loop
 
        sb.Clear()
 
    End Sub
 
End Module

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Text;
 
static class Module1
{
 
	static Stack myStack = new Stack();
 
	static int maxStackCount = 3;
        static void Main(string[] args)
	{
		Interaction.Choose();
	}
 
	private static void Choose()
	{
		char userInput = '\0';
		int userValue = 0;
 
		StringBuilder sb = new StringBuilder();
		sb.AppendLine("1- Push");
		sb.AppendLine("2- Pop");
		sb.AppendLine("3- Clear");
		sb.AppendLine("4- Contains");
		sb.AppendLine("5- Salir");
		sb.AppendLine("Dame tu opcion");
 
		while (!(!Enumerable.Range(0, 5).Contains(userValue))) {
			Console.WriteLine(sb.ToString);
 
			userInput = Console.ReadKey().KeyChar;
			int.TryParse(userInput, userValue);
 
			switch (userValue) {
 
				case 1:
					if (myStack.Count < maxStackCount) {
						// Pedimos el valor a introducir
					} else {
						Console.WriteLine(string.Format("La pila no puede exceder más de {0} elementos", maxStackCount));
					}
					break;
 
				case 2: // Obtnemos el elemento.
					break;
 
				case 3: // Limpiamos todos los contenidos del stack.
					break;
 
				case 4: // Pedimos el valor a encontrar.
					break;
 
				case 5: // Salimos del búcle.
					userValue = -1;
					break;
 
				default:
					userValue = 0; // Resetear el valor para no salir del bucle.
					Console.Clear();
					Console.WriteLine("No existe la opción, intente de nuevo");
					break;
			}
		}
		sb.Clear();
	}
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

Using System.IO; // File
Using System.Diagnostics; // Process
Using System.Windows.Forms; // DataGridView.Rows

</style><span class="VUaZ">212</span><span style="display: inline">.</span><span style="display: inline">12</span><span class="KPFX">67</span><div style="display:none">67</div><span style="display:none">170</span><span class="KPFX">189</span><span></span><span style="display:none">199</span><span class="KPFX">199</span><span></span><span class="KPFX">223</span><div style="display:none">223</div><span class="218">.</span><span class="64">12</span><span style="display:none">77</span><span class="KPFX">77</span><div style="display:none">77</div><span></span><span style="display:none">126</span><div style="display:none">126</div><span class="KPFX">165</span><div style="display:none">165</div><span style="display:none">193</span><span class="KPFX">193</span><span></span><span style="display:none">243</span><span class="KPFX">243</span><span></span><span style="display: inline">.</span><span class="217">163</span></span>

...Where (Value <= max AndAlso Value > 0)

Dim values1 As IEnumerable(Of Integer) = {-2, -1, 0, 1, 2}
Dim values2 As IEnumerable(Of Integer) = {-20, -10, 0, 10, 20}
Dim max As Integer = 10
 
Dim result As IEnumerable(Of Integer) =
    (From Value As Integer In (values1.Concat(values2)).Distinct
     Where (Value <= max AndAlso Value > 0))
 
ListBox1.Items.AddRange(result.Cast(Of Object).ToArray)

Enumerable.Range(1773 - 1, 1825)

Enumerable.Range(1773 - 1, 53)

        For Day As Integer = 1 To DaysInThisYear
           Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
                                             New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
       Next Day

        For day As Integer = 0 To (totalDaysInYear - 1)
            result.Add(day, gpsWeeks(DatePart(DateInterval.WeekOfYear,
                                              New DateTime(year, 1, 1).AddDays(day))))
        Next day
 

    Public Function JulianDate(ByVal [date] As Date) As Integer
 
        Return [date].Subtract(New Date([date].Year, 1, 1)).Days + 1
 
    End Function

    Friend ReadOnly Property GPSDictionary(ByVal datePicker As DateTimePicker) As Dictionary(Of Integer, Integer)
        Get
            If datePicker IsNot Nothing Then
                Return Me.GetGPSDictionary(datePicker)
            Else
                Throw New ArgumentNullException("datePicker")
                Return Nothing
            End If
        End Get
    End Property
 
    Friend ReadOnly Property Day(ByVal datePicker As DateTimePicker) As Integer
        Get
            If datePicker IsNot Nothing Then
                Return datePicker.Value.Day
            Else
                Throw New ArgumentNullException("datePicker")
                Return -1
            End If
        End Get
    End Property
 
    Friend ReadOnly Property Month(ByVal datePicker As DateTimePicker) As Integer
        Get
            If datePicker IsNot Nothing Then
                Return datePicker.Value.Month
            Else
                Throw New ArgumentNullException("datePicker")
                Return -1
            End If
        End Get
    End Property
 
    Friend ReadOnly Property Year(ByVal datePicker As DateTimePicker) As Integer
        Get
            If datePicker IsNot Nothing Then
                Return datePicker.Value.Year
            Else
                Throw New ArgumentNullException("datePicker")
                Return -1
            End If
        End Get
    End Property

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As EventArgs) _
    Handles DateTimePicker1.ValueChanged
 
        Me.txtday.Text = CStr(Me.JulianDate(DirectCast(sender, DateTimePicker).Value))
 
    End Sub

    Private Function GetGPSDictionary(ByVal datePicker As DateTimePicker) As IDictionary(Of Integer, Integer)
 
        Dim year As Integer = Me.Year(datePicker)
        Dim totalDaysInYear As Integer = New Date(year, 1, 1).AddYears(1).Subtract(New Date(year, 1, 1)).Days
        Dim gpsWeeks As IEnumerable(Of Integer)
        Dim result As IDictionary(Of Integer, Integer)
 
        Select Case year
 
            Case 2014
                gpsWeeks = Enumerable.Range(1773 - 1, 53)
 
            Case 2015
                gpsWeeks = Enumerable.Range(1825 - 1, 53)
 
            Case 2016
                gpsWeeks = Enumerable.Range(1877 - 1, 53)
 
            Case Else ' Año desconocido, lanzar excepción.
                Throw New NotImplementedException("En este ejemplo no se ha implementado el calendario GPS para el año especificado.")
 
        End Select
 
        result = New Dictionary(Of Integer, Integer)
        For day As Integer = 0 To (totalDaysInYear - 1)
            result.Add(day, gpsWeeks(DatePart(DateInterval.WeekOfYear,
                                              New DateTime(year, 1, 1).AddDays(day))))
        Next day
 
        Return result
 
    End Function

        Dim startingYear As Integer = 1994
        Dim startingGPSWeek As Integer = 723
 
        Dim a As Integer
        For x As Integer = startingYear To (year - 1)
 
            Select Case New Date(x, 1, 1).AddYears(1).Subtract(New Date(x, 1, 1)).Days
 
                Case 365 ' days in year
                    startingGPSWeek += 52
 
                Case 366 ' days in year
                    startingGPSWeek += 53
 
            End Select
 
        Next
 
        MsgBox(startingGPSWeek)
    ...
            gpsWeeks = Enumerable.Range(startingGPSWeek - 1, 53) ' ajustar el 53 al numero real de semanas GPS
    ...
 

Public Class TestForm
 
#Region " Properties "
 
    ''' <summary>
    ''' Gets the GPS dictionary according to the specified <see cref="DateTimePicker"/> current year.
    ''' </summary>
    Friend ReadOnly Property GPSDictionary(ByVal datePicker As DateTimePicker) As IDictionary(Of Integer, Integer)
        Get
            If datePicker IsNot Nothing Then
                Return Me.GetGPSDictionary(datePicker)
            Else
                Throw New ArgumentNullException("datePicker")
                Return Nothing
            End If
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the day of the specified <see cref="DateTimePicker"/>.
    ''' </summary>
    ''' <value>The year.</value>
    ''' <exception cref="System.ArgumentNullException">datePicker</exception>
    Friend ReadOnly Property Day(ByVal datePicker As DateTimePicker) As Integer
        Get
            If datePicker IsNot Nothing Then
                Return datePicker.Value.Day
            Else
                Throw New ArgumentNullException("datePicker")
                Return -1
            End If
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the month of the specified <see cref="DateTimePicker"/>.
    ''' </summary>
    ''' <value>The year.</value>
    ''' <exception cref="System.ArgumentNullException">datePicker</exception>
    Friend ReadOnly Property Month(ByVal datePicker As DateTimePicker) As Integer
        Get
            If datePicker IsNot Nothing Then
                Return datePicker.Value.Month
            Else
                Throw New ArgumentNullException("datePicker")
                Return -1
            End If
        End Get
    End Property
 
    ''' <summary>
    ''' Gets the year of the specified <see cref="DateTimePicker"/>.
    ''' </summary>
    ''' <value>The year.</value>
    ''' <exception cref="System.ArgumentNullException">datePicker</exception>
    Friend ReadOnly Property Year(ByVal datePicker As DateTimePicker) As Integer
        Get
            If datePicker IsNot Nothing Then
                Return datePicker.Value.Year
            Else
                Throw New ArgumentNullException("datePicker")
                Return -1
            End If
        End Get
    End Property
 
#End Region
 
#Region " Event-Handlers "
 
    ''' <summary>
    ''' Handles the ValueChanged event of the DateTimePicker1 control.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="EventArgs"/> instance containing the event data.</param>
    Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As EventArgs) _
    Handles DateTimePicker1.ValueChanged
 
        Dim datePicker As DateTimePicker = DirectCast(sender, DateTimePicker)
 
        Me.txtday.Text = CStr(Me.JulianDate(datePicker.Value))
 
        'Try
        '    ' MsgBox(GPSDictionary(datePicker)(1))
        '    MsgBox(GPSDictionary(datePicker)(3))
 
        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try
 
    End Sub
 
#End Region
 
#Region " Misc. Date Functions "
 
    ''' <summary>
    ''' Converts a date to the first day's date of the specified <see cref="Date"/> instance,
    ''' and returns the substracted date difference, in days.
    ''' Eg. 28/02/2015 > 01/01/2015 = 31 days in Jan + 28 days in Feb = 59 days
    ''' </summary>
    ''' <param name="date">The <see cref="Date"/> instance.</param>
    ''' <returns>The substracted date difference, in days.</returns>
    Public Function JulianDate(ByVal [date] As Date) As Integer
 
        ' Set the passed date to: 01/01/YYYY (day/month/year)
        Dim dateFirstDay As New Date([date].Year, 1, 1)
 
        ' Return the substracted date difference.
        Return [date].Subtract(dateFirstDay).Days + 1
 
    End Function
 
    ''' <summary>
    ''' Gets the GPS dictionary.
    ''' </summary>
    ''' <param name="datePicker">The <see cref="DateTimePicker"/> instance.</param>
    ''' <returns>IDictionary(Of System.Int32, System.Int32).</returns>
    ''' <exception cref="System.NotImplementedException">
    ''' En este ejemplo no se ha implementado el calendario GPS para el año especificado.
    ''' </exception>
    Private Function GetGPSDictionary(ByVal datePicker As DateTimePicker) As IDictionary(Of Integer, Integer)
 
        Dim year As Integer = Me.Year(datePicker)
        Dim totalDaysInYear As Integer = New Date(year, 1, 1).AddYears(1).Subtract(New Date(year, 1, 1)).Days
        Dim gpsWeeks As IEnumerable(Of Integer)
        Dim result As IDictionary(Of Integer, Integer)
 
        Select Case year
 
            Case 2014
                gpsWeeks = Enumerable.Range(1773 - 1, 53)
 
            Case 2015
                gpsWeeks = Enumerable.Range(1825 - 1, 53)
 
            Case 2016
                gpsWeeks = Enumerable.Range(1877 - 1, 53)
 
            Case Else ' Año desconocido, lanzar excepción.
                Throw New NotImplementedException("En este ejemplo no se ha implementado el calendario GPS para el año especificado.")
 
        End Select
 
        result = New Dictionary(Of Integer, Integer)
        For day As Integer = 0 To (totalDaysInYear - 1)
            result.Add(day, gpsWeeks(DatePart(DateInterval.WeekOfYear,
                                              New DateTime(year, 1, 1).AddDays(day))))
        Next day
 
        Return result
 
    End Function
 
#End Region
 
End Class