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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/18 22:23:46
用VB计算1到10倒数的阶乘就是那些问号应该怎么改?结果如下图,
xjA_e(DZhRV/Eh&c5/ VZ"WmQS&[i BΙgf?߿u~Cׇ7OG_``7^|ˎ>6{[ލWwoOϲWk]ض,V5Pu}$

用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