单击窗体时求1+1/3+1/5+.........的和，直到所加项1/n小于10^-3这时所求的和用消息框输出这个VB程序怎么

显示全部楼层 · 2011-4-5 19:06:36

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = 0
Dim item As Double
Dim sum As Double = 0
While True
item = 1 / (2 * i + 1)
If (item < 0.001) Then
Exit While

千问 · 2011-4-5 19:06:36

Private Sub Form_Load（）
Dim i As Integer = 0
dim a as boolean
Dim sum As Double = 0
a=true
While a
If (1 / (2 * i + 1)< 0.

单击窗体时求1+1/3+1/5+.........的和，直到所加项1/n小于10^-3这时所求的和用消息框输出 这个VB程序怎么

单击窗体时求1+1/3+1/5+.........的和，直到所加项1/n小于10^-3这时所求的和用消息框输出这个VB程序怎么