Limitar resultados de calculo matematico en un grupo de texbox

[luis456]

Como puedo limitar dentro de un rango de números los resultados de un calculo matemático sea suma o resta.

Es que si la suma da como resultado 100 pero mi rango es 99 que no me muestre 100 pero ponga  el  99 para no dejar el texbox vació 

Mi idea es crear una variable con los números que tengo como validos para que el resultado compare y si esta dentro de este rango los valide y los muestre en los texbox ,y si esto no es a si que me muestre el máximo que en este caso es el 99

Código [Seleccionar] Expandir

Public Class Form1

    Private TextBoxes As TextBox() = {Nothing}

    Private Result1 As Int32(), Result2 As Int32()

    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property

    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property

    Private Sub Sumar(sender As Object, e As EventArgs) _
    Handles Button_Sum.Click

        Dim TextBoxCount As Short = -1

        TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}

        Result1 = {Num1 + 15, Num1 + 25} _
                  .Distinct().ToArray ' Elimino duplicados

        Result2 = {Num2 + 30, Num2 + 20} _
                  .Distinct().ToArray ' Elimino duplicados

        Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items

        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next

        For Each Number As Int32 In Result2
            TextBoxCount += 1
         


Gracias de antemano

Luis

[Eleкtro]

Para comprobar si un número está en el rango:

Código (vbnet) [Seleccionar] Expandir

#Region " Number Is In Range "

   ' [ Number Is In Range ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   ' MsgBox(NumberIsInRange(50, 0, 100))
   ' If NumberIsInRange(5, 1, 10) then...

   Private Function NumberIsInRange(ByVal Number As Long, _
                                    ByVal MIN As Long, _
                                    ByVal MAX As Long) As Boolean

       Return (Number >= MIN AndAlso Number <= MAX)

   End Function

#End Region

Saludos

[ivancea96]

o incluso puedes poner el "operador ternario" de vb.net:

Código (vbnet) [Seleccionar] Expandir

variable = IIf((numero > MAX), MAX, numero)

PD: Soy hijo de C++, si tengo algún error en la sintaxis corregidme :3

[luis456]

Para comprobar si un número está en el rango:

Saludos

Bien Elektro probando tu codigo no me da error de ninguna clase pero no se como poner el rango de numeros que deben de mostrar los texboxes

luis