扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
绝对值函数。
公司主营业务：做网站、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出青山免费做网站回馈大家。
格式：Abs(；数值表达式)
功能：求表达式绝对值
说明：函数返回值类型与数值表达式的数据类型相同
例如：Abs(-3.7），其值为3.7。
Dim A(1 To 5) As Integer
Private Sub Command1_Click()
For I = 1 To 5
A(I) = Val(InputBox("请输入第" I "个数(范围-32768~32767):"))
Next
Call examp
End Sub
Sub examp()
For I = 1 To 5
Print A(I) "--" Abs(A(I))
Next
End Sub
楼主，还得再设置一个文本框来显示绝对值吧，假设为text2，图中那两个分别为text1，command1
代码：
private
command1.click()
text2=abs(val(text1))
end
代码就中间一行就行了，abs在vb里边就是取绝对值的意思~~~val（）是指将（）里边的数字字符串转成数值格式~~
C中abs()
abs函数：取括号内的绝对值
basic中也有对应的函数
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网