1樓：
n2是存放數值的陣列長度
for j = 1 to n2 '排序
for i = 1 to n2 - 1
if temp(i) < temp(i + 1) thenst = temp(i)
temp(i) = temp(i + 1)temp(i + 1) = st
end if
next
next
vb作業：自動生成一組資料，從小到大排序，並用二分法查詢
vb 求6個數從小到大的重新排列**
2樓：驕傲地螞蟻
private sub command1_click()
text2 = strreverse(text1)
end sub
3樓：匿名使用者
dim num() as integer
dim tempnum as integerdim tempstring as stringtempstring = text1.textredim num(len(tempstring))for i = 1 to len(tempstring)num(i) = val(mid(tempstring, i, 1))
next i
for j = 1 to len(tempstring) - 1for i = 1 to len(tempstring) - 1if num(i) > num(i + 1) thentempnum = num(i)
num(i) = num(i + 1)
num(i + 1) = tempnum
end if
next i
next j
text2.text = ""
for i = 1 to len(tempstring)text2.text = text2.text & num(i)next
vb程式設計，將一個text文字框內的資料從小到大排列！
4樓：來自星星的小智
文字框內的資料是什麼格式的，如12,3,4,23,543,345思路：用split函式將字串轉變為獨立的數字，如a=split(text1.text,",")
編寫一個數字排序的函式
將結果重新組合為字串，並返回給text1.text難點是數字排序函式，這裡面有不同的演算法。
如果不考慮程式設計的方法，可以通過電子**來實現：
將你上面的數字複製到記事本中，然後用替換功能將所有的x替換為「，」（英文的逗號，不包括雙引號）。然後儲存，預設的副檔名名是「txt」，改為「csv」。然後開啟，應該變為電子**了。
電子**的a列，b列應該是你上面的資料，現在在第一行的c列輸入公式：「=a*b」回車，通過滑鼠拖拽功能，把第一行的c列的值複製到下面所有資料，這樣就計算出來乘積了，然後選中c列，在單元格設定中將單元格選為數值，然後還是選中c列，用電子**的排序功能排序，完成。
200 300 60000
200 400 80000
200 500 100000
200 600 120000
200 750 150000
250 700 175000
300 600 180000
250 800 200000
300 700 210000
300 750 225000
250 1100 275000
400 700 280000
400 750 300000
400 800 320000
400 900 360000
400 900 360000
400 1000 400000
600 700 420000
400 1100 440000
400 1150 460000
400 1200 480000
700 700 490000
400 1300 520000
700 900 630000
vb中怎樣在一組有序一維陣列中插入指定數字並使其新陣列按照從小到大的順序排列 下面是我的**
用vb編寫,隨便輸入6個數讓它們從小到大排列,和從大到小排列 20
5樓：狄爍
'在窗體中新增一個button，一個textbox
option explicit
private sub command1_click()
dim intnum(5) as integer, inttemp as integer
dim i as integer, j as integer
dim strtemp as string
'隨機生成6位數字
randomize timer
text1 = int(rnd * 1000000)
'向陣列中儲存數字
for i = 0 to 5
intnum(i) = cint(mid(text1, i + 1, 1))
next i
'從小到大陣列排序
for j = 0 to 5
for i = 1 to 5
if intnum(i - 1) > intnum(i) then
inttemp = intnum(i - 1)
intnum(i - 1) = intnum(i)
intnum(i) = inttemp
end if
next i
next j
'輸出結果
strtemp = "從小到大："
for i = 0 to 5
strtemp = strtemp & " " & intnum(i)
next i
strtemp = strtemp & vbcrlf & "從大到小："
for i = 5 to 0 step -1
strtemp = strtemp & " " & intnum(i)
next i
msgbox strtemp
end sub
6樓：匿名使用者
option base 1
private function findmin(a() as integer)
dim start as integer
dim finish as integer, i as integer
start = lbound(a)
finish = ubound(a)
min = a(start)
for i = start to finish
if a(i) < min then min = a(i)
next i
findmin = min
end function
private sub cmd1_click()
dim arr1
dim arr2(4) as integer
arr1 = array(val(text1.text), val(text2.text), val(text3.text), val(text4.text))
for i = 1 to 4
arr2(i) = cint(arr1(i))
next i
m = findmin(arr2)
print "min為: "; m
end sub
從小到大
option base 1
private function findmax(a() as integer)
dim start as integer
dim finish as integer, i as integer
start = lbound(a)
finish = ubound(a)
max = a(start)
for i = start to finish
if a(i) > max then max = a(i)
next i
findmax = max
end function
private sub cmd1_click()
dim arr1
dim arr2(4) as integer
arr1 = array(val(text1.text), val(text2.text), val(text3.text), val(text4.text))
for i = 1 to 4
arr2(i) = cint(arr1(i))
next i
m = findmax(arr2())
print "max是: "; m
end sub
從大到小
vb三個數從小到大排序
7樓：孤獨二進位制
你認為你問的問題只值0分。。那就無語了。
跆拳道等級怎麼分？最高為黑色，從小到大排列一下
白帶 白黃帶 黃帶 綠帶 綠藍帶 藍帶 藍紅帶 紅帶 紅黑帶 黑帶。黑帶之後就分1 9段了。分10級四品九段，10級 1級，1段 9段級位 10白 9白黃8黃 7黃綠6綠 5綠藍4藍 3藍紅2紅 1紅黑段位 黑帶1品 4品 針對少兒叫品，叫段 黑帶一段 品 黑帶九段 白帶 10級 黃帶 8級 黃綠帶...
把由數字1，2，3，5，8組成五位數按從小到大的順序排列，排在第25位的是多少
第25個數是bai21358 解答的時候，自然du從最小開始排，zhi1後面有4個數字，任dao意排列 專，所以1開頭所有的屬排列數有1 2 3 4 24個。所以第25個數就是以2排頭的最小的數，是21358。1開頭的有 4 3 2 1 24種 所以第25位肯定是2開頭最小的那個數 即21358.1...
excel中，0數隨機組合數形成一組數，怎麼完成
先看結果 步驟 1 在d2鍵入公式 rand 公式下拉至專d11，產生10個隨機數列屬 2 在e2鍵入公式 rank d2,d 2 d 11,1 1公式下拉至e11，產生0 9隨機數列，使用rank 函式是關鍵，保證得到的數列每個不重複 3 在f2鍵入公式 if e2 0,e11,e2 取萬位數字，...