dim usuarios(4) as string

usuarios(0) = textbox1.text

usuarios(1) = textbox2.text

usuarios(2) = textbox3.text

usuarios(3) = textbox4.text

textbox5.text = usuarios(0) + vbcrlf + usuarios(1) + vbcrlf + usuarios(2) + vbcrlf + usuarios(3)

+ vbcrlf

condisiones if textbox9.text = 1 then

textbox10.text = "nombre:" + nombres(1) + vbcrlf + "edad:" + cstr(edad(1)) end if

funciones de conversiones

y = f(x) = 1+2

y = f(3) = 5

y = cstr(x)

y = variable sting

*label.text=

textbox.text = cstr (50)

cuando tengo que hacer una conversion :

cuando al otro lado del igual haga un text , cstr

*cint ( )

cint ("55") Numero entero

cabl ("55.32")

cdate ("03/03/2011")

*matrices /arrays ( arreglo )

dim nombre1 as string

dim nombre2 as string

dim nombres(50) as string

cantidad o mayor indice

nombres(3) = "juanita"

MATRICES:

es una secuencia de elementos con los datos del mismo tipo se acceden por el nombre de la matrix

y un indice qie empiesa en 0

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)