Private Sub Combo2_click()
Text2.Text = Val(Combo1.Text) * Val(Combo2.Text) * 0.000001
Text2 = Format(Val(Text2), "#0.###")
End Sub
为什么这个代码出来的小数点前面的零没了

Private Sub Text14_Change()
Text15.Text = 100 * (Val(Text14.Text) - Val(Text3.Text)) / Val(Text3.Text) & "%"
Text15 = Format(Val(Text15), "0.000")
End Sub
这段代码在Text15 = Format(Val(Text15), "0.000")处显示类型不正确，而且为什么保留的小数位数也不对？

这个应该没有问题呀，要不然你把源代码贴上来

我把%去掉就都没问题了，也不知道为啥

如果小数点前没有0的话你把这段代码跟在后面：
If Text1.Text > 0 And Text1.Text < 1 Then
Text1 = IIf(Left(Text1.Text, 1) = ".", 0 & Text1.Text, Text1.Text)
End If
If Text1.Text > -1 And Text1.Text < 0 Then
Text1 = "-0" & (Text1.Text * -1)
End If