Question

用vb做一个小程序,能够计算1-任意数的阶乘

Answer 1

Dim n As Integer
Dim i As Integer
Dim s As Long
n= Val(Text1.Text)
s = 1
For i = 1 To n
s = s * i
Next
Print s

Text1中输入你说的“任意数”，注意：当S声明为Long时，N不能大于12，否则会溢出。或者你可以将S声明成更大范围的类型，比如Double，但浮点数值就不准确了。