En programación VB, ¿cómo utilizar la función TAB para convertir el triángulo inferior Yang Hui en un triángulo isósceles?

Atenuar a() como entero

n = Val(Text1.Text)

ReDim a(n, n)

Atenuar i, j Como entero

a(0, 0) = 1

a(1, 0) = 1

a(1, 1) = 1

Para i = 2 Para n - 1

a(i, 0) = 1

a(i, i) = 1

Para j = 1 A i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Siguiente j, i

'Determinar el número máximo de dígitos

Dim w como entero

For i = 0 To n

For j = 0 To n

Si Len(CStr(a(i, j))) > w Entonces w = Len(CStr(a(i, j)))

Siguiente j

Siguiente i

Para i = 0 To n - 1

'Utilice la función TAB() para determinar cuántos espacios quedan a la izquierda hasta el número máximo de dígitos obtenidos

Print Tab(((w + 1) * (n - i)) \ 2);

For j = 0 To i

'A la izquierda del número Complete los espacios apropiados y genere

Print Right(String(w, " ") & CStr(a(i, j)), w + 1);

Siguiente j

Imprimir

Siguiente i