急需帮忙,明天考试呀,VB算法编写N的阶乘

来源：百度知道 编辑：UC知道 时间：2024/05/08 05:02:09
.编写求n!程序

.编程计算分段函数

( 0 x<0
| 1 0<=x<1
| 2 1<=x<2
Y= | 3 x>=2
(

最好附有简单解释
谢谢了.明天有急用~~~~~~~~~~~~

Private Sub Command1_Click()
Dim n, i, sum As Integer
n = 5 'n的初值
sum = 1 '1做为阶乘的基数，因为乘以任何数都为原数
For i = 1 To n '从1乘到n,这是阶乘的原理
sum = sum * i
Next i
Print sum '输出结果
End Sub

Private Sub Command1_Click()
Dim x, y As Single
x = 1 '给x任意的一个初值
If x < 0 Then 'x小于0的情况
y = 0
Else:
If x >= 0 And x < 1 Then '0<=x<1的情况
y = 1
Else:
If x >= 1 And x < 2 Then '1<=x<2的情况
y = 2
Else: y = 3 '3 x>=2的情况
End If
End If
End If
Print y
End Sub