1樓：匿名使用者
要做排列，就必須理解什麼叫冒泡法
基本來講就是兩個for迴圈互套
直接加到你原來的按鈕上也可以
新建乙個按鈕來控制這個也可以
假設你選出來6個數，把他們存入陣列(或者拆分進陣列，我用這個演示)
假設你選到的數存在getnumber變數裡
那你的 mynumber = mynumber & getnumber & "|"
相當於得到以下內容
mynumbers = 12 & "|" & 35 "|" & 2 & "|" & 79 & "|" & 23 "|" & 55
mynumbers = "12|35|2|79|23|55"
你的**將為
resolvenumber =split(mynumber,"|") '將mynumber拆分，拆分符號為"|"
for i = 0 to 5 '外迴圈6次
for j = 0 to 4 '內迴圈5次
if cint(resolvenumber(j)) => cint(resolvenumber(j+1)) then
'判斷臨近的兩個數大小
(cint(string)可以強制轉換字串中的數字成數字形式，
但必須是數字字元才能轉)
'如果前者大於後者，則前後兩者互換位置
'------------------------------------
tmpnumber = resolvenumber(j+1) '把後者拷入乙個臨時記錄
resolvenumber(j+1) = resolvenumber(j) '把前者值拷個後者
resolvenumber(j) = tmpnumber '把剛才拷入臨時記錄的值拷回給前者
'------------------------------------
end if
next
next
最後結束的時候應該你的
resolvenumber(0) = "2"
resolvenumber(1) = "12"
resolvenumber(2) = "23"
resolvenumber(3) = "35"
resolvenumber(4) = "55"
resolvenumber(5) = "79"
都是字串形式，可以用剛才的cint(string)方法轉化，如：
cint(resolvenumber(2))
2樓：匿名使用者
'你會選我就從排列開始了
dim a(1 to 6) '選出的六個數for i=1 to 6
for j=i+1 to 6 '與剩餘的數做比較if a(i)>a(j) then 『大的話交換下位置temp=a(i)
a(i)=a(j)
a(j)=temp
end if
next j
print a(i)
next i
'我沒除錯，應該沒問題吧，你試著執行下，把你選出的數放到a（）陣列裡，執行上面**即可
急需離子方程式，急，急需20個離子方程式，急
1 鈉單質與水反應 2na 2h2o 2na oh h2 2 過氧根離子與水反應 2o22 2h2o 4oh o2 3 過氧根離子與二氧化碳反應 2o22 2co2 2co32 o2 4 鐵與水蒸氣反應 3fe 4h2o g f3o4 4h2 5 鋁與強鹼性溶液反應 2al 2oh 2h2o 2al...
用VB寫小程式，用VB寫乙個小程式
private sub form load form1.visible falsedim cpuset dim cpu set cpuset getobject winmgmts instancesof win32 processor for each cpu in cpuseta cpu.proc...
VB中如何編寫加密程式，VB中如何編寫乙個加密程式
還可以用api函式來呼叫出來加密 有個加密的演算法 在裡面 如把a加上乙個值可以變成b一樣的加密方法 怎樣用vb編寫乙個檔案加密程式？vb 加密與解密的程式 5 加密 private function jiami byval varpass as string as string 引數varpass...
用vb語言編寫程式隨機生成兩個，用vb語言編寫乙個程式，隨機生成兩個100 300之間的正整數，顯示他們，並求這兩個數的最大公約數
瘋狂小鳥 如圖所示，望採納。 冉冉曦丶 imports system.math public class form1 private sub button1 click sender as object,e as eventargs handles button1.click dim a,b as ...
急急急菜鳥求助！！VB小程式，求乙個簡單的VB程式碼小程式
用點到點的距離公式，計算三個值，求最小的就可以了 求乙個簡單的vb 小程式 private sub command1 click dim a as single dim b as string a val text1.text b 2 sqr 0.5 a 2 2 3 text2.text b end...