¡Utilice las 6 sentencias de bucle de VB para programar 10 respectivamente!

El primer método es utilizar el bucle for...next

Private Sub CommandButton1_Click()

dim i como un número entero

dim jc como doble

jc=1

para i=10 a 1 paso -1

jc=jc*i

siguiente i

print "10!=";

print jc

End Sub

El segundo tipo se utiliza como bucle while.. .wend

Private Sub CommandButton1_Click()

atenuar i como entero

atenuar jc como doble

jc=1

i =10

mientras i>=1

jc=jc*i

i=i-1

wend

print "10!=";

print jc

End Sub

La tercera forma es usar do loop do.. .loop

(1)do...bucle mientras

Private Sub CommandButton1_Click()

atenuar i como entero

atenuar jc como doble

jc=1

i=10

hacer

jc=jc*i

i =i-1

bucle mientras i>=1

imprimir "10!=";

imprimir jc

End Sub

(2)hacer... bucle hasta

Private Sub CommandButton1_Click()

atenuar i como entero

atenuar jc como doble

jc=1

i=10

hacer

jc=jc*i

i=i- 1

bucle hasta que<1

imprima "10!=";

imprima jc

End Sub

(3)hacer mientras... bucle

Private Sub CommandButton1_Click()

atenuar i como entero

atenuar jc como doble

jc=1

i=10

hacer mientras i>=1

jc=jc*i

i=i -1

bucle

imprimir "10!=";

imprimir jc

End Sub

( 4)hacer hasta... .loop

Private Sub CommandButton1_Click()

atenuar i como entero

atenuar jc como doble

jc =1

i=10

hacer hasta i<1

jc=jc*i

i=i-1

bucle

imprimir "10!=";

imprimir jc

End Sub