private sub command1_click()
  dim err as double
  dim m_result as double
  dim n as intege
  dim m_multiply as long
  
  m_result=1
  n=1
  err=val(text1.text)
  
if (err<0.0000001) then
    msgbox ("精度要求太高,计算不能进行")
  exit sub
end if
  do while 1/m_multiply> err
  m_result = m_result+1/m_multiply
  n= n+1   '这个地方
m_multiply =m_multiply * n  '这个地方
loop
text2.text=m_result
end sub

小弟想知道我标注的地方的意思`麻烦大虾讲解下`我会很感激```
题目是用近似值求解``我想知道m_multiply=m_multiply*n 是什么意思``我很费解
1+1/1+1/2+1/3+1/4......1/n=ERR


这个程序难道不是分母一次一次加1么``若_multiply=2了  n=n+1  那么m_multiply=m_multiply*n 不就变成 m_multiply=2 *3 了么`
那么在循环判断过去```m_result=m_result+ 1/m_multiply不就成了m_result=m_result+1/6了么`中间的 1/3  1/4 1/5 都不用加了么`

private sub command1_click()
  dim err as double
  dim m_result as double
  dim n as intege
  dim m_multiply as long
  
  m_result=1
  n=1
  err=val(text1.text)
  
if (err<0.0000001) then
    msgbox ("精度要求太高,计算不能进行")
  exit sub
end if
  do while 1/m_multiply> err
  m_result = m_result+1/m_multiply
  n= n+1   '这个地方
m_multiply =m_multiply * n  '这个地方
loop
text2.text=m_result
end sub
这代码是谁写的？有没有搞错啊！
m_multiply 的初值呢？
m_multiply =m_multiply * n 得出来的是N！
 m_result = m_result+1/m_multiply
得出来的就应该是1+1/1*2+1/1*2*3+...+1/1*2*3...*n
跟你说的有差距哦！

这记得这个问题发了两次了,上次我回了..你这程序有点问题,按照我的思维写了一个,达到你的效果...

哈哈`你太有才了``
程序想通了``感谢``ouzhiguang

不过也很感谢你啊`zougonghua
也许是我表达不好``非常感谢你们``