VB.NET程序设计,高手进，送高分！

Question

编写一个程序，利用下列公式求的值：公式如图
要求精度控制在0.000001内。程序运行时单击【计算】按钮将计算出的值并显示出来。
答案要源程序，发到我邮箱 152838@qq.com谢谢各位大侠了，如果好可以追50分！

Answer 1

我不是很明白你那个∧是什么意思
以下是我写的代码:
Dim sum as integer = 0
Dim finsum as integer = 0
'-------默认TextBox1文本框接收你的∧值,此除你可以加入方法判断输入的
'-------TextBox1.Text是否为数字
If TextBox1.Text.Trim = string.Empty Then
msgbox("请输入一个数字!")
Exit Sub
End If
Dim b as Boolean = false '------用于循环中判断负数还是正数
'-------循环输入的∧值,每次阶梯为2向上取值,得到右表达式值
For i as integer = 1 to Cint(TextBox1.Text) step 2
If b Then
b = false
sum += 1 / cint(TextBox1.Text)
else
b = true
sum -= 1/cint(TextBox1.Text)
End If
Next
'------得出最终结果
finsum = 4 * sum

以上的代码没有经过测试,有什么问题可以留言给我.

Answer 2

直接给你代码吧
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(4 * ((1 / 1) - (1 / 3) + (1 / 5) - (1 / 7) + Val(TextBox1.Text)))
End Sub

不过 如果你不是要这效果再改吧

Answer 3

楼上的，你的代码有个小问题，他要求的精度，所有
Dim sum as integer = 0
Dim finsum as integer = 0
应该为
dim sum as double
dim finsum as double
下面的强类型转换也是如此。