VB初学者请教个问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 00:12:48
Private Sub Command1_Click()
Text1.Text = 65.1 - 65
End Sub
为什么计算出的结果是9.99999999999943E-02呢？？不是应该是0.1吗

这是因为输出的结果小于1时，VB自动把它输出为指数形式，你把它格式化一下就可以了
Private Sub Command1_Click()
Text1.Text = Format(75.1 - 75, "0.0")
End Sub

使用变量
a=65.1
b=65
text1.text=a-b
或指定格式

text1.text= FormatNumber(Text1.Text, 1) '保留一位

text1.text= Round(Text1.Text, 1) ‘四舍五入保留一位

给一个简单的方法
定义数值类型为Currency
然后根据情况定义
Private Sub Command1_Click()
Dim a, b
a = 65.1
b = 65
Text1.Text = Format(a - b, "0.0000")
End Sub
需要运算到小数点后多少位就改"0.0000"
的小数位数

注意:存在小数点 一般的运算都会默认为:Double运算模式
可以用FORMAT(运算代码,"格式")