vb中Text中第一个数字0

显示全部楼层 · 2012-11-5 11:18:25

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

千问 · 2012-11-5 11:18:25

‘可以解决你的问题Private Sub Command1_Click()Dim s As IntegerDim t As Strings = Len(Text1.Text) - Len(CStr(Val(Text1.Text)))For i = 1 To s
t = t & "0"NextText1.Text = t ...

千问 · 2012-11-5 11:18:25

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

千问 · 2012-11-5 11:18:25

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

千问 · 2012-11-5 11:18:25

right("0000000000"+str,11)...