Programa VB para sumar hasta 10
Atenuar a como entero
Atenuar b como entero
Hacer
a = InputBox("Primer número:")
Si a gt ; 0 Y a lt; 10 Luego salga del bucle Do
Do
b = InputBox("Segundo número:"
if b gt; 0 y b lt; luego salga Do
Bucle
Imprimir a amp; " " amp b amp "=" a b