1樓：匿名使用者
你的什麼排序用得著搞這麼複雜嗎
你裡面有很明顯的幾個問題
redim 重定義後陣列裡面的內容會丟失，如這段for i = 1 to dgs
redim d(i)
d(i) = list1.list(i - 1)next i
你最後的d(dgs)裡面是有值的 其他都是空的，因為每迴圈一次你就重定義一次。
你看下是不是你要的效果
private sub command1_click()dim sflag as boolean
randomize
list2.clear
dim lcount as integerlcount = list1.listcountredim s(lcount)
for i = 0 to ubound(s) - 1dos(i) = int(rnd * lcount) 'list1.listindex從0開始
sflag = false
for j = 0 to i - 1
if s(j) = s(i) then
sflag = true
end if
next
if sflag = false then exit doloop
list2.additem list1.list(s(i))next
end sub
2樓：
先加到陣列中排好序再加到list中 貌似也有sort屬性 找找
請問vb當中當list1裡的數字到list2中後按大小排列的**該怎麼寫？
3樓：匿名使用者
在list2的屬性中設定 sorted 屬性為 true 即可，這個屬性是設定是否自動按字母順序排列的屬性。
問: 在vb中 讓list中的資料按字母排序該怎麼做（寫在一個單擊事件中）
4樓：匿名使用者
排序後的專案顯示情況
dim aa(1 to 8) as string '定義aa陣列為模組級陣列變數
private sub command1_click() '【排序】按鈕單擊過程
dim kk as string
for i = 1 to 7 '陣列的排序過程
for j = i + 1 to 8
if aa(i) > aa(j) then
kk = aa(i)
aa(i) = aa(j)
aa(j) = kk
end if
next j
next i
list1.clear '初始化list1控制元件
for i = 1 to 8
list1.additem aa(i) '載入排序後陣列到list1
next i
end sub
private sub command2_click() '【重新整理】按鈕單擊過程
unload me
form1.show
end sub
private sub form_load() '程式啟動過程
aa(1) = "tspk": aa(2) = "ucxz": aa(3) = "wkcv":
aa(4) = "lmcs": aa(5) = "zmnc": aa(6) = "cdgk":
aa(7) = "anme": aa(8) = "fcml" '給陣列賦值
list1.clear '初始化list1控制元件
for i = 1 to 8
list1.additem aa(i) '載入陣列到list1
next i
end sub
在vb中 讓list中的資料按字母排序該怎麼做
5樓：匿名使用者
1，把list中資料讀到陣列。
2，對陣列進行排序。
3，清除list資料，把排序後陣列的資料新增到list。
c中怎麼將泛型的List和ArrayList相互轉化
arraylist a listl 1.自定義函式 ienumerablecasttolist arraylist a l casttolist a tolist 或者l new list casttolist a 或者l.addrange casttolist a 2.3.0中的擴充套件方法 ar...
VB中怎麼將文字框中的內容寫入陣列中
private sub command1 click dim a as string a split text1.text,for i 0 to ubound a print a i next end sub 意思是 將文字框裡面的內容以 逗號 處隔開 輸出到窗體上 先定義一個陣列,再用一個for迴...
VB視窗之間的資料怎麼傳遞，VB中窗體之間怎麼傳值？
1 在模組檔案 module 中宣告一個全域性公共變數，然後在其他窗體中就可以通過這個變數來存取資料了，如 在模組檔案中宣告變數a public a as string 在form1中給a賦值 a 您好！在form2中讀取a msgbox a 2 在要傳遞資料的那個視窗宣告一個模組級的全域性變數，然...