3个回答
2013-07-13
展开全部
只是数字吗?那可以模仿取数位。个位=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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-13
展开全部
strs=mid(val(text1.text),2,1)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询