7,785
社区成员
发帖
与我相关
我的任务
分享我要限定输入的姓名只能是英文或中文字母打头，这句话应该怎么写！
Dim comp As Boolean
comp = Asc(Mid(Text1.Text, 1, 1)) Like "["32"-"64"]"
上面的这句话有问题！不知道怎么修改！请高手指教
comp = Asc(Mid(Text1.Text, 1, 1)) Like "["32"-"64"]"
上面的这句话有问题！不知道怎么修改！请高手指教
...全文
请发表友善的回复…
发表回复
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
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
- 打赏
- 举报
自己顶以下
