1樓：匿名使用者
vba中陣列用arr（）表示，字串可通過inputbox來手工輸入，
判斷語句為for..if..then..next，舉例如下
sub tst()
dim arr(1 to 10)
dim i%, p as string
p = inputbox("tst")
for i = 1 to 10
arr(i) = i & "個"
if p = arr(i) then msgbox inext
end sub
2樓：匿名使用者
sub zz()
s = "abc"
arr = array("cyb", "dbv", "ero", "eu", "fxf", "gbb", "jyn", "udn", "uup", "fxa", "fxb", "fxc", "fxe", "fxy")
if ubound(filter(arr, s)) > -1 then
msgbox "等於"
else
msgbox "不等於"
end if
end sub
3樓：匿名使用者
以下是可以直接執行的**，請試用。
需要注意的是，array函式給arr陣列賦值後，arr陣列的下界是0，而不是1，可以用lbound(arr)檢測。如果在for...next迴圈中從1開始迴圈，當所要查詢的字元正好是arr(0)時，則會漏掉。
相應的，如果發現有字元匹配，則陣列中應該是第i+1個元素與目標字串匹配。
不知以上的說明是否清楚，希望對你有所幫助。
sub stringmatch()
dim arr as variant
dim i as integer, s as stringdim matchlabel as booleanmatchlabel = false
s = "abc"
arr = array("cyb", "dbv", "ero", "eu", "fxf", "gbb", "jyn", "udn", "uup", "fxa", "fxb", "fxc", "fxe", "fxy")
for i = lbound(arr) to ubound(arr)if arr(i) = "abc" thenmsgbox "陣列arr中第" & i+1 & "個元素等於" & s
matchlabel = true
end if
next i
if matchlabel = false thenmsgbox "陣列arr中沒有元素等於" & send if
end sub
4樓：善良的豬頭
j=false
for i=1 to ubond(arr)if strint=arr(i) then msgbox "string =" & string & "在arr的" & i & "位置" :j=true:exit for
next
excel,vba中，如何判斷變數是否包含特定字串
5樓：匿名使用者
vba 中可以使bai用 這兩個函式du 函式啊……也可以直接使用zhi 另外一種 like 函式…dao…如：if a like "*aa*" thenmsgbox "a中有版aa 這個
字串"
else
msgbox "a中沒權有aa 這個字串"
end if
或者 使用 instr 這個函式計算 也可以……
6樓：匿名使用者
if instr(1,a,"aa") >0 thenmsgbox("a 包含 'aa'")
else
msgbox("a 不包含 'aa'")
end if
VB分割字串，VB字串從指定字串分割
汗.split函式是可以指定拆分次數的.在分隔符後面指定拆分成2份就行了.樓上的竟然搞那麼複雜 debug.print split str,2 strname as string,paramarray intscores as variant dim inti,k as integerdim sub...
JS判斷字串變數是否含有某個字串的方法
var str a var strs abadg if strs.indexof str 0 else js判斷字串變數是否含有某個字串的實現方法 js判斷字串變數是否含有某個字串的實現方法 使用indexof,例如 varcts bbltext if cts.indexof text 0 php中...
任意輸入字元組成字串，對該字串中的字元按ASCII碼值升序排列後輸出，程式設計實現此功能
在手機知道中已有 知道君 正確的回答，電腦中為何看不見呢 public class form1 不限制輸入的字元個數 private sub button1 click byval sender as system.object,byval e as system.eventargs handles...