Calcular-porcentaje-aporte-tres-socios-Visual-Basic-VB

Problema
Juan, Raquel y Daniel aportan cantidades de dinero para formar un capital. Juan y Raquel aportan en dólares y Daniel en soles. Diseñe un programa que determine el capital total en dólares y que porcentaje de dicho capital aporta cada uno. Considere que: 1 dólar = 3.25 soles.
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 ju, ra, da, dol, total, porcra, porcda, porcju As Double
        ju = TextBox1.Text
        ra = TextBox2.Text
        da = TextBox3.Text
        dol = da / 3.25
        total = ju + ra + dol
        porcra = ra / total * 100
        porcda = dol / total * 100
        porcju = ju / total * 100
   TextBox4.Text = "El capital total es  " + Trim(total) & vbCrLf &
  "El porcentaje de aporte de juan es  " + Trim(porcju) & vbCrLf &
  "  El porcentaje de aporte de raquel es  " + Trim(porcra) & vbCrLf &
  "El porcentaje de aporte de daniel es  " + Trim(porcda)
    End Sub
End Class

 Descargar Proyecto Visual Basic