第1个回答 2009-06-26
我不是很明白你那个∧是什么意思
以下是我写的代码:
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
以上的代码没有经过测试,有什么问题可以留言给我.
第2个回答 2009-06-25
直接给你代码吧
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
不过 如果你不是要这效果再改吧本回答被提问者采纳