Código del programa VB para convertir dólares estadounidenses a RMB

dim m significa único, r significa único, h significa único

M=val(text1.text)'cantidad en dólares

H =8.099 'Tipo de cambio

R=m*h 'Conversión

Etiqueta 1. caption = format (r, " #. # # " 'Muestra la cantidad de RMB intercambiada.

Conector final