UC知道vb高手请帮忙
来源：百度知道 编辑：UC知道 时间：2024/06/05 05:10:10
我在编一个简单的除法计算器时，用了format将textbox中的值格式定为0.0000，如：
Private Sub Command1_Click()
Text3.Text = Format(Text1.Text / Text2.Text, "0.0000")
End Sub
但又发现只能显示小数点后四位了，有什么办法即可以保证小数点前的0显示，又保证小数点后位数随计算出的结果位数变动
比如说：
1/2显示0.5
1/3显示0.33333333333333333333
1/4显示0.25
......
Private Sub Command1_Click()
Text3.Text = Format(Text1.Text / Text2.Text, "0.0000")
End Sub
但又发现只能显示小数点后四位了，有什么办法即可以保证小数点前的0显示，又保证小数点后位数随计算出的结果位数变动
比如说：
1/2显示0.5
1/3显示0.33333333333333333333
1/4显示0.25
......
Private Sub Command1_Click()
If Left(Text3.Text, 1) = "." Then
Text3.Text = "0" & Text3.Text
End If
End Sub
定义变量再计算并填充
dim a,b
a = text1.text
b =text2.text
text3.text = a / b
这样就好
用FormatNumber函数最简单
Text3.Text = FormatNumber(Text1.Text / Text2.Text,,vbTrue)