1樓：肥仙女
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、最後點選執行即可。
2樓：匿名使用者
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
測試結果
3樓：青花惡魔
最佳答案用得著那麼麻煩嗎，你們都忘了instr()函式了？
if instr("1234","23") > 0 then msgbox("包含")
vb6中怎樣判斷字串中是否包含某個字元
4樓：匿名使用者
函式的語法：
instr([start, ]string1, string2[, compare])
這個函式需要的的引數是起始位置、主體字串、要查詢的字串；compare是可選引數。指定字串比較。此compare引數是可以省略的，也可以是 0, 1或 2。
指定0（預設）做二進位制比較。指定1做不區分大小寫的文字比較。
例如:我們要查詢在字串「abcdef」中是否存在「j」並返回其位置，則使用下面的語句就可以實現：
pos=instr(1,"abcdef","j")
VB從右邊擷取字串，vb 中如何從字串的右端第n個位置開始擷取指定長度的字串
vb 從右邊擷取字串可以使用right函式 private sub command1 click s 1234567890 s1 right s,4 print s 的右邊4個字元是 s1end sub private sub command1 click 如果是數字有很多種方法可以實現 a 888...
如何從字串中刪除最後字元，如何從字串中刪除最後一個字元
string.slice 0,1 可以用第二個引數負數表示要去除幾位 char s 100 fgets s,sizeof s fp 從fp指向的檔案中提出最多100個字元的一行字元。s strlen s 1 0 讓最後一個字元的ascii碼為0，即結束標誌。fputs s,fw 將s寫入fw指向的檔...
如何判斷字串是否相等，在js中怎麼判斷兩個字串相等
string str1 abc string str2 bcd if str1.equals str2 用的du是zhiequals 方法dao 用的是equals 方法 string str1 abc string str2 bcd if str1.equals str2 在js中怎麼判斷兩個字串...