用vb做一个小程序,能够计算1-任意数的阶乘
发布网友
发布时间：2024-09-28 09:42
共1个回答
热心网友
时间：8分钟前
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，但浮点数值就不准确了。
