vb怎么編寫6的階乘？語句的實現Private subcommand 1_Click ()Dim s is Long, n is integer, and I is integer.n Val(文本1

vb怎么編寫6的階乘？

語句的實現

Private subcommand 1_Click ()

Dim s is Long, n is integer, and I is integer.

n Val(文本1。正文)

s 1

For i 1 to n

s s * i

Next, I

character string

End joint

2、Do While語句實現

Private subcommand 1_Click ()

Dim s is Long, n is integer, and I is integer.

n Val(文本1。正文)

s 1

I 1

Do it while I;m away

s s * i

Me, me, 1

ring

character string

End joint

擴展數據:

從1到10的階乘結果如下:

1!一個

2! 2*12

3! 3*2*16

4! 4*3*2*124

5! 5*4*3*2*1120

6! 6*5*4*3*2*1720

7! 7*6*5*4*3*2*15040

8! 8*7*6*5*4*3*2*140320

9! 9*8*7*6*5*4*3*2*1362880

10! 10*9*8*7*6*5*4*3*2*13628800