您的位置：程序门 -> vb -> 基础类

急求函数

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

急求函数

发表于：2007-06-28 10:23:04 楼主

我手头有这样一张表，里面的数据有数字的，也有像zsa123z这样的数据，又没有这样一种函数，可以判断首位字母是不是数字还是文字。返回值是true 或者 false的。
又要麻烦大家了

发表于：2007-06-28 10:36:201楼得分:0

public function fun（byval s as string) as boolean
dim ch as long
if s= " " then
fun=false
else
ch=asc（left（s,1))
if ch> =&h30 and ch <=&h39 then
fun=true
else
fun=false
endif
endif
end function

发表于：2007-06-28 10:42:482楼得分:0

顶

发表于：2007-06-28 10:43:373楼得分:0

自己写一个即可

发表于：2007-06-28 11:17:174楼得分:0

isnumeric（left（str, 1))

发表于：2007-06-29 09:01:045楼得分:0

楼上的这个很实用，就一个语句。顶

发表于：2007-06-29 09:05:446楼得分:0

isnumeric（）判断是否为数字函数

下一篇：combobox如何初始化下拉菜单
上一篇：问个简单的问题:f10为何作不了快捷键?

其他资讯