VB例程序复习.docVIP

参考程序： 1. 编写程序，求下面级数前n项的和S，以此作为数π*π/12的近似值，要求末项的绝对值小于0.00001，计算并输出和数S。（其中^表示幂运算） 0.82247 π*π/12 = 1-1/(2*2)+1/(3*3)-1/(4*4)+……+(-1)^(n-1)/(n*n)+…… Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer, q, s As Double n = 1 q = 1 s = 1 Do While q = 0.00001 n = n + 1 q = 1 / (n * n) s = s + (-1) ^ (n - 1) * q Loop MsgBox(s) End Sub 3. 有一个数列，其前三项分别为1，2，3，从第四项开始，每项均为其相邻的前三项之和的1/2，问：该数列从第几项开始，其数值超过1000。 32 Private Sub Button2_