Question

vb中text中第一个数字不能是0

在text文本框中，第一个数字不能为0 ，如果是则自动删除，比如输入“023654”，则自动为23654

Answer 1

Private Sub Text1_Change()
If Mid(Text1.Text, 1, 1) = "0" Then Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1)
End Sub

Answer 2

if 语句知道么
有那个选择的额

Answer 3

用Format函数。

Answer 4

Private Sub Text1_Change()
Text1.Text = Val(Text1.Text)

End Sub