1樓：匿名使用者
dim e(1 to 12) as integerdim f() as integer
private sub command1_click()dim i as integer
static j as integer
for i = 1 to 12
if e(i) <> 0 then '使不為零的元素提取出j = j + 1
redim preserve f(1 to j) as integer '重新定義陣列
f(j) = e(i)
end if
next i
end sub
2樓：
i=1while i<=12
if e(i)<>0 then n=n+1i=i+1
wend
redim f(1 to n)
n=1for i=1 to 12
if e(i)<>0 then
f(n)=e(i)
n=n+1
endif
next
3樓：匿名使用者
這個用c語言比較好辦吧，vb的沒指標，通過一些方法用指標又太複雜。
VB6 0查詢語句
1 顯示所有清單，其中 uvoltage,ucapacity可任意修改。select uvoltage,ucapacity from supply where ucapacity 你原來的語句 2 僅顯示一行，相當於excel的分類統計計數select uvoltage,min ucapacity ...
在vb60中如何申明全域性變數，在VB 6 0中，如何申明一個全域性變數？
在任意模組中用public定義變數,例如public a as integer,使用時可直接寫a，若在其他模組中有與之重名的變數須在變數前宣告模組,比如 form1.a 在 標準模組 的宣告部分,使用關鍵字public或global宣告,可以被工程中的任一窗體,任一模組中的任一過程或函式使用,陣列和...
VB6 0關於16進位制的轉換問題
next text2.text s end sub 用chr 函式 格式 chr 數值表示式 說明 函式返回值型別為string，其數值表示式值取值範圍為0 255。例如 print chr 78 結果顯示 n。chr charcode 必要的 charcode 引數是一個用來識別某字元的 long...