b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/14 16:31:17

b求π为啥是错的
Private Sub Command1_Click()
Dim s As Integer,n As Double,u As Double,pi As Double,pii As Double
While Abs(u) >= 0.001
pi = pi + u
n = n + 2
s = -s
u = s / n
pii = 4 * pi
Wend
Print pii
End Sub

你要循环多少次呢?如果S开始是正的话,你循环一次不是变了负了吗?那U=S/N也变负了,那
Abs(u)>=0.001就不符合,跳出循环了
再问：那应该怎样改啊
再答：试一下把S=-S去掉~不知道你那句是什么意思
再问： s=-s不能去的
再答：你那些都没赋值啊
再问： Private Sub Command1_Click() Dim s As Integer, n As Double, u As Double, pi As Double, pii As Double n = 1 u = 1 pi = 0 While Abs(u) >= 0.001 pi = pi + u n = n + 2 s = -s u = s / n pii = 4 * pi Wend Print pii End Sub 还是不对，显示出来的是4
再答：赋值S=1，那个pii=4*pi写在循环外面

b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do Private Sub Command1_Click() Dim i As Integer,s As Integer,n 9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp Private Sub Command1_Click() Dim i,j As Integer For i = 3 To Private Sub Form_Click() Dim a As Integer,b As Integer,k As 0402 Private Sub Command1_Click() Dim a As Single,b As Singl Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In Private Sub Command1_Click() Dim i As Double,M As Double,L A Private Sub Command1_Click() Dim x As Single,y As Single Pic 33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As