¡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 p>
print "10!=";
print jc
End Sub
El segundo tipo se utiliza como bucle while.. .wend p>
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 p>
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 p>
bucle
imprimir "10!=";
imprimir jc
End Sub