在线紧急求解!!!!!!!

  用VB编下面问题：
      只要输入正方形的边长就会输出正方形它的面积和周长。
   我用代码这样写对不？
    Dim r As Double
   Dim mianji As Double
   Dim zhouchang As Double
   r=Val(InputBox("输入数值"))
   Print"r="&r
   mianji=r*r
   zhouchang=4*r
   Print"mianji="&mianji&"zhouchang"&zhouchang
                 就这样；我想它应该错了，执行不了，出错。
      麻烦高手指点指点。   谢谢了！