Prostopadłościan

Prosty programik umożliwiający nam obliczenie pola i objętości prostopadłościanu.
Na jego podstawie łatwo zrobić programiki liczące pola innych figur płaskich i przestrzennych.

widok etykiety programu


Private Sub koniec_Click()
Unload Me
End Sub

Private Sub Objętość_Click()
Dim a, b, H As Single
a = CSng(txta)
b = CSng(txtb)
H = CSng(txtH)
lblObjętość.Caption = a * b * H
End Sub

Private Sub Pole_Click()
Dim a, b, H As Single
a = CSng(txta)
b = CSng(txtb)
H = CSng(txtH)
lblPole.Caption = 2 * a * b + 2 * a * H + 2 * b * H
End Sub
Pobierz program download
>