Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB de código USD a RMB

Programación VB de código USD a RMB

subcomando privado1_click()

dim m como único,r como único,h como único

m=val(text1.text) 'Cantidad en dólares

h=8.099 'Tipo de cambio

r=m*h 'Conversión

label1.caption=Formato (r, "#.##") 'Mostrar intercambiar La cantidad de RMB

end sub