vb.net除法問題

Dim BH, BL As ArrayList

成都創(chuàng)新互聯(lián)公司主要從事成都做網站、成都網站設計、網頁設計、企業(yè)做網站、公司建網站等業(yè)務。立足成都服務大悟,十載網站建設經驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220

Dim Cal As Integer

BH = New ArrayList

BL = New ArrayList

Dim h, l As Double

For i As Integer = 0 To LSB2.Items.Count - 1

BH.Add(LSB2.Items(i).ToString)

Next

For i As Integer = 0 To LSB1.Items.Count - 1

BL.Add(LSB1.Items(i).ToString)

Next

For I As Integer = 0 To BH.Count - 1

h = CDbl(BH.Item(I))

l = CDbl(BL.Item(I))

If (h = l) Then

Cal = 0

Else

Cal = (highAvg - lowAvg) / (h - l)

End If

LstA.Items.Add(Cal)

Next

關于VB.net取整的問題

double是雙精度 有效數(shù)值位52位 表示成指數(shù)的形式 即指數(shù)11位 即表示成

所以180.89305用2進制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的實際數(shù)值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小數(shù)點后 52位有效值后 等于10進制的180.893049999999998

所及加最后變成了 1808930.99999999998

第一次當然輸出近似值1808931

第二次int函數(shù)去掉了小數(shù)點后的數(shù)int就是只取整數(shù)的部位的不是四舍五入 所以少了1

vb如何除一個數(shù)然后取整？

最簡單的就是200\6

/是除，\是整除

可以直接用函數(shù)來實現(xiàn)：

1、用CInt()函數(shù)的范圍在-32,768 至 32,767，對于小數(shù)部分四舍五入 。

2、用Int（）函數(shù)和Fix（）函數(shù)都會刪除參數(shù)的小數(shù)部份而返回剩下的整數(shù)，不同之處在于，如果參數(shù)為負數(shù)，則Int（）函數(shù)返回小于或等于參數(shù)的第一個負整數(shù)，而Fix（）函數(shù)則會返回大于或等于參數(shù)的第一個負整數(shù)。

擴展資料：

VB常用函數(shù)

1、Time?

返回系統(tǒng)時鐘的當前時間。

2、Date?

返回系統(tǒng)時鐘的當前日期。

3、Now?

返回代表當前日期和時間的編碼值。該函數(shù)經常用作其它系統(tǒng)時鐘函數(shù)的參數(shù)。

4、Hour(Time)?

返回指定時間的小時部分（0到23）。

5、Minute(Time)?

返回指定時間的分鐘部分（0到59）。

6、Second(Time)?

返回指定時間的秒部分（0到59）。

7、Day(Date)?

返回月份中的日期數(shù)（1到31）。

參考資料來源：百度百科- Visual Basic