1题:用迭代公式(式中x后面括号表示下标):x(n+1)=(xn+a/xn)/2(n=0,1,2...,x0=a/2),求某一正整数a的平方根
2题:利用公式π/4=1-1/3+1/5-1/7+...,求π的近似值.要求计算到最后一项的绝对值小于10^-7

[[it] 本帖最后由 yi157 于 2008-6-12 15:22 编辑 [/it]]

2.
Private Sub Form_Load()
    Dim pi#, x#, i As Long, b As Boolean
    pi = 0: x = 1: i = 1: b = True
    Do Until x < 0.000001
        If b Then
            pi = pi + x
            b = False
        Else
            pi = pi - x
            b = True
        End If
        i = i + 2
        x = 1 / i
    Loop
    pi = pi * 4
    Text1 = pi
End Sub

楼主都学啥了？

多谢了,今天刚好端午节,祝你节日快乐!愿你能及时看的到

我当然学vb呀,不知版主有何指教呀?

按说如果你上课听讲，或者有点自学能力，10节课以内完成这两题应该不成问题。所以我很关心你学啥了

不会吧,有这么简单? 你想打击我呀

你们别帮这人写作业了好不好？脑子在自己头上，要自己思考。

我分析一下第一题：用迭代公式(式中x后面括号表示下标):x(n+1)=(xn+a/xn)/2(n=0,1,2...,xn=a/2),求某一正整数a的平方根

很显然，如果你知道什么叫迭代的话

输入a
给x变量任取一个值
不停重复将(x+a/x)/2赋给x
直到次数足够多，或者x的增量足够小

这就是思路。

第二题，利用公式π/4=1-1/3+1/5-1/7+...,求π的近似值.要求计算到最后一项的绝对值小于10^-7


定义一个变量存储右边的部分
令i从1到3到5到7到……(可以用while)……应该是到10^7
写出右边的数列的通项：a[n]=(-1)^n/n
将a[i]加入第一步里那个变量(存储和的)
将那个变量乘4赋给那个变量
输出.

这就是思路,做题要有思路,而不是直接把作业发到网上,让别人帮你想.