【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了超高精度科学计算器VB源程序 - 计算机理论相关资料，希望对各位网友有所帮助!

VERSION 5.00 Begin VB.Form Form1 BackColor ampH00FF0000amp Caption quotHPC-超高精度科学计算器 2010quot ClientHeight 3090 ClientLeft 1260 ClientTop 5250 ClientWidth 13080 DrawWidth 12 FillColor ampH00C00000amp BeginProperty Font Name quotArial Blackquot Size 9 Charset 0 Weight 700 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty ForeColor ampH8000000Aamp Icon quotchen.frxquot:0000 LinkTopic quotForm1quot MaxButton 0 False MousePointer 14 Arrow and Question PaletteMode 2 Custom Picture quotchen.frxquot:0CCA ScaleHeight 192.523 ScaleMode 0 User ScaleWidth 12800 Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 8 Left 6120 TabIndex 126 Tag quotchen.frxquot:78AC Text quotπ/200quot Top 5520 Visible 0 False Width 735 End Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 7 Left 5280 TabIndex 125 Tag quotchen.frxquot:9020 Text quotπ/180quot Top 5520 Visible 0 False Width 735 End Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 6 Left 4680 TabIndex 124 Tag quotchen.frxquot:A794 Text quot2πquot Top 5520 Visible 0 False Width 495 End Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 5 Left 3720 TabIndex 123 Tag quotchen.frxquot:BF08 Text quotln√2π/2quot Top 5520 Visible 0 False Width 855 End Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 4 Left 3000 TabIndex 122 Tag quotchen.frxquot:D67C Text quot√2πquot Top 5520 Visible 0 False Width 615 End Begin VB.CommandButton Command30 Caption quotFFTquot Height 375 Left 6240 TabIndex 121 Top 1680 Width 1215 End Begin VB.CommandButton RUNc BackColor ampH00C0C000amp Caption quotRUNquot BeginProperty Font Name quotArial Blackquot Size 7.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 255 Left 12240 MaskColor ampH80000012amp Style 1 Graphical TabIndex 120 TabStop 0 False ToolTipText quot重复运行quot Top 1680 Width 615 End Begin VB.CommandButton Clear BackColor ampH0000FFFFamp Caption quotCquot BeginProperty Font Name quotArial Blackquot Size 7.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 255 Left 12240 MaskColor ampH80000012amp Style 1 Graphical TabIndex 119 TabStop 0 False ToolTipText quot清当前数据quot Top 1320 Width 615 End Begin VB.CommandButton Clss BackColor ampH000000C0amp Caption quotCLSquot BeginProperty Font Name quotArial Blackquot Size 7.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 255 Left 12240 MaskColor ampH000040C0amp Style 1 Graphical TabIndex 118 TabStop 0 False ToolTipText quot数据初始化quot Top 960 Width 615 End Begin VB.CommandButton Command27 BackColor ampH0080C0FFamp Caption quotOFFquot BeginProperty Font Name quotGulimquot Size 7.5 Charset 0 Weight 700 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 255 Left 11640 MaskColor ampH00FFFFFFamp Style 1 Graphical TabIndex 117 TabStop 0 False ToolTipText quot关闭程序quot Top 960 UseMaskColor -1 True Width 495 End Begin VB.CommandButton Command52 Caption quotquot BeginProperty Font Name quotComic Sans MSquot Size 9 Charset 0 Weight 700 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 255 Left 8040 TabIndex 116 Top 2760 Width 495 End Begin VB.CommandButton Num BackColor ampH00C0FFC0amp Caption quot.quot BeginProperty Font Name quotVerdanaquot Size 10.5 Charset 0 Weight 700 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 255 Index 10 Left 3480 MaskColor ampH80000018amp Style 1 Graphical TabIndex 115 TabStop 0 False ToolTipText quot数字“6”quot Top 2760 UseMaskColor -1 True Width 495 End Begin VB.TextBox Text1 Appearance 0 Flat BackColor ampH00C0FFFFamp BorderStyle 0 None Enabled 0 False BeginProperty Font Name quotFixedsysquot Size 12 Charset 134 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 240 Left 3000 TabIndex 114 TabStop 0 False Top 120 Width 2385 End Begin VB.Timer Timer1 Interval 500 Left 6600 Top 2280 End Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 3 Left 2280 TabIndex 113 Tag quotchen.frxquot:EDF0 Text quotπ/2quot Top 5520 Visible 0 False Width 615 End Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 2 Left 1680 TabIndex 112 Tag quotchen.frxquot:10564 Text quot√πquot Top 5520 Visible 0 False Width 495 End Begin VB.TextBox xPics BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 1 Left 1200 TabIndex 111 Tag quotchen.frxquot:11BBC Text quotπ/2quot Top 5520 Visible 0 False Width 495 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 9 Left 8880 TabIndex 110 Tag quotchen.frxquot:13213 Text quotLN10-1quot Top 5040 Visible 0 False Width 1095 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 8 Left 8040 TabIndex 109 Tag quotchen.frxquot:14869 Text quotLN10quot Top 5040 Visible 0 False Width 735 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 7 Left 7320 TabIndex 108 Tag quotchen.frxquot:15EC0 Text quotLN9quot Top 5040 Visible 0 False Width 735 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 6 Left 6600 TabIndex 107 Tag quotchen.frxquot:17517 Text quotLN8quot Top 5040 Visible 0 False Width 735 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 5 Left 5880 TabIndex 106 Tag quotchen.frxquot:18B6E Text quotLN7quot Top 5040 Visible 0 False Width 735 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 4 Left 5160 TabIndex 105 Tag quotchen.frxquot:1A1C5 Text quotLN6quot Top 5040 Visible 0 False Width 735 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 3 Left 4440 TabIndex 0 Tag quotchen.frxquot:1B81C Text quotLN5quot Top 5040 Visible 0 False Width 735 End Begin VB.TextBox lncs BeginProperty Font Name quotArial Blackquot Size 10.5 Charset 0 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty Height 405 Index 2 Left 3720 TabIndex 104 Tag quotchen.frxquot:1CE73 Text quotLN4quot Top 5040 Visible 0 False Width 735 End Begin VB.TextBox lncs BeginProperty Font N.