判斷字元的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中從左起三屬個字元