Calcular el cociente y el residuo sin dividir Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que permita, dado a, b determinar el valor de la división entera  y el resto de la división  entera de a, b (sin usar los operadores de div. Ni de Mod).

Solución

• Entrada: 17 3

• Salida: cociente 5 residuo 2

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 p As Integer = 1
        Dim q As Integer = 0
        Dim Dividendo, Divisor As Integer
        Dividendo = TextBox1.Text
        Divisor = TextBox2.Text
        If (Dividendo >= Divisor) Then
            While ((Dividendo - Divisor) >= q)
                q = Divisor * p
                p = p + 1
            End While
            TextBox3.Text = "El cociente es " + Trim(p - 1) +
                "  y  el residuo es " + Trim((Dividendo - q))
        Else
            TextBox3.Text = "El denominador debe ser menor"
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic