Opción de programación VB base 1subcomando privado1_click() dim d d=matriz(1, 2, 3, 4, 5) n=1 para k=5a 3paso-1 s=s

Opción Base 1 'Debido a que se usa esta oración, el subíndice de la matriz comienza desde 1

Subcomando privado1_click()

Dim d

d = Array(1, 2, 3, 4, 5)

n = 1

Para k = 5 a 3 Paso -1

s = s d(k) * n

n = n * 10

Siguiente k

Imprimir s

'Cuando k=5, s =s d(k)*n=0 5*1=5

'Cuando k=4, s=s d(k)*n=5 4*10=45

' Cuando k=3, s=s d(k)*n=45 3*100=345

'Cuando k=2, es menor que 3 y el ciclo termina

Fin Sub