*
if ( ventas >=3000000) then
valcomision = ventas * comision/100
textbox3.text = "comision = " + cstr ( valcomision)
else
textbox3.text = " ventas inferiores a 3000000 "
end if


*
dim num as single
dim sumapar a integer
dim suminpar as single
dim suma as single
textbox1.text = num
for 1 = 1 to num
suma + i
next i
for j = 2 to num step2
sumapar + = j
nextj
for z = 1 to num step2
suminpar t = z
next z