关于VB的编程题、、、求一个实数的平方根,平方,立方,立方根,每个数保留3位小数 谢谢啦

 我来答
z10
2011-05-24 · TA获得超过413个赞
知道小有建树答主
回答量:301
采纳率:0%
帮助的人:211万
展开全部
Private Sub Form_Load()
q = 123
'平方
MsgBox c(q, 2)
'平方根
MsgBox c(q, 1 / 2) '求2次根<==>一个数的1/2次方
'立方
MsgBox c(q, 3)
'立方根
MsgBox c(q, 1 / 3)
End Sub
Function c(d, e)
c = d ^ e
f = a(c)
c = Left(c, f + 3)
End Function
Function a(b)
b = b & ".000"
a = InStr(1, b, ".", 1)
End Function

'----------------------------------------------------------------
'更直接的方法
Private Sub Form_Load()
q = 123
'平方
MsgBox c(q, 2)
'平方根
MsgBox c(q, 1 / 2) '求2次根<==>一个数的1/2次方
'立方
MsgBox c(q, 3)
'立方根
MsgBox c(q, 1 / 3)
End Sub
Function c(a, b)
c = Format(a ^ b, "0.000")
End Function
追问
有没有更简单一点的写法呢,就是不用msgbox,比如说用inputbox输入一个数,然后把结果打在窗体上就行。。。。。麻烦你了
追答
'以这个为例:
Private Sub Form_Load()
Me.AutoRedraw = True
q = InputBox("", "输入数字", 123)
Print q & ":"
c q, 2, "平方"
c q, 1 / 2, "平方根"
c q, 3, "立方"
c q, 1 / 3, "立方根"
End Sub
Function c(a, b, e)
Print e & Format(a ^ b, "0.000")
End Function
来自:求助得到的回答
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
孟徳
2011-05-24 · TA获得超过421个赞
知道小有建树答主
回答量:500
采纳率:0%
帮助的人:227万
展开全部
平方根 x^0.5
平方x^2
立方 x^3
立方根 x^(1/3)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式