编写一VB函数求长方体的体积的并用函数返回

'这是函数
Function GetV(Chang As Single, Kuang As Single, Gao As Single) As Single
GetV = Chang * Kuang * Gao
End Function

'这是调用举例
Private Sub Command1_Click()
Dim x As Single, y As Single, z As Single
x = 20: y = 35.6: z = 43
MsgBox "长方体的体积是：" & GetV(x, y, z)
End Sub

dim v,a,b,c as single
a=inputbox".."
b=inputbox".."
c=inputbox".."
v=a*b*c
print a;b;c,v

Private Sub Form_click()

a = InputBox("请输入长", "标题", "默认值")

b = InputBox("请输入长", "标题", "默认值")

C = InputBox("请输入长", "标题", "默认值")

d = a * b * C

Print " 体积 ＝"; d

End Sub

54