Pages

viernes, 25 de enero de 2013

Mostrar los números menores e iguales a 25 Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que permita ingresar 20 números y muestre todos los números menores e iguales a 25.
 
Codigo Fuente en Visual Basic
Public Class Form1
    Dim c As Integer = 20
    Dim cad As String = ""
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim num As Integer
        If (c > 0) Then
            num = TextBox1.Text
            If (num <= 25) Then
                cad = cad + " - " + Trim(num)
            End If
            c = c - 1
        Else
            TextBox2.Text = cad
        End If
    End Sub
End Class

0 comentarios:

Publicar un comentario