VB：用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数

题目来源：大工慕课 链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验1-6
作者：Caleb Sung

题目要求

用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，其间有间隔。

参考代码

在Form上画一个按钮，双击进入代码编辑器：
（英语苦手desu 奇怪的变量名什么的敬请无视吧hhhh）

Private Sub command1_Click()
    x = Val(InputBox("输入一个正实数", "计算", 0))
    pf = Format(x * x, "0.000")
    pfg = Format(Sqr(x), "0.000")
    lf = Format(x * x * x, "0.000")
    lfg = Format(x ^ (1 / 3), "0.000")
    Print "平方为:"; pf; Space(3); "平方根为:"; pfg; Space(3); "立方为:"; lf; Space(3); "立方根为:"; lfg
End Sub

运行效果

输入一个数之后结果就会直接print在form上，所以在设计的时候我把按钮往下移动了一点~