絕對值函數。
公司主營業(yè)務:做網站、網站制作、移動網站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現互聯網宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯公司推出青山免費做網站回饋大家。
格式: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中也有對應的函數