Cint 小数部分超过0.5的部分都进位,不分正负
例如:Cint(2.51)=3 Cint(-2.51)=-3
小于等于0.5的部分都舍去,不分正负
例如:Cint(2.49)=2 Cint(-2.49)=-2
Cint(2.5)=2 Cint(-2.5)=-2
Int取到的是小于这个数的最大整数
例如:
Int(2.49)=2 Int(2.50)=2 Int(2.51)=2
Int(-2.49)=-3 Int(-2.50)=-3 Int(-2.51)=-3
Round 确定好保留的位数后,后面的直接四舍五入
例如:
Round(2.459,2)=2.46
Round(2.454,2)=2.45
Round(-2.459)=-2.46
Round(-2.454,2)=-2.45
Fix省略小数位,即直接截走小数位
例如
Fix(2.51)=2 Fix(2.49)=2
Fix(-2.49)=-2 Fix(-2.51)=-2
在实际操作中验证:
Private Sub Command1_Click()
List1.AddItem "Cint(2.49)=" & CStr(CInt(2.49))
List1.AddItem "Cint(-2.49)=" & CStr(CInt(-2.49))
List1.AddItem "Cint(2.50)=" & CStr(CInt(2.5))
List1.AddItem "Cint(-2.50)=" & CStr(CInt(-2.5))
List1.AddItem "Cint(2.12)=" & CStr(CInt(2.12))
List1.AddItem "Cint(-2.12)=" & CStr(CInt(-2.12))
List1.AddItem "Cint(2.51)=" & CStr(CInt(2.51))
List1.AddItem "Cint(-2.51)=" & CStr(CInt(-2.51))
List1.AddItem " "
List1.AddItem "Int(2.49)=" & CStr(Int(2.49))
List1.AddItem "Int(-2.49)=" & CStr(Int(-2.49))
List1.AddItem "Int(2.50)=" & CStr(Int(2.5))
List1.AddItem "Int(-2.50)=" & CStr(Int(-2.5))
List1.AddItem "Int(2.12)=" & CStr(Int(2.12))
List1.AddItem "Int(-2.12)=" & CStr(Int(-2.12))
List1.AddItem "Int(2.51)=" & CStr(Int(2.51))
List1.AddItem "Int(-2.51)=" & CStr(Int(-2.51))
List1.AddItem "Int(-0.51)=" & CStr(Int(-0.51))
List1.AddItem "Int(0.51)=" & CStr(Int(0.51))
List1.AddItem " "
List1.AddItem "Round(2.459,2)=" & CStr(Round(2.459, 2))
List1.AddItem "Round(-2.459,2)=" & CStr(Round(-2.459, 2))
List1.AddItem "Round(2.454,2)=" & CStr(Round(2.454, 2))
List1.AddItem "Round(-2.454,2)=" & CStr(Round(-2.454, 2))
List1.AddItem " "
List1.AddItem "fix(2.45)=" & CStr(Fix(2.45))
List1.AddItem "fix(2.51)=" & CStr(Fix(2.51))
List1.AddItem "fix(-2.49)=" & CStr(Fix(-2.49))
List1.AddItem "fix(-2.51)=" & CStr(Fix(-2.51))
End Sub
分享到:
相关推荐
Fix(number) 和 Int(number) 都是返回数字的整数部分。 number 为正数时,二者返回值一样。比如:Fix(3.6)=3,Int(3.6)=3。...CInt(number) 利用四舍五入的方式删除小数部分。 如果 Round 的第二个参数省略,那么 Round
Chr x 返回以x为ASCII码的字符 如:Chr 97 得”a”Asc x 得到字符的ASCII码 如:Csc “A” 得65Cint x 将数值型数据x的小数部分四舍五入取整Str x 将数值数据x转换成字符串 如:Str 67 4 得”67 4”Val x 将字符串中的...
CInt CLng CSng CStr Hex Oct FormatCurrency FormatDateTime FormatNumber FormatPercent Abs Atn Cos Exp Hex Int Fix Log Oct Rnd Sgn Sin Sqr Tan Array Filter IsArray Join LBound Split UBound InStr ...
Cint() Cstr() Cbool() Cdate() Cdbl() Chr() Asc() Isempty() 判断是否为nothing Lcase() 转换为小写 Ucase() Len() 获取字符串的长度 Trim() 去掉字符串两边的空格 Ltrim() 左边 Rtrim() 右边 mid(str,start,...
VBScript常用函数大全 Abs (数值) Array (以逗点分隔的数组元素) Asc (字符串) CBool(表达式) CDate (日期表达式) CDbl(表达式) Chr ( ANSI 字码) CInt (表达式) CLng ...
- Fix BIOS INT13 function 08 when the number of cylinders on the disk = 1 - I/O Devices - USB HP DeskJet 920C printer device emulation (Ben Lunt) - Misc - Updated Bochs TESTFORM to version 0.5 -...
CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体...
CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体...
CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体...
VBScript 语言参考 特性信息 字母顺序关健字列表 常数 ...通过对信息进行分组,可以使您方便地研究 Visual Basic 脚本的各个主题。...如果只需要查看某个主题(例如对象),则有对该主题进行详细说明的章节...CInt ...
CInt 函数 返回已被转换为整数子类型的变体的表达式。 Class 对象 提供对已创建的类的事件的访问。 Class 语句 声明类名 Clear 方法 清除 Err 对象的所有属性设置。 CLng 函数 返回已被转换为 Long 子类型的变体...
Round(Number,Decimal places) 约进 sgn(num) 符号 ^ 幂 - 负数 *, / 乘法和除法 \ 整除 Mod 模 +, - 加法和减法 & 字符串连接 = 相等 例:(8*125=4*250)=True <> 不等 小于 > 大于 小于或等于 >= ...