Dim Dividendo As Double
Dim Divisor As Double
Dim Operando As Double
Dim Contador As Integer
Dim Resto As Double
Dividendo = txtDividendo.Text
Divisor = txtDivisor.Text
If Divisor = 0 Then
Contador = 0
Resto = 0
ElseIf Divisor > Dividendo Then
Contador = 0
Resto = Dividendo
ElseIf Dividendo = Divisor Then
Contador = 1
Resto = 0
ElseIf Divisor + Divisor > Dividendo Then
Contador = 1
Resto = Dividendo - Divisor
Else
Operando = Divisor
Contador = 1
Do
Operando += Divisor
Contador += 1
Loop While Operando + Divisor <= Dividendo
Resto = Dividendo - Operando
End If
lblResul.Text = "Cociente = " & Contador & ", resto = " & Resto