s=1+1/2+1/3+……+1/100 P=3+6+9+……+27+30+31+41+51+……+91要用for语句的,while语句不行.

来源:学生作业学帮网 编辑:学帮网 时间:2024/06/04 13:40:39

s=1+1/2+1/3+……+1/100 P=3+6+9+……+27+30+31+41+51+……+91
要用for语句的,while语句不行.

给s的VB代码:
Private Sub Command1_Click()
Dim i As Long
Dim s As Double
For i = 1 To 100
s = s + 1 / i
Next
Debug.Print s
End Sub