Ejemplo de calculo de interes de un capital "X"

para hacer estos ejercicios deben de poner los objetos mencionados y seguido se especificara el evento al cual pertenecen

*text1(prestamo)
n/a

*text2(tasa%)
n/A

*text3(periodos)
n/a

*text4(intereses)
n/a

*comandbutton1(calcular)-click
dim p,tasa,n,l as double
p=val(text1.text)
tasa=val(text2.text)/100
n=val(text3.text)
l=p*tasa*n
text4.text=format(l,"######.00")

*commandbutton2(salir)-click
end

_________________________

la expliaccion es que al dar click en el primer boton se calculara el interes al dividir para 100 el valor de la tasa y multiplicarlo por n(periodos) y por p(prestamo)......se obtendra l(el interes)...el cual se mostrara al igualrlo a la cuarta caja de texto o "text4.text"....ys e mostrara en formato de hasta 6 digitos con dos decimales