VB程序设计教程题，设s=1+1/2+1/3……+1/n，求与8最接近的s的值及与之对应的n值

Question

我设计的只能是单方面的从8的左端或右端接近8，而不能让它们两个进行比较后直接把最终结果从窗体上显示出来。提前谢谢了

Answer 1

Private Sub Form_Click()
Dim I As Integer
Dim S As Single
Form1.Cls
S = 0
While S < 8
I = I + 1
S = S + (1 / I)
Wend
Print I; S; Abs(8 - S)
I = I - 1
S = S - (1 / I)
Print I; S; Abs(8 - S)
End Sub
根据上面的代码，相信你能很快看出结果。

Answer 2

Sub test1()

FindN (8)

End Sub

Function FindN(K)
Dim n
Dim a1
Dim s
Dim s1
n = 0
Do While s < K
s1 = s
n1 = n
n = n + 1
a1 = 1 / n
s = s + a1
Loop
Print s1
Print s
Print "更接近于" & K & "的是";
If 8 - s1 > s - 8 Then
Print s
Print "同时n=" & n
Else
Print s1
Print "同时n=" & n1
End If
End Function