Question

用vb编写一个程序

小程序

Answer 1

Dim i As Long
Dim s As Double
Dim FH As Integer
FH = 1
s = 0
i = 1
Do While Abs(FH * 1 / i) > 10 ^ (-6)
s = s + FH * 1 / i
FH = -FH
i = i + 2
Loop
Print s * 4

追问

可以做好后上传一个附件吗？

追答

追问

用2010为什么打不开啊？

追答

????我这个是VB 6
你要稍作修改，因为在VB.Net中，因为 Visual Basic 6 中的数学函数已经由 .NET Framework 的 System.Math 类中的等效方法取代。
在窗体上加个按钮，复制下面的代码：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Long
Dim s As Double
Dim FH As Integer
FH = 1
s = 0
i = 1
Do While Math.Abs(FH * 1 / i) > 10 ^ (-6)
s = s + FH * 1 / i
FH = -FH
i = i + 2
Loop
MsgBox(s * 4)
End Sub
End Class