dim grafico as graphics
dim lapiz as pen
grafico = create graphics
lapiz = new pen ( color.red.2)
grafico. drawline ( lapiz.10.10.100.100)



draw ellipse->circulo
draw rectangulo ->cuadrado


BASE DE DATOS:
algunas bases de datos

->access
->mysql
->oracle
->sqlserver
->informix
->sybase


para agregar desde base de datos(access)
a visual
datos_mostrar origines de datos_herramientas_conectar base de datos_datos_agregar nuevo origen de dato

*PARCIAL:
for i=0 to 2
for j = 0 to 2
suma + = bonificaciones(i,j)
next j
if suma < 500000 then
bon(i) = 100000
else
bon(i) = 200000
end if
suma = 0
next j
for i = 0 to 2
label1.text= empleados(i) +bonificacion(i;0)+bon(i)
nexti

*FOR :
-> Variables
for i 0 to 3
for j = it 1 to 2
if (d(i)>d(j))then
temporal = D(i)
D(i)=D(j)
D(j) = temporal
end if
next j
next i


*
for i = 0 to 2
for_1 = i +1 to 3
if ( D (i)>D(j) ) then
temporal = D (i)
D(j)= temporal
end if
next j
nexti

*SELEC CASE
(haga segun el caso)
*select case variable
case valor 1..
case valor 2..
case valor 3..
end select

select case figura
case"circulo"
dibuje_circulo()
case"cuadrado":
dibuje_cuadrado()
case"triangulo":
dibuje_triangulo()
end select