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

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

 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

面积=（长*宽+宽*高+长*高）*2
体积=长*宽*高
长，宽，高，数据需要你输入

dim a,b,c,s,v
a=inputbox("a")
b=inputbox("b")
c=inputbox("c")
s=2(a*b+a*c+b*c)
v=a*b*c
print s,v

dim dbl长, dbl宽, dbl高 as double
dim dbl表面积 as double = dbl长，* dbl宽 * 2 + dbl宽 * dbl高 * 2 + dbl 长 * dbl高 * 2
dim dbl体积 as double = dbl长 * dbl宽 * dbl高