matlab输入一个正的实数x,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版) (龚沛曾等编)课后实验源码

来源：济亨网