用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k As Integer,m As Doublei = 1k = 1pi = 0m = 1While (m > 0.00001)m = 1 / (2 * i - 1)pi = pi + k * mi = i + 1k = -kWendPrint "π "; 4 * piEnd SubPrivate Sub Form_Click()Dim pi,c,s As Single
来源：学生作业帮助网 编辑：作业帮 时间：2024/08/04 10:13:18
xMKAǿʣ'_5CBdAx ]w RԩJ /ַhf <3oWY|ڂ:n]FqcUK$ ; Zf,X8E5T C $.6$ P #d#%Y DHd!EAJA#5M2ħB8oCd=JmƜ9b5 ɕ 1LisakEo,cDB^'>3cqXK(' EAeN,h*(ȆJT^ajh;Oll" w= o&7lz
}
W~gDlAo/_C%^7biI܌K ]6
B[