十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/06/17 01:05:16
十万火急!请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
![十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!](/uploads/image/z/2707211-11-1.jpg?t=%E5%8D%81%E4%B8%87%E7%81%AB%E6%80%A5%21%E8%AF%B7VB%E9%AB%98%E6%89%8B%E5%B8%AE%E6%88%91%E8%A7%A3%E7%AD%94%E6%AD%A4%E7%A8%8B%E5%BA%8F%E6%94%B9%E9%94%99%E9%A2%98%21%E6%AF%8F%E4%B8%AAFOUND%E7%9A%84%E4%B8%8B%E4%B8%80%E8%A1%8C%E9%83%BD%E6%9C%89%E9%94%99%E8%AF%AF%2C%E8%AF%B7%E6%94%B9%E6%AD%A3.%E6%98%8E%E5%A4%A9%E5%B0%B1%E8%80%83%E8%AF%95%E4%BA%86%2C%E7%9D%80%E6%80%A5%21)
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个错误,请在相应的行上改正