从品牌网站建设到网络营销策划,从策略到执行的一站式服务
绝对值函数。
公司主营业务:做网站、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出青山免费做网站回馈大家。
格式: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中也有对应的函数
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图