当前位置:首页 » VB程序题 » 正文

VB程序题:用InputBox 输入一个正实数,用Pring方法在一行上显示出它的平方和平方根、立方和立方根,每个数保留三位小数,其间有间隔。

VB程序题:用InputBox 输入一个正实数,用Pring方法在一行上显示出它的平方和平方根、立方和立方根,每个数保留三位小数,其间有间隔。

解题:先在窗体上画1个按钮,代码如下:
Private Sub Command1_Click()
    shu = InputBox("请输入一个正实数:", "输入")
    If IsNumeric(shu) = False Then
        MsgBox "你输入的数值是:" & shu & " 含有非法数值的字符。"
    ElseIf shu < 0 Then
        MsgBox "你输入的数值是:" & shu & " 请输入一个正实数。"
    Else
        Cls
        Print "输入正实数:" & Str(shu)
        Print "平方:" & Format(shu ^ 2, "0.000")
        Print "平方根:" & Format(Sqr(shu), "0.000")
        Print "立方:" & Format(shu ^ 3, "0.000")
        Print "立方根:" & Format(shu ^ (1 / 3), "0.000")
    End If
End Sub
 
程序运行效果图如下:


Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb86.com/post/62.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号