Pages

viernes, 25 de enero de 2013

Determinar si dos números son divisores Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo, que dado dos números, uno es divisor de otro.

Solución
  • Entrada: 10  2
  • Salida: 2 es divisor de 10
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 a, b As Integer
        a = TextBox1.Text
        b = TextBox2.Text
        If (a Mod b = 0) Then
            TextBox3.Text = Trim(b) + " es divisor de " + Trim(a)
        Else
            If (b Mod a = 0) Then
                TextBox3.Text = Trim(a) + " es divisor de " + Trim(b)
            Else
                TextBox3.Text = "ninguno es divisor del otro"
            End If
        End If
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada