📄 三角面积.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "三角面积"
ClientHeight = 4560
ClientLeft = 60
ClientTop = 345
ClientWidth = 7065
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 4560
ScaleWidth = 7065
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "计算"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 675
Left = 5340
TabIndex = 7
Top = 3120
Width = 1035
End
Begin VB.TextBox Text7
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1020
TabIndex = 6
Text = "2.3"
Top = 2700
Width = 675
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 5
Text = "3.5"
Top = 3180
Width = 675
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2520
TabIndex = 4
Text = "4.8"
Top = 2400
Width = 675
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4740
TabIndex = 3
Text = "2.5"
Top = 1980
Width = 675
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2700
TabIndex = 2
Text = "5"
Top = 1500
Width = 555
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3720
TabIndex = 1
Text = "3"
Top = 600
Width = 495
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1440
TabIndex = 0
Text = "3"
Top = 1020
Width = 555
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "S3"
Height = 315
Left = 1860
TabIndex = 10
Top = 2820
Width = 555
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "S2"
Height = 315
Left = 3540
TabIndex = 9
Top = 1980
Width = 555
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "S1"
Height = 315
Left = 2580
TabIndex = 8
Top = 1080
Width = 555
End
Begin VB.Line Line1
BorderWidth = 5
Index = 6
X1 = 1740
X2 = 840
Y1 = 3480
Y2 = 2160
End
Begin VB.Line Line1
BorderWidth = 5
Index = 5
X1 = 5100
X2 = 2520
Y1 = 1140
Y2 = 480
End
Begin VB.Line Line1
BorderWidth = 5
Index = 4
X1 = 5160
X2 = 840
Y1 = 1140
Y2 = 2160
End
Begin VB.Line Line1
BorderWidth = 5
Index = 3
X1 = 5160
X2 = 4860
Y1 = 1140
Y2 = 3120
End
Begin VB.Line Line1
BorderWidth = 5
Index = 2
X1 = 4860
X2 = 840
Y1 = 3120
Y2 = 2160
End
Begin VB.Line Line1
BorderWidth = 5
Index = 1
X1 = 4860
X2 = 1740
Y1 = 3120
Y2 = 3480
End
Begin VB.Line Line1
BorderWidth = 5
Index = 0
X1 = 2520
X2 = 840
Y1 = 480
Y2 = 2160
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义计算三角形面积的函数过程
Public Function area(x!, y!, z!) As Single
Dim c!
c = 1 / 2 * (x + y + z)
area = Sqr(c * (c - x) * (c - y) * (c - z))
End Function
Private Sub Command1_Click()
Dim a!, b!, c!, d!, e!, f!, g!, s1!, s2!, s3!
a = Text1
b = Text2
c = Text3
d = Text4
e = Text5
f = Text6
g = Text7
s1 = area(a, b, c)
s2 = area(c, d, e)
s3 = area(e, f, g)
Print "s1="; s1, "s2="; s2, "s3="; s3
Print "总面积="; s1 + s2 + s3
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -