圆周率VB程序代码.doc

《圆周率VB程序代码.doc》由会员分享，可在线阅读，更多相关《圆周率VB程序代码.doc（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VERSION 5.00Begin VB.Form Form2 Caption = 圆周率_十位一组计算的 ClientHeight = 2775 ClientLeft = 45 ClientTop = 300 ClientWidth = 6600 Icon = 圆周率.frx:0000 LinkTopic = Form1 ScaleHeight = 2775 ScaleWidth = 6600 StartUpPosition = 3 窗口缺省 Begin VB.TextBox Text1 Height = 2124 Left = 0 Locked = -1 True MultiLine =

2、-1 True ScrollBars = 2 Vertical TabIndex = 2 Top = 585 Width = 6576 End Begin VB.CommandButton cmdend Caption = 退出 Height = 364 Left = 2040 TabIndex = 1 Top = 117 Width = 1066 End Begin VB.CommandButton cmdstart Caption = 开始 Height = 364 Left = 371 TabIndex = 0 Top = 117 Width = 1066 End Begin VB.La

3、bel Lb1 Height = 372 Left = 3480 TabIndex = 3 Top = 120 Width = 3012 EndEndAttribute VB_Name = Form2Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Cmdend_Click()Unload MeEnd SubPrivate Sub cmds

4、tart_Click()Dim a1 As Double, b1 As Double, b2 As Double, c1 As DoubleDim n As Double, d As Double, g As Double, X As DoubleDim a() As Double, b() As Double, c() As DoubleConst r As Double = 10000000000#Const Str3 As String = 0000000000Dim strS1 As StringDim time1 As DoubleDim i As Long, q As Long,

5、k As Long, m As Long, j As LongDim p As LongDo p = Val(InputBox(请输入要计算位数, 输入, 10) + 1Loop Until p 0cmdstart.Enabled = Falsetime1 = TimerReDim a(1 To p), b(1 To p), c(1 To p)b(1) = 4 * 5 * rc(1) = 239 * r: i = 1: q = -1: k = 1: m = 1Do q = -q: a1 = 0: b1 = 0: c1 = 0 For j = m To p c1 = c1 * r + c(j):

6、 c(j) = Int(c1 / 57121) c1 = -57121 * c(j) + c1 Next j If c(m) = 0 Then m = m + 1 For j = k To p a1 = a1 * r + b(j): b(j) = Int(a1 / 25): a1 = -25 * b(j) + a1 d = b1 * r + b(j) - c(j): b1 = Int(d / i): a(j) = 4 * q * b1 + a(j) b1 = d - b1 * i Next j If b(k) = 0 Then k = k + 1 If k Mod 100 = 0 Then T

7、ext1.Text = k DoEvents 为了系统处理其他程序 End If End If i = i + 2Loop Until m pDo q = -q: a1 = 0: b1 = 0 For j = k To p a1 = a1 * r + b(j): b2 = Int(a1 / 25): b(j) = b2 a1 = -25 * b2 + a1: d = b2 + b1 * r b1 = Int(d / i): a(j) = 4 * q * b1 + a(j) b1 = d - b1 * i Next j i = i + 2 If b(k) = 0 Then k = k + 1 I

8、f k Mod 200 = 0 Then Text1.Text = k DoEvents 为了系统处理其他程序 End If End IfLoop Until k p预留足够长的缓冲空间strS1 = Space(p * 12)n = 0Dim str1 As StringFor j = p To 1 Step -1 g = a(j) + n n = Int(g / r) a(j) = g - r * nNext jFor j = 1 To p - 1 str1 = a(j) X = Len(str1) str1 = Left(str1, X - 5) & & Right(str1, 5) X = Len(str1) If X 5100 Then Lb1.Caption = 文本框只放下64K,请用写字板粘贴 Clipboard.Clear Clipboard.SetText (strS1)Else Lb1.Caption = End IfEnd Sub