vb编写长方体的面积和体积的代码怎么写？

Question

vb编写长方体的面积和体积的代码怎么写？求大神帮忙谢谢，真的很感谢你们

Answer 1

 Private Sub Command1_Click()
  dim x,y,s,v
  x = Val(InputBox("X="))
  y = Val(InputBox("Y="))
  z = Val(InputBox("Z="))
  s = 2 * (x * y + y * z + x * z)
    v = x*y*z
  Print "S=" & s
End Sub