trabajo


Dim A, B, C, D As Single
Dim Minpeso As Integer

'digitar datos: Asignar valores a las variables A, B, C y D,
' calcular la esfera de diferente peso y si es lamayor o menor

Do
A = Val(InputBox(" ingrese el peso de la esfera A", "Peso"))

If A 0

Do
B = Val(InputBox("ingrese el peso de la esferaB", "Peso"))
If B 0

Do
C = Val(InputBox("ingrese el peso de la esfera C", "Peso"))
If C 0

Do
D = Val(InputBox("ingrese elpeso de la esfera D", "Peso"))
If D 0


' Proceso: De acuerdo al peso de la esfera A,B,C y D, calcular la esfera de diferente peso y si es la de mayor o menor peso'3.1

If PesoA = PesoB Then
If PesoA = PesoC Then
If PesoA < PesoD Then
MessageBox.Show(" La esfera D es la diferente y la de menor peso")Else
MessageBox.Show(" La esfera D es la diferente y la de mayor peso")
End If

ElseIf PesoA < PesoC ThenMessageBox.Show(" La esfera C es las diferente y la de mayor peso")

ElseIf PesoA > PesoC Then
MessageBox.Show(" La esfera C es la diferente y la de menor peso")
EndIf
ElseIf PesoA = PesoC Then
If PesoA > PesoB Then
MessageBox.Show(" La esfera B es la diferente y la de menor peso")

ElseMessageBox.Show(" La esfera B es la diferente y la de mayor peso")
End If

ElseIf PesoB = PesoC Then
If PesoB = PesoD Then
If PesoB < PesoA ThenMessageBox.Show(" La esfera A es la diferente y la de mayor peso")
Else
MessageBox.Show(" La esfera A es la diferente y la de menor peso")...