pro-Gramas tu biblioteca de programacion

En este manual explicaremos como hacer los múltiplos del 5 o cualquier otro numero con los distintos tipos de ciclos que hay en visual Basic .net (For, While y Do While). Con la finalidad de aprender a utilizar lo ciclos.

El programa requiere de dos valores A y B los cuales se tiene que introducir por el usuario, estos números será el rango al cual queremos obtener los múltiplos de algún número y estos los mostraremos en un TextBox multilínea.

Ciclo For

Primero declaramos nuestro método en el evento Click del botón 1, después declaramos las variables que vamos a utilizar (a, b, c).

Y ahora comparamos si los valores de las cajas de texto son numéricos si es así tenemos que evaluar la condición para que un numero sea múltiplo de otro, y esta condición es que al dividir los números el residuo sea 0, con la instrucción Mod obtenemos el residuo de una división.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
     Dim a As Integer
     Dim b As Integer
     Dim c As Integer

     If IsNumeric(txta.Text) And IsNumeric(txtb.Text) Then
         txtmultiplos.Text = ""

         c = 0
         a = Val(txta.Text)
         b = Val(txtb.Text)

         If a > b Then
             c = a
             a = b
             b = c
         End If
         For c = a To b
             If c Mod 5 = 0 Then
                 txtmultiplos.Text = txtmultiplos.Text +
                 Convert.ToString(c) + vbNewLine
             End If
         Next
     Else
         MsgBox("Error")
     End If
End Sub

Ciclo While y Do While

Los ciclos While y Do while es prácticamente lo mismo, la diferencia es que el Do While se cierra con Loop y el While con End While.

Ten en cuenta que estos ciclos funcionan por condiciones a diferencia del For que repite las instrucciones un numero determinado de veces.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e 
    As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer

        If IsNumeric(txta.Text) And IsNumeric(txtb.Text) Then
            txtmultiplos.Text = ""

            a = txta.Text
            b = txtb.Text

            If a > b Then
                c = a
                a = b
                b = c
            End If
            While a <= b
                If a Mod 5 = 0 Then
                    txtmultiplos.Text = txtmultiplos.Text +
                    Convert.ToString(a) + vbNewLine
                End If
                a = a + 1
            End While
        Else
            MsgBox("Error")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e
    As System.EventArgs) Handles Button3.Click
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer

        If IsNumeric(txta.Text) And IsNumeric(txtb.Text) Then
            txtmultiplos.Text = ""

            a = txta.Text
            b = txtb.Text

            If a > b Then
                c = a
                a = b
                b = c
            End If
            Do While a <= b
                If a Mod 5 = 0 Then
                    txtmultiplos.Text = txtmultiplos.Text +
                    Convert.ToString(a) + vbNewLine
                End If
                a = a + 1
            Loop
        Else
            MsgBox("Error")
        End If
    End Sub