同意xlsdoc的观点。窗体上放一个Text控件,设置多行形式Private Sub Command1_Click()
Dim dErr As Double
dErr = 0.001
Dim dSum As Double
Dim iFst As Long
dSum = 0#
iFst = 12
Do While 1# / iFst >= dErr
dSum = dSum + 1 / iFst
iFst = iFst + 10
Loop
Me.Print iFst, dSum
Text1.Text = "1/...