UC知道vb6.0 除法运算结果不显示小数点前的0？
来源：百度知道 编辑：UC知道 时间：2024/06/14 05:18:59
Private Sub Command1_Click()
Dim a, b, c As Double
a = Text1.Text
b = Text2.Text
If b <> 0 Then
c = a / b
Text3 = c
Else
MsgBox "错误"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
结果怎样才显示小数点前的0
请详细说明
前两位说的不知加到那一句后
我试着加到formload和command1click后都是没有效果
有空你们试一试
第三位 我刚学vb不太明白你说的意思
谁有自己试过的可行的我用的是vb6.0
先谢了
Dim a, b, c As Double
a = Text1.Text
b = Text2.Text
If b <> 0 Then
c = a / b
Text3 = c
Else
MsgBox "错误"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
结果怎样才显示小数点前的0
请详细说明
前两位说的不知加到那一句后
我试着加到formload和command1click后都是没有效果
有空你们试一试
第三位 我刚学vb不太明白你说的意思
谁有自己试过的可行的我用的是vb6.0
先谢了
把Text3 = c改成Text3.text = format(c,"0.####" )
需要利用字符串处理规则。包括0.x的小数，非十进制的数（八进制&o和十六进制&h）等等。
Text3 = format(c,"0." & string(15,"#"))