vb题目，急啊~~~

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

Private Sub Command1_Click()
a = InputBox("输入数")
If a >= 0 Then MsgBox "请输入正实数": Exit Sub
b = Format(a ^ 2, "0.000")
c = Format(a ^ (1 / 2), "0.000")
d = Format(a ^ 3, "0.000")
e = Format(a ^ (1 / 3), "0.000")
Print b; Spc(3); c; Spc(3); d; Spc(3); e
End Sub