VB题不会做拉~~

来源：百度知道 编辑：UC知道 时间：2024/06/30 02:49:20
算圆周率pi的程序
可以通过pi/4=1-（1/3）+（1/5）-（1/7）+（1/9）.....（n项）
输入n求出n=100，1000，20000时pi的值
提示：用if语句来实现奇数和偶数+ -的区别

2个控件 1个 textbox1 一个 按钮
在按钮单击事件中写入下面代码 结果是 在 textbox1中填入 n的值 单击按钮
结果会返回在 textbox1中

Dim i = 0
Dim pi = 0
Dim k = 0
For i = 1 To Int(TextBox1.Text)
If i = 1 Then
TextBox1.Text = "pi/4 = 1"
End If
If (i Mod 2) <> 0 And (i > 1) Then
If k = 0 Then
TextBox1.Text = TextBox1.Text & "-(1/" & i & ")"
k = 1
Else
extBox1.Text = TextBox1.Text & "+(1/" & i & ")"
k = 0
End If
End If
Next