ejemplos de programación vb 100

Sub privado Form_Click()

Imprimir fs_sum(100)

Fin Sub

Función fs_sum(ByVal n As Entero) Como único

Dim s!, nc! 'Suma y cuenta atrás

s=0

Para i = 1 To n

nc = 1 / i

s = s nc

Siguiente i

fs_sum = s

Función final

Prueba 1.2

Sub privado Form_Click()

Para i = 1 a 4

Imprimir espacio(4 - i

Para j = 1 a i

Imprimir "* ";

Siguiente j

Imprimir

Siguiente i

Fin Sub

Para ser continuado, inacabado...