编写如下程序： 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 58

问题编写如下程序：
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://kaotiyun.com/show/WMHp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类