VB的编程作业~~~急用~~~

来源：百度知道 编辑：UC知道 时间：2024/09/18 04:21:30
1.用两种方式求e ≈ 1/1！+ 1/2！+1/3！+ … + 1 / n！
1)直到第50项；
2)直到最后一项小于10-6。
2. 编程求出1000到10000之间的完全平方数。一个整数若是另一个整数的平方，那么它就是完全平方数。例如，1600 = 40 2 ，是完全平方数，而1601不是完全平方数。
大家写下编程步骤，谢谢了

第一题答案：
'直到第50项程序如下:
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim answerE50 As Double
Dim answerE10E_6 As Double
Dim temp As Double
n = 50
answerE50 = 1
For i = 1 To n
temp = 1
For j = 1 To i
temp = temp * j
Next j
answerE50 = answerE50 + 1 / temp
Next

'直到最后一项小于10的-6次，程序如下：
answerE10E_6 = 1
i = 1
Do
temp = 1
For j = 1 To i
temp = temp * j
Next j
answerE10E_6 = answerE10E_6 + 1 / temp
i = i + 1
Loop Until 1 / temp < 0.000001
MsgBox("加和50项答案是:" & answerE50 & vbCrLf & "直到最后一项小于10的-6次，答案是：" & answerE10E_6)
第二题答案：
D