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

vb怎么編寫6的階乘？

語(yǔ)句的實(shí)現(xiàn)

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語(yǔ)句實(shí)現(xiàn)

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

擴(kuò)展數(shù)據(jù):

從1到10的階乘結(jié)果如下:

1!一個(gè)

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