VB提取各位数字

数字=inputbox（"请输入一个非负整数"）

位数=len(数字）

print "你输入的";数字;"共有";位数;"位"

for 位=1 to 位数

print "第";位;"位数是：";mid（数字,位,1）

next 位

更简单通用的：

for i=1 to len(a)

b=mid(a,i,1)

If isnumeric(b) then

s=val(mid(a,i))

exit for

end if

next

如果只要提取一个数据:

从第一字符读,并比较,如果是数字或""或"-",就留下此后面的部分

后面的部分直接放入Val函数就得到数据

如Val("604<>KOJmmH")de到604

以上就是关于VB提取各位数字全部的内容，包括:VB提取各位数字、VB中如何提取字符串中的部分数字、vb从字符串中提取数字等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！