VB escribe un pequeño programa para cálculo automático

Seleccione el estilo combinado 2 y luego ingrese el siguiente código:

Dim?Money?As?Integer

Private?Sub?Combo1_Click()

C

Fin?Sub

Privado?Sub?Combo2_Click()

C

Fin?Sub

¿Privado?Sub?Form_Load()

Con?Combo1

.AddItem?"A"

.AddItem?"B"

.AddItem?"C"

.AddItem?"D"

.Text?=?"A"

Fin?Con

Con?Combo2

.AddItem?"Transporte Marítimo"

.AddItem?"Transporte Terrestre"

.Text?=?"Marítimo Transporte"

¿Fin?Con

C

Fin?Sub

Privado?Sub?C()

Seleccione?Caso ?Combo1.Text

Caso?"A"

Dinero?=?1

Caso?"B"

¿Dinero?= ?2

Caso?"C"

Dinero?=?3

Caso?"D"

Dinero ?=?5

Fin?Seleccionar

Si?Combo2.Text?=?"flete marítimo"?Entonces

¿Dinero?=?Dinero?+? 10

Else

¿Dinero?=?Dinero?+?100

Fin?Si

Texto1.Texto?=?Dinero? &?"dólares "

Fin?Sub