Contar números en un rango Codigo Fuente en Visual Basic

Problema
Desarrolle un algoritmo que le permita determinar de una lista de números:
1. ¿Cuántos están entre el 50 y 75, ambos inclusive?
2. ¿Cuántos mayores de 80?
3. ¿Cuántos menores de 30?

Solución

• Entrada: una lista de números aleatorios 0 a 150.

• Salida: cantidad de números que están dentro de los rangos preestablecidos  por el problema.

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim cont1 As Integer
        Dim cont2 As Integer
        Dim cont3 As Integer
        Dim cad As String = ""
        Dim B As Integer
        Dim A(100) As Integer
        Randomize()
        For i As Integer = 1 To 100
            A(i) = CInt(Int((150 * Rnd()) + 1))
            B = A(i)
            If (B >= 50 And B <= 75) Then
                cont1 = cont1 + 1
            Else
                If (B > 80) Then
                    cont2 = cont2 + 1
                Else
                    If (B < 30) Then
                        cont3 = cont3 + 1
                    End If
                End If
            End If
            cad = cad + " - " + Trim(A(i))
        Next i
        TextBox1.Text = cad
        TextBox2.Text = "Hay " + Trim(cont1) +
        " numeros entre 50 y 75,  " + Trim(cont2) +
        " numeros mayores a 80 y  " + Trim(cont3) +
        " numeros menores a 30"
    End Sub
End Class

 Descargar Proyecto Visual Basic