编写如下程序: Private Sub Command1_Click() Dim i As Integer, f As Integer Dim s As Single f = 1: s = 1 For i = 2 To 9

admin2020-07-22  18

问题 编写如下程序:
Private Sub Command1_Click()
   Dim i As Integer, f As Integer
   Dim s As Single
   f = 1: s = 1
   For i = 2 To 9
      s = s - f / (i * (i + 1))
      f = -f
   Next i
   Print s
End Sub
以上程序的功能是计算

选项 A、
B、
C、
D、

答案B

解析 For循环中,语句s = s - f / (i * (i + 1))意思是对s赋值,在s基础上加上或者减去 f / (i * (i + 1));其中加或减由 f = -f控制,即当i为偶数时,为减;当i为奇数时,为加。 当i=2时,s=1-1/(2*3);依次类推,i=9时,s=1-1/(2*3)+1/(3*4)+...+1/(9*10),故选择B项。
转载请注明原文地址:https://jikaoti.com/ti/I1S0FFFM
0

最新回复(0)