用VB计算1到10倒数的阶乘就是那些问号应该怎么改?结果如下图,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 07:40:32
用VB计算1到10倒数的阶乘就是那些问号应该怎么改?结果如下图,

用VB计算1到10倒数的阶乘就是那些问号应该怎么改?结果如下图,
用VB计算1到10倒数的阶乘

就是那些问号应该怎么改?结果如下图,
 

用VB计算1到10倒数的阶乘就是那些问号应该怎么改?结果如下图,
Private Sub Command1_Click()
Dim i%
Dim s As Single
s = 0
For i = 1 To 10
s = s + 1 / compu(i)
Next i
Text1.Text = s
End Sub
Function compu(n%) As Single
compu = 1
Dim i%
For i = 1 To n
compu = compu * i
Next i
End Function