Por favor ayude a diseñar un programa VB (calcule el valor total de R)

Cuando ingresas r & gt1, 1/r es menor que 1 y S es plástico, por lo que

S=1/r+s es igual a s=0.

Entonces hay un error al dividir entre 0.

Si cambia el tipo de datos de a y s para duplicarlo en este código, el resultado final es

Si r no es igual a 0, entonces a = R.