| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 586 人关注过本帖
标题:麻烦各位帮解释下这段代码``循环语句``
只看楼主 加入收藏
早睡早起
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2008-3-13
收藏
 问题点数:0 回复次数:4 
麻烦各位帮解释下这段代码``循环语句``
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 都不用加了么`

[[it] 本帖最后由 早睡早起 于 2008-5-12 11:04 编辑 [/it]]
搜索更多相关主题的帖子: 语句 代码 麻烦 解释 
2008-05-11 23:10
sxl111
Rank: 1
等 级:新手上路
威 望:1
帖 子:55
专家分:0
注 册:2008-5-7
收藏
得分:0 
不知道我也新人………………看你这个程序也有好多地方不懂………………嘎嘎………………
2008-05-12 09:48
sxl111
Rank: 1
等 级:新手上路
威 望:1
帖 子:55
专家分:0
注 册:2008-5-7
收藏
得分:0 
我也新人…………呵呵………………你这个程序我也需要研究很长时间呢…………
2008-05-12 09:49
saikanwa
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2008-2-28
收藏
得分:0 
是不是题目有问题?
1+1/1+1/2+1/3+1/4......1N(N+1)=ERR    ???
如果N采用变量N=N+1,得到的会与前面项不符,除非将1N(N+1)=ERR的第一个N去掉.那样就好理解多了.小弟也初学,不正之处,望指教.

[[it] 本帖最后由 saikanwa 于 2008-5-12 10:32 编辑 [/it]]
2008-05-12 10:18
zougonghua
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-4-1
收藏
得分:0 
m_multiply=1
m_result=1
do until 1/m_multiply> err
m_result = m_result+1/m_multiply
m_multiply=m_multiply+1
loop
text2.text=m_result
2008-05-12 12:03
快速回复:麻烦各位帮解释下这段代码``循环语句``
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017193 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved