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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/10/07 17:38:30
用VB计算1到10倒数的阶乘就是那些问号应该怎么改?结果如下图,用VB计算1到10倒数的阶乘就是那些问号应该怎么改?结果如下图, 用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