十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!

问题描述:

十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!
【程序改错】
'------------------------------------------------
已知自然对数的底数e的级数表示如下:
' e=1+1/1!+1/2!+1/3!+.+1/n!+.
' 本程序利用函数过程fact()求e,其中绝对值小于
' 1E-8的项被忽略.
'------------------------------------------------
Option Explicit
Private Function fact(m As Integer) As Single
Dim x As Single,i As Integer
x = 1
For i = 1 To m
'
Loop While item >= 0.01
Form1.Print "e="; e
End Sub
1个回答 分类:数学 2014-09-28

问题解答:

我来补答
x = 1
For i = 1 To m
'
Loop While item >= 0.01
不成立
再问: 请你将正确答案填上好吗?我需要的是答案!不理解就背下来!
再答: x = 1 For i = 1 To m '**********FOUND********** Next i ---------------- '**********FOUND********** n = 0 Do n = n + 1 item = 1 / fact(n) e = e + item --------------------------------- '**********FOUND********** Loop While item >= 0.01 '这个不需要改,它的报错是因为上面的n错误,导致这儿无限循环
剩余:2000
上一页:解题方法 技巧
下一页:过程3

相关作业

[ 数学 ] 十万火急!急求VB高手帮我做一下这倒程序改错题,每个FOUND的下一行都有错误,请改正!

Private Sub Form_Click()Dim n As Integer,k As Integer,i As Integer,swit As IntegerFor n = 101 To 300 Step 2k = Int(Sqr(n))i = 2'i = i + 1End IfWendIf swit = 0 T

1

[ 综合 ] 请英语高手帮我解答一下 He liked seeing movies made from stories he had

他喜欢看那些他阅读过的书籍里的故事改编成的电影.

1

[ 历史 ] 对文革的认识和理解这是一道历史题目,请各位高手帮我解答,尽量写具体点,谢谢

文革是由毛泽东错误发动的被林彪四人帮等反革命分子利用的给中国的发展建设带来重大灾难的浩劫.毛认为党内出现了修正主义,他们企图改变社会主义道路,为此必要发动一场文化大革命,但毛对当时形势估计的过于严重,又被反革命分子利用.文化大革命不是革命是一场动乱浩劫,给中国带来巨大灾难,十年动乱期间,西方各国利用第三次科技革命成果经

1

[ 数学 ] 请各位高手帮我解答数学题,谢谢啊~~

[6*4/(0.5*0.5)]*15=1440(元)

1

[ 英语 ] 请英语高手帮我解答难题

seating.首先 Irene坐在那里,要用主动形式,所以seated不对.find somebody doing 是发现某人在做什么的意思.

1

[ 数学 ] 一个关于分数的六年级奥数题~请各位高手帮我解答~30分钟!

弟弟剩下:1-1/4=3/4.弟弟的3/4等于哥哥的4/5.弟弟的存款与哥哥的比:4/5÷3/4=16:1516+15=31,弟弟的存款是:186×16/31=96元.哥哥的存款是:186×15/31=90元

1

[ 数学 ] 请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.

Option ExplicitPrivate Sub Command1_Click() Dim x As Single, y As Single x = Val(InputBox("Please input x :", "输入X的值")) If x = 10 Then y = 0 ' y = 2 * x ~ 3 + 6

1

[ 综合 ] 急救啊 请各位高手帮我解答 如题————

有用的,可以拔打10000报修,他们会派人过来修理.他们有仪器检测是线路还是猫或是电脑的问题.

1

[ 数学 ] 请各位高手帮我解答一下下面的几道小学数学题

第一题:5升=5立方分米 15cm=1.5dm 所以放入铁块后的体积为2X2X1.5=6立方分米 所以铁块的体积为 6-5=1立方分米第二题:正方形铁块的体积为14X14X14=2744立方厘米长方形的底面积为2744除以49=56立方厘米石头的体积为:56X3.5=196立方厘米第三题:土的体积为56X24X2=26

1

[ 综合 ] 请各位高手帮我解答一下下面两个题,谢谢,一个是求阴影部分面积,另一个是填表.

