1樓：
str1="1235,12,23,34,123,21,56,74,1232"
str2="12"
str1 = inputbox("請輸入原始字元竄str1",,str1)
str2 = inputbox("請輸入收索字元竄str2",,str2)
b = 0
aa=split(str1,",")
for i = 1 to ubound(aa)
if aa(i) = str2 then
b = b+1
end if
next
if b > 0 then
msgbox str2 & " 有 " & b & " 個存在" & str1,64,"提示"
elseif b= 0 then
msgbox str2 & " 不包含在 " & str1 ,64,"提示"
end if
2樓：匿名使用者
提供個思路，可以考慮用split函式分解成陣列哦private sub command1_click()dim str1 as string
dim str2 as string
dim v as variant
str1 = "1235,12,23,34,123,21,56,74,1232"
v = split(str1, ",")
str2 = 12
for i = lbound(v) to ubound(v)if v(i) = str2 then
msgbox v(i)
end if
next i
end sub
vb中怎麼判斷一個字串中包含另一個字串
3樓：肥仙女
1、啟動vb新建工程1，在form1的合適位置畫出3個label框、2個text框以及1個command按鈕（可以預先對各控制元件的caption等屬性進行修改）。
2、雙擊「統計」（即command1）按鈕，在彈出的**框中編寫如下**：
privatesubcommand1_click()dimxasstringa=text1.textb=text2.textn=0fori=1tolen(a)x=mid(a,i,1)
if x = b then n = n + 1 next i label3.caption = "字元" & b & "在字串」" & a & "「中" & vbcrlf & "共出現了" & n & "次。"end sub
這樣便達到了檢索所有字元、統計某個字元出現次數的需求了。
3、同理，對text2進行設定，當游標停留在text2中，按下回車鍵時，游標將跳到command上，方便操作：
privatesubtext2_keypress(keyasciiasinteger)ifkeyascii=13thencommand1.setfocusendsub
4、最後點選執行即可。
4樓：匿名使用者
instr 函式
返回 variant (long)，指定一字串在另一字串中最先出現的位置。
instr([start, ]string1, string2[, compare])
instr 函式的語法具有下面的引數：
start 可選引數。為數值表示式，設定每次搜尋的起點。如果省略，將從第一個字元的位置開始。如果指定了 compare 引數，則一定要有 start 引數。
string1 必要引數。接受搜尋的字串表示式。
string2 必要引數。被搜尋的字串表示式。
compare可選引數。指定字串比較。如果省略 compare，option compare 的設定將決定比較的型別。
例如如下
sub tttt()
a = "abvsdf"
b = "z"
c = instr(a, b)
if c > 0 then
msgbox "a包含b"
else
msgbox "a不包含b"
end if
end sub
測試結果
5樓：青花惡魔
最佳答案用得著那麼麻煩嗎，你們都忘了instr()函式了？
if instr("1234","23") > 0 then msgbox("包含")
vb.net, 如何判斷一個字串包含另一個字串？
6樓：匿名使用者
很簡單，用字串查詢函式就可以實現了。
當在strb查詢到stra字串時，返回肯定是非0的數，值就是true，找不到為0或者-1，值就是flase
比如：dim stra as string = "time is limited"
dim strb as string = "time"
dim stu as boolean= instr(stra, strb)
這執行段**，stu值就是true了。
我覺得這樣最簡單有效。
vb6如何判斷一個字串是否以另一個字串結尾？
7樓：匿名使用者
a="123456"
b="4885862123456"
if right(b,len(a))=a thenmsgbox "b的結尾等於a"
end if
8樓：匿名使用者
假如，a="123456"，b="4885862123456"
if right(b,6)=a then
msgbox "b的結尾等於a"
end if
vb擷取字串函式，vb程式設計怎麼擷取字串？
文字框的值可以用變數代替 四個文字框 t0身份證資訊,t1取得 省前字元,t2取 省和市之間字元,t3取 市到縣之間字元 主要是計算 省市縣在不定長字串中的位置 一取 省 前字元 t1.value mid t0.value,1,instr t0.value,省 1 取省到市 之間字元到t2 t2.v...
在VB中，字串為零長度和字串為Null有什麼區別
這兩個是完全不同的，實際使用也完全不同。字串為 它還是字串，只不過是一種特殊狀態 零長度，類似於c中的 0 字串為null，其實這個字串已經不是字串了，更加確切的說，這個字串的變數的值已經無效了。對三樓 murderor無語，不懂可以，但不要誤導人。null的實際使用與零字串差別太大了 任何與nul...
求字串是否為迴文編寫程式，判斷字串是否為“迴文
include include include int main for n 1 n lenth 1 n 分解所輸入數除最高位的每一位數 a lenth num pow 10,lenth 1 讀取最高位 printf a d d n lenth,a lenth 列印最高位 以下是判斷所輸入數字是否為...