代碼如下﹕另存為窗口
VERSION 5.00
Begin VB.Form Form1
BackColor=&H80000016&
BorderStyle=1’Fixed Single
Caption="Pi Calculator"
ClientHeight=5580
ClientLeft=45
ClientTop=330
ClientWidth=7320
Icon="Pi.frx":0000
LinkTopic="Form1"
MaxButton=0’False
MinButton=0’False
MouseIcon="Pi.frx":030A
MousePointer=99’Custom
ScaleHeight=5580
ScaleWidth=7320
StartUpPosition =2’CenterScreen
Begin VB.TextBox OutputBox
BeginProperty Font
Name="MS Sans Serif"
Size=13.5
Charset=0
Weight=700
Underline=0’False
Italic=0’False
Strikethrough=0’False
EndProperty
ForeColor=&H0000FF00&
Height=1575
Left=0
MultiLine=-1’True
ScrollBars=2’Vertical
TabIndex=2
Top=675
Width=7335
End
Begin VB.TextBox TextBox_LengthOfNumbers
BackColor=&H80000014&
BeginProperty Font
Name="Times New Roman"
Size=18
Charset=0
Weight=400
Underline=0’False
Italic=0’False
Strikethrough=0’False
EndProperty
ForeColor=&H0000FF00&
Height=480
Left=45
TabIndex=1
Text="10"
Top=45
Width=4335
End
Begin VB.CommandButton CalculateButton
Caption="Pi !"
BeginProperty Font
Name="Times New Roman"
Size=26.25
Charset=0
Weight=700
Underline=0’False
Italic=0’False
Strikethrough=0’False
EndProperty
Height=630
Left=45
TabIndex=0
Top=4905
Width=1785
End
End
责任编辑:小草