十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/17 01:25:12
十万火急!请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
【程序改错】
'------------------------------------------------
已知自然对数的底数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
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错误,导致这儿无限循环
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错误,导致这儿无限循环
十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!
十万火急!急求VB高手帮我做一下这倒程序改错题,每个FOUND的下一行都有错误,请改正!
急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!
请VB高手帮我看下这个题.答的好我一定重赏.急用.每个found的下一行有错误,请改正.
请高手帮我找下这个Lingo程序的错误!下面是Lingo程序
急用,每个FOUND后面一行都有错误,请指出怎么改.
老师,明天就考试了,请老师详细帮我解答第五题,详细说一下,这
请高手帮我解答此应用题
改错 每句均有一处错误,请帮改正.
你刚帮我回答的几何题第三问错误了 请仔细看下!重新帮我解答
请帮我看下这片作文是否有时态错误,帮我改正下,重谢!
VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正