从右向左依次取数,在线等待!

jumay 2007-12-10 04:41:17
前个贴子问错了,改为从右向左取数,用VB编程,取其中任何有一组动态数字,从右向左,取第三位、第四位、第五位.............第N位,请问VB代码如何写
...全文
244 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
jumay 2007-12-11
  • 打赏
  • 举报
回复
还是没有达到我想要的结果,如果text9.text=getNumber("2647.35",9),不够位时,text9.text=0,我想要的结果是不够位时,text9.text=“”。谢谢上面的兄弟,再帮我看看
vbman2003 2007-12-11
  • 打赏
  • 举报
回复
晕死,总出错:



function getNumber(byval s as string,byval n as integer) as string
if n>len(s) then
getNumber=vbnullstring
exit function
else
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=mid(s,n,1)
end if
end function

vbman2003 2007-12-11
  • 打赏
  • 举报
回复
还是没有达到我想要的结果,如果text9.text=getNumber("2647.35",9),不够位时,text9.text=0,我想要的结果是不够位时,text9.text=“”。谢谢上面的兄弟,再帮我看看
------------------------------------------------------------


function getNumber(byval s as string,byval n as integer) as string
if n>len(text1) then
getNumber=vbnullstring
exit function
else
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=mid(s,n,1)
end if
end function


of123 2007-12-11
  • 打赏
  • 举报
回复
Text0 = "2647.35"

Dim strTmp As String

strTmp = Right(Space(9) & Text0, 9)
Text1 = Right(strTmp, 1)
Text2 = Mid(strTmp, 8, 1)
Text3 = Mid(strTmp, 7, 1)
Text4 = Mid(strTmp, 6, 1)
Text5 = Mid(strTmp, 5, 1)
Text6 = Mid(strTmp, 4, 1)
Text7 = Mid(strTmp, 3, 1)
Text8 = Mid(strTmp, 2, 1)
Text9 = Left(strTmp, 1)
vbman2003 2007-12-10
  • 打赏
  • 举报
回复

晕死,还有错:

function getNumber(byval s as string,byval n as integer) as integer
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=val(mid(s,n,1))
end function

text1=getNumber("2647.35",1) '右边第一位


vbman2003 2007-12-10
  • 打赏
  • 举报
回复
急着下班了,上面写乱了:


function getNumber(byval s as string,byval n as integer) as integer
's 原文本 n右向左数第n位
s=strreverse(s)
getNumber=val(mid(s,n,1))
end function

text1=getNumber(1)



vbman2003 2007-12-10
  • 打赏
  • 举报
回复

function getNumber(byval s as string,byval n as integer) as integer
's 原文本 n右向左数第n位
dim i as integer
dim tmp() as integer
redim tmp(1 to len(s))
s=strReverse(s)
for i=1 to len(s)
tmp(i)=val(mid(s,i,1))
next
getNumber=tmp(n)
end function

text1=getNumber(1)

jumay 2007-12-10
  • 打赏
  • 举报
回复
text7.text=2
jumay 2007-12-10
  • 打赏
  • 举报
回复
我的意思是一个数字文本(text.text=2647.35),没有固定位数,下次运行又会变为另一个数,最后得出结果是text1.text=5,text2.text=3,text3.text=".",text4.text=7,text5.text=4,text6.text=6,text7.text=8
ZOU_SEAFARER 2007-12-10
  • 打赏
  • 举报
回复
不回答了!
asa5880 2007-12-10
  • 打赏
  • 举报
回复
更改:


动态数字为Dim dn as Long

第N位为CInt(Mid(CStr(dn),Len(CStr(dn))- N + 1,1))

不知道是不是你要的那个
asa5880 2007-12-10
  • 打赏
  • 举报
回复
动态数字为Dim dn as Long

第N位为CInt(Mid(CStr(dn),CStr(dn)- N + 1,1))

不知道是不是你要的那个

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