vb文本框取值问题

Question

有段代码是这样的,dim bianh as stringbianh= val(text1.text)debug.print bianh我在文本框中输入 01010002
print出来的结果为   1010002
前面的0就没有了....也试过强制转换,仍然不行,这个该怎么写呀?

Answer 1

我也是声明的string啊,又不是数值类型.

Answer 2

实际上你这段程序不严谨，原因：
1、bianh是个String类型，而你却将Val转换后的值赋值给它
2、Val转换后的数据是数值类型，具体类型的看转换后的数据，但可以肯定不会是String类型，也就是说，Val（"01010002"）所得到的肯定是：1010002，而非你想要的：01010002
3、再转换后，你在将一个数值类型的数据赋给一个字符串类型的变量，那么系统会自动给你进行类转换一次。
也就是说：你的:bianh=Val(Text1.Text)相当于：bianh=Cstr(Val(Text1.Text))

Answer 3

你val之后已经把那0抹掉了，根本就不需要val，直接赋值字符串就行

Answer 4

bianh= val(text1.text)
先取text1的值,
然后val转换,
然后看了看,bianh是个字符串...
 恩,把val的数值结果转换成字符串
 恩,赋值.