1樓：
dim a as integer
dim b as integer
private sub command1_click()k = instr(a, text2, text1)if k > 0 then
command1.caption = "查詢下一個"
a = k + len(text1)
text2.setfocus
text2.selstart = k - 1text2.sellength = len(text1)b = b + 1
else
msgbox "查詢完畢！共找到 " & b & " 個 " & text1
command1.caption = "查詢"
a = 1
end if
'print k
end sub
private sub form_load()label1 = "要查詢的內容："
command1.caption = "查詢"
a = 1
end sub
2樓：匿名使用者
。btw，學習語言最好的訓練手段是自己提出一個任務項，然後研究開發工具手冊中的例證程式，稍做修改，組合出自己的**，然後進一步理解、精化，漸漸就找到了感覺。
而基本的概念與定義，一定要細心研讀，不可忽略。比如資料型別：整數型、浮點型、字元型（就是字串）......
用vb做一個查詢的程式
3樓：匿名使用者
if text1.text="123" thentext2.text="159"
elseif text1.text="5" thentext2.text="6"
else
text2.text="不存在"
end if
放在按鈕單擊事件中
求一個簡單vb程式設計例項~
4樓：匿名使用者
控制元件：image,picture,timer**：dim x as integer
dim y as integerprivate sub form_load()
x = 100
y = 100
timer1.interval = 100
end subprivate sub timer1_timer()
if img.top >= pic.height - img.height then
y = -100
end if
if img.top <= 0 then
y = 100
end if
if img.left >= pic.width - img.width then
x = -100
end if
if img.left <= 0 then
x = 100
end if
img.top = img.top + y
img.left = img.left + x
end sub
以上**實現的是**框中的一個小球做的規律的運動，當小球碰到**框邊緣時便**繼續運動
求簡單的vb入門程式設計例項教程
5樓：
微信怎麼查公積金微信查詢住房公積金教程
鑽誠投資擔保 新政後，提取 也bai越來越du 招商銀行 部分城市的招行可辦理公積金提取業務，請致電95555 3個人客戶服務 5 9進入人工提供所在城市嘗試查詢所需資料。 中國農業銀行 提取住房公積金需提供以下材料 1 提取住房公積金賬戶內的儲存餘額的，專先由所在單位予以核實屬，並出具提取證明。2...