vb如何读取textbox里的数字中的一个

Question

请教下比如我想在text里面输入123我想要读取2这个数怎么编

Answer 1

示例代码如下：

x=mid(textbox,2,1)'利用mid函数，取textbox中字符串的自第二位起一位
xx=val(x)'利用val函数，将文本x转换为数值，并赋予xx
xx=2*xx'xx做乘法运算
msgbox xx'显示xx

VB中利用mid函数可以随意取textbox中的字符串，然后用val函数，可将数字字符串转换为数字进行计算。

Answer 2

只是数字吗？那可以模仿取数位。个位=Val(Left(CStr(Val(Right(CStr(Text1.Text), 1))), 1)) 十位=Val(Left(CStr(Val(Right(CStr(Text1.Text), 2))), 1)) ......自右往左第e位=Val(Left(CStr(Val(Right(CStr(Text1.Text), e))), 1)) 如果，text1.text=123445679天气不错805Print Val(Left(CStr(Val(Right(CStr(Text1.Text), 15))), 1)) 输出的将是2Print Val(Left(CStr(Val(Right(CStr(Text1.Text), 1))), 1)) 输出的将是5

Answer 3

strs=mid(val(text1.text),2,1)