nuevos trabajos en clase

dim nombre as sting

dim sueldo as decimal

nombre = textbox1.text

sueldo = textbox2.text

label3.text=nombre+"usted gano" + cstr (sueldo)

private sub ->subrutina

button1_->objeto

click->evento

dim nombre as sting

dim sueldo as decimal

dim ventas as decimal

dim total as decimal

nombre = textbox1.text

sueldos = textbox.text

ventas = textbox3.text

total = (venta*0.1)+ sueldo

textbox4.text=nombre+",usted gano," + cstr (total)