Question

VB编程怎么控制小数点位数又不四舍五入。

我只会有sting来控制，但整数部分经常输入的位数不一致，小数点又不能取。
怎么样才能使小数点只去前三位，而不四舍五入。。

Answer 1

Dim s As String, pos As Integer
Dim v As Double, a As Double, b As Double
s = "123.4567" '字符串的123.4567
v = Val(s) '数值123.4567
'根据字符串只截取三位小数，第四位不四舍五入
pos = InStr(s, ".")
a = Val(Left(s, pos + 3)) '从左边取到小数点位置+3个字符，转换为数值
b = Int(v * 1000) / 1000 '把123.4567扩大1000倍后取整为123456.7再除1000
Print a, b

Answer 2

round(expression
[,numdecimalplaces])
返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。
expression
必需的。要进行四舍五入运算的数值表达式。
numdecimalplaces
可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则round函数返回整数。

Answer 3

给你个简单的吧
select left(cast(1.7455 as varchar(50)) , charindex('.',cast(1.7455 as varchar(50))) + 2)

Answer 4

Private Sub Command1_Click()
Text1 = IIf(InStr(1, Text1, "."), Left(Text1, InStr(1, Text1, ".") + 3), Text1)

End Sub