Question

vb中Text中第一个数字0

01088888888加1，得到01088888889，在Text中却显示1088888889.，怎么才能正确显示01088888889
但还有问题，如果停止了11位数的01088888888加1，变作10位的0765123456或12位的076512345678，也是加1的，这样怎么做？

Answer 1

你要把结果格式化了，比如用format("结果",#00000000000#),或者你可以查下其它格式化函数，应该是可以完成的

Answer 2

‘可以解决你的问题
Private Sub Command1_Click()
Dim s As Integer
Dim t As String
s = Len(Text1.Text) - Len(CStr(Val(Text1.Text)))
For i = 1 To s
t = t & "0"
Next
Text1.Text = t & (Val(Text1.Text) + 1)
End Sub
Private Sub Form_Load()
Text1.Text = "01088888888"
End Sub

Answer 3

用 format 你前面要保留几位0就多加几位。例如：
Text1 = Format(Val(Text1) + 1, "0.0000000000")
看你要保留几位小数，再自己添加！！

Answer 4

Text1 = Format(Val(Text1) + 1, "00000000000")

追问

你的方法很好。但还有问题，如果停止了11位数的01088888888加1，变作10位的0765123456或12位的076512345678，也是加1的，这样怎么做？

追答

你的意思说一定要以"0"开头？那就这样：
Text1 = "0" & Cstr(Val(Text1) + 1)

Answer 5

right("0000000000"+str,11)

追问

不懂怎么用。能不能给出完整代码？

追答

str是你要显示的字符串
text1=right("0000000000"+str,11) 这个式子实现了高位补零 总共显示了11位