第一题面积是8 再问: 怎么算出来的呢, 麻烦列出式子,谢谢 再答: 过中心交点处画一条竖线,则左半边面积为2*10=20(长方形面积等于三角形2倍),右半边为2*18=36,故阴影部分面积等于20+36-20-10-18=8

1

[ 数学 ] 下面有几道数学题,请各位高手帮我解答.

1.体积:30×15×10=4500立方厘米 圆柱体积:只有底面为10×15的为圆柱体的底面时面积最大即底面的半径为5厘米,这样其体积为:30×5²×π=2355立方厘米2.题意分析,小红为小明的3/4,即小明比小红多小明的1/4,那么小明给小红的张数为小明的八分之一,他们就一样多了.小明的张数为:12×8=

1

[ 物理 ] 请物理高手帮我解答个问题:要多大功率的加热器才能在3秒内煮沸80毫升的水?

煮初温多少度的水?如果是从零度开始煮 P=cmΔT/t= 4.2*80*0.001*(100-0)/3=11.2 W如果是室温25℃开始,那就是 8.4 W 如果是室温15℃开始,那就是 9.52 W

1

[ 数学 ] 请各位高手帮帮忙!解答下面各题:

1、8+8/9=80/9天甲做8天乙做10天相当于甲做80/9天乙做80/9天可得甲乙效率比为:(10-80/9):(80/9-8)=10:8乙工作80/9天相当于甲工作:(80/9)*(8/10)=64/9天所以甲单独做需要80/9+64/9=16天甲工作80/9天相当于乙工作:(80/9)*(10/8)=100/9

1

[ 英语 ] 请英语高手帮我解答下这个英语选择题.

英格兰(英国)的文化生活用(有)多种形式,一个简洁的摘要只能尝试去考虑他的种类.(大概意思就是 英国的文化生活很丰富,一个简单的摘要不能全面的把他表现出来,只能浅显的考虑它的文化生活种类 以上是直译 括号里的是意译)remind 是提醒的意思 suggest是建议

1

[ 英语 ] 有个问题~~~ 请英语高手 帮我解答下~~~是关于英语语法的问题!

for over the past several million years --> for (over the past several million years)over the years 固定搭配over the past several million years:在过去的百万年间里简单点,你就看成 fo

1

[ 综合 ] 请法语高手帮我解答一下问题!

mieux : adjectif invariable1) Meilleur.--Il n’y a rien de mieux, rien n’est mieux que ce que vous dites.2) En meilleure santé, en meilleur état.--Il est mieux,

1

[ 英语 ] 2- 其他数学问题 请数学高手帮帮我解答 >< 不会这题 给十分 (不是要翻译 需要解答)

3.a在抽到人头牌(JQK)的情况下抽到老k的概率,是1/3b在抽到红花色牌的情况下抽到老k的概率,是1/13c在抽到桃形牌的情况下抽到老k的概率,是1/13d在抽到人头牌(JQK)的情况下抽到红桃牌的概率,是1/4e在抽到老k的情况下抽到红花色牌的概率,是1/2f在抽到红花色牌的情况下抽到桃形牌的概率,是1/24.a

1

[ 英语 ] 3)英文数学问题 请数学高手帮帮我解答 >< 不会这题 给十分 (不是要翻译 需要解答)

7a 0.65 - 0.5b 0.8-0.5c 0.8+0.65-0.5 8a 10/20b 4/20c 2/20d 2/10e 2/4f 12/20 再问: List events : A = B= 再答: A= Y1,...Y10 B= Y7,Y8,B7,B8

1

[ 英语 ] 请英语高手帮我看看这道单选,语法题

此题涉及两个知识点:1.hope的宾语形式可以接不定式宾语hope to do sth.不能说hope sb.to do sth.——排除B选项.也可以接宾语从句hope (that) .没有hope doing sth.的用法.——排除C选项.2.宾语从句的语气hope的宾语从句可以是陈述语气,也可以是虚拟语气.陈述

1