新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
楼主,还得再设置一个文本框来显示绝对值吧,假设为text2,图中那两个分别为text1,command1
创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都做网站、网站建设、雁江网络推广、成都微信小程序、雁江网络营销、雁江企业策划、雁江品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供雁江建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com
代码:
private
command1.click()
text2=abs(val(text1))
end
代码就中间一行就行了,abs在vb里边就是取绝对值的意思~~~val()是指将()里边的数字字符串转成数值格式~~
1)x+a Mod 3 * (Int(x+y)Mod 2)/4 =
2.5 + 7 Mod 3 *(int(2.5+4.7) Mod 2)/4
=9.5 mod 3*3/4
= 9.5 mod 2
=4
a = InputBox("请输入一个数:", "提示")
If IsNumeric(a) Then
MsgBox a "的绝对值 = " Abs(Val(a))
End If