no se si deba darte el codigo me tomo unas horas hacerlo
debe de ser para una tarea pero en fin tu eres el que no incrementa sus habilidades con este codigo puedes hacer tambien el binomio de newton.
salu2
Option Explicit
'autor: hitman47 (diego avila)
Dim e As Integer 'varible exponente
Dim a, c, d, s, r, i 'd=denominador,s=contador
'c=coeficiente,r=numerador
Private Sub Form_Load()
Show
e = Val(InputBox("introduzca el exponente"))
If e > 20 Then MsgBox "mucho": Unload Me
For i = 1 To e 'difrentes filas para los exponentes
If i = 1 Then
Print "1"
Else
d = 1
For a = 1 To i + 1 'son el exponente + 1 termino mas si es 6 son 7
r = numerar(a, i, s, r)
c = r / d 'n(n-1)/2...
Print c; 'imprimir en la misma linea
d = d * a '1*2,2*3,2*3*3...
s = s + 1
Next a
Print
s = 0
End If
Next i
End Sub
Function numerar(ByVal a As Integer, ByVal i As Integer, ByVal s As Integer, ByVal r As Integer) As Integer
If a = 2 Then
numerar = i
ElseIf a = 1 Then
numerar = a
ElseIf a > 2 Then
numerar = r * (i - (s - 1)) 'n(n-1);n(n-1)(n-2)
End If
End Function
