题目来源:大工慕课 链接
原题: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上,所以在设计的时候我把按钮往下移动了一点~