Private Sub Command1_Click()
Dim 底, 高, 面積 As String
底 = Val(Text1.Text)
高 = Val(Text2.Text)
面積 = 長 * 寬 / 2
Label3.Caption = ”正三角形面積” & 面積 & ”平方單位”
End Sub

Private Sub Command2_Click()
Dim 邊長, 面積 As String
邊長 = Val(Text3.Text)
面積 = 邊長 ^ 2
Label6.Caption = ”正方形面積為” & 面積 & ”平方單位”


End Sub

Private Sub Command3_Click()
Text1.Text = ””
Text2.Text = ””
Text3.Text = ””
Text4.Text = ””
Label3.Caption = ””
Label6.Caption = ””
End Sub

Private Sub Label4_Click()
End
End Sub

感謝我吧資訊科的ＸＤ