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

 Descargar Proyecto Visual Basic