vb篩選問題,vb,怪異的篩選問題,高手幫我做下!!!線上等

2025-02-09 02:59:44 字數 1814 閱讀 6182

1樓:網友

看你這**我看得苦啊。

dim n(14) as integer

n(0)=a6-a1

n(1)=a6-a2

n(2)=a6-a3

n(3)=a6-a4

n(4)=a6-a5

n(5)=a5-a1

n(6)=a5-a2

n(7)=a5-a3

n(8)=a5-a4

n(9)=a4-a1

n(10)=a4-a2

n(11)=a4-a3

n(12)=a3-a1

n(13)=a3-a2

n(14)=a2-a1

dim s as string '放結果的。

for i = 0 to 14

if instr(s,(n(i) &0 then '如果沒有找到重複項。

s = s & cstr(n(i))

end if

nextmsgbox s

vb,怪異的篩選問題,高手幫我做下!!!**等

2樓:網友

作為小學生的我,可以肯定的告訴你"我不會!"

vb文字篩選問題

3樓:

你想問什麼啊?你的陣列沒有初始化,dim keyword$(10)

vb資料庫篩選問題。

4樓:網友

用on error resume next的方法避開錯誤。

再用select 語句再開啟資料庫,就有了。

vb按時間篩選

5樓:網友

檔案的格式是怎樣的?

宣告。dim a2 as string

vb數字的篩選

6樓:網友

先放賀叢在陣列裡,再處理,資料一般都是在陣列裡進禪純櫻行處理的。褲敬。

private sub command1_click()dim a1(100) as integerdim a2() as integer

dim a3() as integer

text1 =

text2 =

text3 =

randomize

for i = 0 to 100

a1(i) =rnd * 100

text1 = text1 & a1(i) &nextj = 0

for i = 0 to 100

if a1(i) mod 2 = 0 thenredim preserve a2(j)

a2(j) =a1(i)

text2 = text2 & a2(j) &j = j + 1

end if

nextj = 0

for i = 0 to ubound(a2)if a2(i) >50 then

redim preserve a3(j)

a3(j) =a2(i)

text3 = text3 & a3(j) &j = j + 1

end if

nextend sub

vb 高手進,文字篩選問題

7樓:網友

if i = ubound(keyword) thenstream = mid(stream, 5) '加上巖則這一句粗攜棚。

sendkeys ""stream & 隱物"

end if

vb的問題,一個vb的問題

開啟一個視窗 使用 shellexecute api 函式能夠實現自動登入,具體宣告請你參考一下 msdn 或者使用 vb 自帶的 api 檢視器來貼上宣告 用法如下 shellexecute form1.hwnd,open 名稱 sw restore 將這些 寫進標籤的 click 事件中就可以了...

VB程式設計問題,VB程式設計中的迴圈問題

有個 自己去看吧,都是考試的。編一個求圓周長的程式。輸入半徑,得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點,很多事做不了 如果是對basic語言感興趣的話,到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系...

vb中的timer控制元件問題,VB問題,timer 控制元件的用法。

樓上的說的 太對了。這就是新手問題,當時我學到這裡的時候也遇到了這種問題。當時問老師之後解決的。當時還有點沒轉過彎來。後來知道轉彎了。private sub timer1 timer i i 1 label1.caption i end sub 這個過程裡面的 i 變數,每執行一次就初始化一次。因為...