VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/06/16 16:48:13
VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5-1/7+...…… (-1)
![VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5](/uploads/image/z/2264071-31-1.jpg?t=VB%E5%BE%AA%E7%8E%AF%E7%BB%93%E6%9E%84%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1+%E4%B8%8A%E6%9C%BA%E9%A2%98+%E7%94%A8Do+Loop+Until%E6%88%96While+%E2%80%A6Wend%E5%BE%AA%E7%8E%AF+%E7%94%A8%CF%80%2F4+%CF%80%E2%89%881-1%2F3%2B1%2F5)
'a是你的精度.b是最终结果 i是循环变量
Const pi As Double = 3.14159
Private Function GetPi(ByVal a As Double)
Dim b As Double,i As Long
Do
i = i + 1
b = b + 1 / (2 * i - 1) * (-1) ^ (i + 1) '数学问题
DoEvents
Loop Until Abs(4 * b - pi)
Const pi As Double = 3.14159
Private Function GetPi(ByVal a As Double)
Dim b As Double,i As Long
Do
i = i + 1
b = b + 1 / (2 * i - 1) * (-1) ^ (i + 1) '数学问题
DoEvents
Loop Until Abs(4 * b - pi)
VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5
输入一个整数,用VB的While wend 或 Do Loop Until判断质数.
Vb Do while|until…Loop 循环语句
vb中用for、do…loop和while…wend循环三种形式分别求3的n次方
大一新生的C语言问题,第12题,循环结构程序设计用for或while或do while
While-Wend循环结构与Do-Loop循环结构在循环体部分的执行上有什么不同之处?
VB分析For...Next循环结构与Do While...Loop循环结构的异同点
VB中 while .wend 与 DO while.loop区别
VB 函数 do while ...Loop 与 while .wend 的区别
用VB的do...loop循环写语句!
用for循环,while循环,do…while循环,分别编写程序求s=1+3+5+……+19的值,并显示结果
VB的循环结构程序设计