作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/18 03:22:36
VB编程怎么控制小数点位数又不四舍五入.
我只会有sting来控制,但整数部分经常输入的位数不一致,小数点又不能取.
怎么样才能使小数点只去前三位,而不四舍五入.
VB编程怎么控制小数点位数又不四舍五入.
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,