判断字符的vb代码

❶ VB 判断字符

楼上的写法太勤劳了，一句instr就可以解决的事...
if instr(text1,"#1")>0 then
Msgbox "y"
else
Msgbox "n"
end if

❷ vb程序题 输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应显示。

dim a as string
a=inputbox("请输入一源个字符")
select case a
case "0" to "9"
msgbox "是数字"
case "a" to "z","A" to "Z"
msgbox "是字母"
case else
msgbox "是其它字符"
end select

❸ vb 编程判断输入的字符类型是什么

Private Sub CommandButton1_Click()
Dim myt As String
Dim myret As String
myt = Text1.Text
' asc(0)=48 asc(A)=65 , asc(a)=97
If Asc(myt) >= 97 And Asc(myt) <= 123 Then
myret = "小写"
Else
If Asc(myt) >= 65 And Asc(myt) <= 91 Then
myret = "大写"
Else
If Asc(myt) >= 48 And Asc(myt) <= 58 Then
myret = "数字"
Else
myret = "其他"
End If
End If
End If
Label1.caption = myret
End Sub
供参版考权

❹ VB中如何判断一串字符中包含特定的几个字符

用Instr函数判断

❺ vb 字符串判断

可以用for next 语句做实验
当然一定是生成EXE做 因为vb里调试和实际生成有差别
我试了1 to 100000
应该是第一种快一点
但差别不是很大

❻ vb中怎么判断字符串有没有某个字符

方法一：

InStr 函数

'从字符串"abc"的第一个字符开始以不区分大小写的方式搜索字符串"B"
MsgBoxIIF(Instr(1,"abc","B",vbTextCompare)>0,"有回","没有")

返回答 → 有

方法二：

Like 运算符

MsgBoxIIF("abc"Like"*B*","有","没有")

返回 → 没有

❼ vb中怎么判断一个字符串中包含另一个字符串

1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对专各控件的属Caption等属性进行修改）。

❽ 一个关于vb的程序 判断输入的字符是

把&改成And，把a<=112改成q<=122
......

ElseIf q >= 97 And q <= 122 Then
MsgBox "大写字母专A-Z"
ElseIf q >= 65 And q <= 90 Then
MsgBox "小写属字母a-z"
......

❾ VB 怎么判断一个字符串里面包含了某个字符

InStr([start, ]string1, string2[, compare])

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。

' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)

' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)

' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。

MyPos = Instr(1, SearchString, "W") ' 返回 0。

判断一个字符串里面包含了某个字符,参照最后一个示例,如果返回值是0,说明没有包含

❿ VB中如何用if语句判断某字符串是否以xxx开头

a="00123456"
if mid(a,1,3)="001" then '在a中从第一个字符开始向后取三个字符
print "是以001开头专"
end if

if left(a,3)="001" then a中从左起三属个字符