vb.net新手求教如何截取小数的整数部分

[peng803]

如题，比如9/5=1.8,如何截取整数部分的1，如果我写成如下代码的话，就会四舍五入，怎样能不让它四舍五入呢？
dim a as double=9
dim b as double=5
dim c as double=a/b
dim d as integer=c
这样老师四舍五入

[lizhengnan]

用System.Math.Truncate()函数

Dim int As Integer=System.Math.Truncate(a/b)

[haifeng39]

\ 整除
/ 除

[SpeForce]

dim d as double=c 这样d就不会四舍五入了
int(9/5) 强制转换成int类型就会四舍五入了

[jiang_jiajia10]

[Quote=引用 1 楼 lizhengnan 的回复:]
用System.Math.Truncate()函数

Dim int As Integer=System.Math.Truncate(a/b)
[/Quote]
同意

[cnapc]

5\3

[cnapc]

9\5

[cnapc]

当i1 = 9 ,i2 = 5 时,下面的方法好像还快一些 ^-^

i1 = 9
i2 = 5
r = 0
while i1 > i2
r = r +1
i1 = i1 -i2
End While

[xiafan]

[Quote=引用 1 楼 lizhengnan 的回复:]
用System.Math.Truncate()函数

Dim int As Integer=System.Math.Truncate(a/b)
[/Quote]
同意。

[long_0662]

dim a as double=9
dim b as double=5
dim c as double=a/b
dim d as integer=CInt(Mid(CStr(c), 1, InStr(CStr(c), ".")))

[蓝帆·雨轩]

Fix(9/5)

[xldata]

[Quote=引用 1 楼 lizhengnan 的回复:]
用System.Math.Truncate()函数

Dim int As Integer=System.Math.Truncate(a/b)
[/Quote]
正解

[sanji09]

Try
Dim i As Double
i = 9 \ 5
MessageBox.Show(i)
Catch ex As Exception

End Try


弹出 1