Question

怎么用VB做求绝对值

代码不要太长

Answer 1

直接用ABS函数好了。

abs函数是一种用于求绝对值的LV函数。因为abs（x）在0点的导数是不存在的，而对于x为复数 abs（x）是不解析的，所以他的取值只能是正数或者负数。这个函数是matlab调用maple内核 所以不能直接在matlab里来进行数值计算 否则matlab会提示abs使用错误。

ABS函数语法：

ABS(number)

ABS 函数语法具有下列参数：

Number 必需。需要计算其绝对值的实数。

扩展资料

VB编程语言基础知识点

1、VB的语言特点

可视化开发环境:界面设计所见所得；面向对象程序设计：程序和数据封装作为一个对象，在工具箱里面的都是一个一个的类，比如commandbutton类，当你把它从工具箱拖出来已经，它就被实例化成了一个对象，名称叫command1，如果你拖了2个command，就是2个不同的对象。

事件驱动编程：VB程序没有明显的入口和出口，都在等待用户或者系统或者代码触发某个事件，然后执行事件对应的任务。

2、VB的工作模式：

设计模式，运行模式，中断模式；程序在运行模式是没有办法修改代码和设计界面窗口的。

(3) VB的文件类型

窗体文件frm；程序模块文件bas；类模块文件cls；工程文件vbp；工程组文件vbg；资源文件res；.保存工程的时候应该同时保存工程文件vbp和窗体文件frm。

Answer 2

楼主，还得再设置一个文本框来显示绝对值吧，假设为text2，图中那两个分别为text1，command1
代码：
private command1.click()
text2=abs(val(text1))
end
代码就中间一行就行了，abs在vb里边就是取绝对值的意思~~~val（）是指将（）里边的数字字符串转成数值格式~~

Answer 3

Public Function MyABS( X as Double) as Double
MyABS=X
if X< 0 then MyABS= - X
End Function

Answer 4

me.Caption =ABS(Val(Text1.Text))

Answer 5

Private Sub Command1_Click()
MsgBox Abs(Text1.Text)
End Sub