1樓：網友
sub sort(arr)
for i = lbound(arr) to ubound(arr)
for j = i + 1 to ubound(arr)
if arr(j) next j
next i
end sub
call以上過程即可對陣列進行排列。
舉個例。private sub command1_click()
nums = array(13, 56, 33, 3, 2, 99, 34, 26, 76, 83) '已知的十個數。
call sort(nums)
for i = lbound(nums) to ubound(nums)
print nums(i);
next i
end sub
上面給出的只是乙個簡單的例子，十個數，你可以採用迴圈的方式進行任意輸入，然後放入陣列中，最後比較的方法與例子相同，**只要稍加改動就能行了。以上**在上執行已通過，你可以拷貝過去。
最後，希望我的解答能夠幫助到你。
2樓：網友
不是隻有6個控制項嗎。你j的迴圈怎麼有7個了……如果執行這段**的話，前面的數字就沒意義了。只要看最後兩個數字是相等還是不相等，相等，則控制項為紅，不相等，則控制項為綠。
多出來的label(6)先不管）
for i = 0 to 4 '因為是6個數，所以比5次。
if i<>5 and label(i) label(i).backcolor = vbredelsefor j = 0 to 5
label(i).backcolor=vbgreennext j
exit for
end if
if i = 5 then
label(5).backcolor = vbredend if
next
vb裡 我給出10個數進行大小排列。但是我現在只做到了10個數選出最大的數求大神幫我詳解接下來我該怎麼做
3樓：網友
我給你推薦一種簡單的交換排序法。
如果如下為資料列arr(6)=（用字母代替，方便敘述）
從第乙個數開始往下迴圈比較，總是將大的數替換到前面的位置，從大到小排序流程如下：
1）arr(0)跟其餘所有的資料挨個比較，把大的數換到arr(0)，arr(0)跟arr(1)比較，如果arr(0)>=arr(1),則進行下乙個比較，如果arr(0)=arr(2),則進行下乙個比較，如果arr(0)..
直到比較完所有的數，此時arr(0)是最大的數了。
2）arr(1)跟餘下的數挨個比較，把大的數換到arr(1)，最後第二大數就被換到arr(1)
3）一直比較到arr(最後一位)
得到的數列就為乙個從大到小的數列。
具體**如下。
dim arr()= new integer()=定義源陣列。
dim i,j as integer定義迴圈變數。
dim count as long定義陣列個數。
count = ubound(arr)-lbound(arr)+1獲取陣列個數。
for i = 0 to count-1
for j = i to count-1
if arr(i)temp = arr(i)把小的數儲存起來。
arr(i)=arr(j)把大的數賦於前面的arr(i)
arr(j)=temp
end if
nextjnext i
這個時候你得到的陣列就是乙個從大到小的陣列了。
js判斷數是否是10的倍數,js判斷乙個數是否是10的倍數
1 新建乙個復函式,判制斷引數除以10的餘數是bai否為0,如du果為0則是10的倍數,否則不zhi是10的倍數 dao2 使用之前定義的函式,將需要查詢的數傳入到函式中,這裡以50為例,函式返回 是10的倍數 3 使用之前定義的函式,將需要查詢的數傳入到函式中,這裡以55為例,函式返回 不是10的...
c語言如何判斷整數，c語言判斷乙個數是否為整數
c語言判斷兩數相除結果是否為整數可採用模運算。是c語言提供的 模運算 符，如8 5表示8整除5，取其餘數，結果為3 c語言要求參與模運算子兩端的數，必須是整型類資料，如 char short int long,unsigned這些型別，不能是浮點型別資料。如，判斷乙個數除以100後是不是整數，該數是...
數乘01就是將這個數除以10,判斷對錯
1,錯,大錯 復特錯,給乙個數乘制10c o,是將他縮小到了原有的十分之一,並且這個數的範圍是必須大於0.等於0和小於0都不行。就是將這個數縮小了1 10.是說他縮小了十分之一,也就是縮小到原有的十分之九,是肯定錯的。如果答案是對,那就是答案錯了。乙個數的5倍是100,它的10倍是1000判斷對錯 ...