1樓：匿名使用者
簡單的,用text控制元件的sel屬性,
dim n as long, num as longprivate sub command1_click()l = len(text2)
n = instr(n, text2, text1)text2.setfocus
if n <= l and n > 0 thentext2.selstart = n - 1text2.sellength = len(text1)command1.
caption = "查詢下一個"
n = n + len(text1)
num = num + 1
else
msgbox "查詢完畢!總共找到 " & num & " 處。"
command1.caption = "開始查詢"
n = 1
num=0
end if
end sub
private sub form_load()n = 1
end sub
2樓：vb妮可
新建工程,2個文字框,text1和text2, 還有1個按鈕.command1
全部**如下:
dim i%, j%, m%
private sub command1_click()if command1.caption = "開始查詢" thenj = (len(text2) - len(replace(text2, text1, ""))) / len(text1)
end if
if i = j then goto pppif j > 0 then
m = instr(m, text2, text1)else
goto ppp
end if
command1.caption = "查詢下一個"
text2.selstart = m - 1text2.sellength = len(text1)text2.setfocus
m = instr(m + 1, text2, text1)i = i + 1
exit sub
ppp:
msgbox "在text2共找到了" & j & "個text1..."
i = 0: m = 1
command1.caption = "開始查詢"
end sub
private sub form_load()i = 0: m = 1
text1 = "i"
text2 = "feiiskowiskiaiskdi"
command1.caption = "開始查詢"
end sub
3樓：
你說的查詢是在什麼地方查詢？查詢什麼？
沒有這些條件，如何程式設計？
4樓：
是呀，是資料庫、檔案，還是字串。總得說清楚吧
求一個VB程式，求用VB解答
資料要儲存嗎？是不是只對你本次輸入的資料處理。開啟vbf 點選檔案 新建 表 表名 學生統計介面 儲存。彈出視窗 點現在輸入 在 欄位名 排名 型別 字元型 寬度 1即可 剩下的不管 輸下一行。欄位名 及格 型別 邏輯型 寬度 不管同理 下行。最後點確定 輸入資料 儲存。搞定 求用vb解答 製作這個...
vb程式設計 大一的 急求，VB程式設計 大一的 急求
你題目是1到100，每行輸出五個，而100裡只有35 和70能同時被5和7整除，所以我改了一下1000以內，如果要100以內，把1000改成100就可以了 private sub command1 click dim i as integer,n as integer n 0 for i 1 to ...
一道vb題，急求，vb題一道，急求
答案是c.輸入10000個數值，計算平均數，適合採用迴圈結構演算法。a。判斷一個證書是否為偶數，解決該問題僅需一步判斷，也許需要一步賦值，沒有多次重複的步驟，不適合採用迴圈結構演算法。b。輸入一個圓的半徑，計算面積和周長。輸入資料 計算面積，這三個內容都是一個語句就可以完成的，沒有多次重複的步驟，不...