我要限定输入的姓名只能是英文或中文字母打头,这句话应该怎么写!

cowboy_ls 2003-01-16 02:19:35
Dim comp As Boolean
comp = Asc(Mid(Text1.Text, 1, 1)) Like "["32"-"64"]"
上面的这句话有问题!不知道怎么修改!请高手指教
...全文
20 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
ccbl 2003-01-16
up
回复
FreshAir 2003-01-16
comp = UCase(strConv(Left(Text1.Text,1),vbNarrow)) Like "[A-Z]"
回复
twinking 2003-01-16
客气
回复
cowboy_ls 2003-01-16
谢谢了
回复
twinking 2003-01-16
comp = Asc(left(Text1.Text, 1))>32 and Asc(left(Text1.Text, 1))<64
回复
penitent 2003-01-16
dim comp as integer
comp = Asc(Left(Text1.Text,1))
if comp >=65 and comp <= 90 or comp>=97 and comp<=133 then
'正确

end if
回复
cowboy_ls 2003-01-16
自己顶以下
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7452

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告