VB排序問題，VB在具體步驟中對三個數字進行排序

試試我的方式：

在窗體上建立乙個文字和乙個命令1

然後，command1 中的 click 事件編寫如下**：

dim a() as string,i%,b() as integer

a=split(text1," ") '直接在 text1 中輸入輸入數字，數字之間用空格（乙個空格）分隔。

for i=lbound(a) to ubound(a)

b(i)=val(a(i)) 'b 是乙個數值陣列。

next i

for i= lbound（b） to ubound（b）-1 '迴圈陣列的元素。

for j= i+1 to ubound(b)

如果 b（j）t=b（j） '，則交換兩個元素的位置。

b(j)=b(i)

b(i)=t

end if

next j

next i

for i=lbound(b) to ubound(b) '在窗體上對訂單進行排序後輸出訂單。

print b(i)

next i

1. 啟動並建立乙個新的標準 exe 專案。

2. 在窗體上繪製乙個名為 command1 的命令按鈕。

3. 雙擊命令按鈕進入**視窗。

4. 為命令按鈕編寫單擊事件。 定義乙個包含10個元素（1-10）的一維陣列a，隨機生成一批兩位數的隨機數，有序載入到a（i）中，輸出a（i），排序完成後便於觀察和比較。

5.編寫程式的核心部分。

6.虛線，輸出。

7. 按 F5 執行測試。

首先，圖中三個運算元的優先順序是：mod，這是毫無疑問的;

那麼 8 1 = 8,8 3 = 除數，系統中會有很多小數位），餘數由 mod 2 得到;

在VB中，mod結果是整數，而不是小數，所以會四捨五入，結果是3，餘數是1;

四捨五入原理是莊家的演算法：四捨五入規則，小於四捨五入，大於進位，奇數或偶數（為0，為2，為2）。

想到一種可能不是最好的方法;

思路：1.把你需要的訂單，儲存在乙個陣列裡;

yd(1)="王"，yd(2)="陳"，yd(3)="李"，yd(4)="趙"，yd(5)="張"，yd(6)="劉"

2. 建立另乙個陣列;

nd(1)=""，nd(2)=""，nd(3)=""，nd(4)=""，nd(5)=""，nd(6)=""

3. 字串會隨機出現，例如：“Li， Chen， Zhao， Zhang”。

拆分，並與陣列 yd 逐一比較，然後將值分配給陣列 nd，最後。

方法二：1、字串原序：ys=“王辰李趙張劉”。

2. 你的隨機出現字串，例如：ss = “Li Chen Zhao Zhang”。

3. 做迴圈：

ns = ""

for i = 1 to len(ys)

if instr(ss, mid(ys,i,1)) 0 then

ns = ns & mid(ys,i,1)end if

next i

你可以用 array+for 迴圈來做到這一點。

首先，將 Wang、Chen、Li、Zhao、Zhang 和 Liu 作為字串放入陣列 dim arr（） 中

arr()=split("王， 陳， 李， 趙， 張， 劉“，","這個隨機字串也是你自己寫的函式？ 不太容易理解後面的排序。

它只是將隨機字串與該陣列進行比較，將它們交換為陣列的下標值，並按順序對下標值進行排序。