下列程序的功能是求算式:1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句,使程序可以完成指定的功能。 Private Sub Commandl_Click() Dim i as integer,s as si

admin2011-10-24  63

问题 下列程序的功能是求算式:1-1/2+1/3-1/4+……前30项之和。请在空白处填入适当的语句,使程序可以完成指定的功能。
    Private Sub Commandl_Click()
         Dim i as integer,s as single,f as integer
         s=0:f=1
         For i=1 To 30
               s=s+f/i
               f=【11】
         Next i
        Debug.Print”1-1/2+1/3-1/4+……=”;S
    End Sub

选项

答案 (-1)*f

解析 要计算1-1/2+1/3-1/4+…的前30项和,可以看出,偶数项的系数为负,f初始值为1,利用f=(-1)*f实现偶数项系数为负,奇数项系数为正。
转载请注明原文地址:https://jikaoti.com/ti/Cxw0FFFM
0

随机试题
最新回复(0)