作者yshow (猜)
看板LAND98-NCCU
標題Re: 電概考前猜猜猜
時間Wed Jun 9 19:35:31 1999
※ 引述《biku (be your Miss Special)》之銘言：
: 泡沫排序
: Private Sub Form_Load()
: Randomize
: Dim aa(6) As Integer
: Dim a As Integer
: For i = 1 To 5 '為輸入資料到陣列中
: aa(i) = Int(Rnd * 100) + 1
: Next i
: For m = 1 To 4 '為前後交換之泡沫排序
: flag = 0 'flag作為旗幟，一旦等於０就直接跳出
: For n = 4 To m Step -1
If aa(n) > aa(n + 1) Then a = aa(n): aa(n) = aa(n+1): aa(n+1) = a
: flag = 1
: Next n
: If flag = 0 Then Exit For
: Next m
: Text1.Text = aa(1)
: Text2.Text = aa(2)
: Text3.Text = aa(3)
: Text4.Text = aa(4)
: Text5.Text = aa(5)
: End Sub
要注意!Then a = aa(n): aa(n) = aa(n+1): aa(n+1) = a如果沒放到if後面的話
要記得在 flag = 1的下面加end if
1)
If aa(n) > aa(n+1) Then a = aa(n): aa(n) = aa(n+1): aa(n+1) = a
flag=1
Next n
2)
If aa(n) >aa(n+1) Then
a = aa(n): aa(n) = aa(n+1): aa(n+1) = a
flag = 1
End if
Next n
繼續努力吧!