请用msgbox,inputbox实现:用户输入一个整数,输出整数的四次方

1个回答

旅行达人178

专业答主服务有保障

关注

展开全部

摘要亲，你好！很高兴为您解答，用msgbox,inputbox实现:用户输入一个整数,输出整数的四次方：首先，使用InputBox函数获取用户输入的小数，代码如下：```Dim num As Doublenum = InputBox("请输入一个小数：")```接下来，使用VBA的内置函数Sqr计算这个数的立方根，代码如下：```Dim result As Doubleresult = Sqr(num)```最后，使用MsgBox函数将结果输出到消息框中，代码如下：```MsgBox "这个数的立方根是：" & result```完整代码如下：```Sub CubeRoot() Dim num As Double Dim result As Double num = InputBox("请输入一个小数：") result = Sqr(num) MsgBox "这个数的立方根是：" & resultEnd Sub`感谢您的咨询

，您可以点击我的头像关注我，后续有问题方便再次向我咨询，期待能再次为您服务。祝您；生活愉快，一切顺利！平安喜乐

咨询记录 · 回答于2023-06-16

请用msgbox,inputbox实现:用户输入一个整数,输出整数的四次方

亲，你好！很高兴为您解答，用msgbox,inputbox实现:用户输入一个整数,输出整数的四次方：首先，使用InputBox函数获取用户输入的小数，代码如下：```Dim num As Doublenum = InputBox("请输入一个小数：")```接下来，使用VBA的内置函数Sqr计算这个数的立方根，代码如下：```Dim result As Doubleresult = Sqr(num)```最后，使用MsgBox函数将结果输出到消息框中，代码如下：```MsgBox "这个数的立方根是：" & result```完整代码如下：```Sub CubeRoot() Dim num As Double Dim result As Double num = InputBox("请输入一个小数：") result = Sqr(num) MsgBox "这个数的立方根是：" & resultEnd Sub`感谢您的咨询

，您可以点击我的头像关注我，后续有问题方便再次向我咨询，期待能再次为您服务。祝您；生活愉快，一切顺利！平安喜乐

第二题

请用inputbox和msgbox实现：用户输入人数，如果在八人及以上，则提醒购买团体票，否则提示用户买散客票

private sub from_click()dim a(4) as longdim b as longfor i=1 to 4a(i)=val(inputbox("输入第" & i & "个数"))next ib=a(1)+a(2)+a(3)+a(4)print "sum:" & bprint "average:" & b/4.0end sub

已赞过

评论收起