VB中小数怎么取整？

vb取整数部分取小数部分代码~

Option ExplicitPrivate Type qx zs As Long xs As SingleEnd TypePrivate Sub Command1_Click() Call xs(100.365)End SubFunction xs(a As String) Dim i As Integer, xx As qx i = InStr(1, a, ".") xx.xs = Mid(a, i, Len(a) - i + 1) xx.zs = Mid(a, 1, i - 1) Print a + " 整数部分" + CStr(xx.zs) + "小数部分" + CStr(xx.xs)End Function

Private Sub Command1_Click()
Dim b(1 To 6) As String, myBstr(1 To 6) As String, myOutput(1 To 6) As String, myTempStr As String, myData As Long, myResult As String, a As Integer, i As Integer, j As Integer, k As Integer
'Open App.Path & "\3d.txt" For Input As #1
'读入a值，应该不难吧
'Close
myData = 250663235: a = 789 'a值根据从文件读入的值变化
myResult = Replace(StrReverse(Format(myData / a, "0.000000")), ".", "")
For i = 1 To 6
b(i) = Left(myResult, 1)
myResult = Replace(myResult, b(i), "")
Next
myBstr(1) = b(1)
For i = 2 To 6
myBstr(i) = myBstr(i - 1) & b(i)
Next
For i = 0 To 999
For j = 1 To 3
myTempStr = Mid(Format(i, "000"), j, 1)
For k = 1 To 6
If InStr(1, myBstr(k), myTempStr) > 0 Then myOutput(k) = myOutput(k) & IIf(InStr(1, myOutput(k), Format(i, "000")) > 0, "", Format(i, "000") & " ")
Next
Next
Next
For i = 1 To 6
Open App.Path & "\" & a & "-" & myBstr(i) & ".txt" For Output As #1
Print #1, myOutput(i)
Close
Next
MsgBox "数据处理完毕"
End Sub

有两个函数：Int 和 Fix。
Int 定义为返回不大于给定参数的最大整数值，如：
Int(3.9) = 3
Int(3.1) = 3
Int(3) = 3
Int(0) = 0
Int(-3) = -3
Int(-3.1) = -4
Int(-3.9) = -4

Fix 又称“截尾”函数。
即简单保留整数部分，如：
Fix(3.9) = 3
Fix(-3.9) = -3
如果需要“四舍五入”，则得巧妙利用 Int 函数：
Int(x + 0.5) 表示四舍五入到个位；
Int(x * 100 + 0.5) * 0.01 表示四舍五入到百分位（小数点后第二位）

vb中int(x)是取“不大于x的最大整数”，所以，int(-3.9)=-4

int(-3.9)=-3;

对于大于0的数，如int(5.4)=5

反之，如int(-4.3)=-4

int就是取不大于所求数的整数，int(-3.9)=-4 FIX()是取整的函数

在vb中b=int(a)，则b总是要比a要小。如int(3.9)=3<3.9, int(-3.1)= -4<-3.1
她的意义就是去掉多余的部分。

---

石家庄市17811664793： VB中小数怎么取整? - ？
笃茗杞菊： 有两个函数:Int 和 Fix. Int 定义为返回不大于给定参数的最大整数值,如: Int(3.9) = 3 Int(3.1) = 3 Int(3) = 3 Int(0) = 0 Int(-3) = -3 Int(-3.1) = -4 Int(-3.9) = -4Fix 又称“截尾”函数. 即简单保留整数部分,如: Fix(3.9) = 3 Fix(-3.9) = -3 如果需要“四舍五入”,则得巧妙利用 Int 函数: Int(x + 0.5) 表示四舍五入到个位; Int(x * 100 + 0.5) * 0.01 表示四舍五入到百分位(小数点后第二位)

石家庄市17811664793： VB中如何从小数点后取需要的整数 - ？
笃茗杞菊： Private Sub Command1_Click() Dim b(1 To 6) As String, myBstr(1 To 6) As String, myOutput(1 To 6) As String, myTempStr As String, myData As Long, myResult As String, a As Integer, i As Integer, j As Integer, k As Integer'Open App.Path & ＂\3d...

石家庄市17811664793： vb的小数点怎么处理? - ？
笃茗杞菊： 可以使用单精度或双精度数计算.可以使用format()或formatnumber()来处理小数位.可以使用round()函数来保留小数位.可以使用int()函数来取整.

石家庄市17811664793： vb 把小数四舍五入成整数用什么语句啊 比如说4.56变成5 .把4.4变成4 - ？
笃茗杞菊： int(4.56 + 0.5) int(4.4 + 0.5) 加0.5然后用int()取整,比round(x,0)好用.

石家庄市17811664793： 用VB计算时得到的变量是小数时如何舍取? - ？
笃茗杞菊： FormatNumber()函数 FormatNumber(498.8573945,2) 输出498.86

石家庄市17811664793： vb中 mod函数左右的小数是怎么处理的 如2.5 mod2的结果是? - ？
笃茗杞菊： VB6中Mod 运算符功能是两数相除求余.如果两数中带小数,Mod 会先四舍六入取整,再按整数求余,余数带小数的话只取整数部分.注意,如果有书说四舍五入,是错的.在 VB6 用的是所谓银行家算法,是四舍六入:小数部分比 0.5 小就舍(例如0.4,0.49999),比 0.5 大就进(例如0.6,0.500001),刚好是 0.5 可能舍可能进,如果小数点前面是偶数就舍(例如2.5 得 2),是奇数就进(例如3.5 得 4).Mod 运算符在VB.NET中有改动,余数可以带小数.以上资料来自:http://tieba.baidu.com/p/2436311700 所以2.5 mod 2结果是0

石家庄市17811664793： vb如何让数字只要有小数位就进一变为整数 - ？
笃茗杞菊： 添加5261一个command1 一个text1Private Sub Command1_Click() a = InStr(Text1.Text, ＂.＂) '计算4102“.”在text1中的位置 If a <> 0 Then '如果存在小数1653点 If Val(Text1.Text - Left(Text1.Text, a)) <> 0 Then '小数点后不为0 Text1.Text = Int(Text1.Text) + 1 'int函数返回回不大于text1的最大整数答 End If End If End Sub

石家庄市17811664793： VB关于\取整符号对于小数的取值问题 - ？
笃茗杞菊： 先取四舍五入的整数,在运算

石家庄市17811664793： 如何vb 取小数点后一位的值 - ？
笃茗杞菊： 方法1:先取10倍后小数,再取整,再与10求余数,得到小数点后一位 代码: Dim a As Double a = 3.1415926 MsgBox ＂小数点后一位为:＂ & Str(Int(a * 10) Mod 10), 0, ＂提示＂ 方法2:先将小数用Format转成只有一位小数字符,然后用...

石家庄市17811664793： 在VB6.0中的保留整数问题在VB6.0中,怎样把一个两位小数保留整数,但若小数部分小于等于0.50要舍去小数部分,大于等于0.51要进位, - ？
笃茗杞菊：[答案] 1. 如果小数部分等于 0.505 呢?正数负数有区别吗? 2. 上面 zx001z 用 Round 函数是错的,VB 里 Round 函数不是四舍五入,是四舍六入!