Question

已知长方体的长、宽、高,编写一个程序,求长方体的全面积和体积.

Answer 1

已知长方体的长、宽、高,编写一个程序,求长方体的全面积和体积：

Private Sub command1_click()

Dim A As Single,B As Single,C As Single,S As Single,V As Single

A = InputBox("A=","输入")

B = InputBox("B=","输入")

C = InputBox("C=","输入")

S = 2 * (A * B + A * C + B * C)

V = A * B * C

Print "全面积S="; S,"体积V="; V

End Sub

希望对你有用!