绋嬪簭濉�绌� - 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

'

銆愮▼搴忓～绌恒�?/p>

 

'------------------------------------------------------- 

'

鍔熻兘锛氫笅闈㈢殑绋嬪簭娈电敤浜庡疄鐜颁互涓嬪姛鑳斤細鍒╃敤

鍐掓场

娉曞皢涓�缁勬暣鏁?/p>

 

' 

 

 

 

 

 

浠庡皬鍒板ぇ鎺掑簭銆?/p>

 

'------------------------------------------------------- 

Private Sub Form_Click() 

Const n = 15 

Dim a(1 To n) As Integer, work As Boolean 

Dim i As Integer, j As Integer, x As Integer 

Randomize 

For i = 1 To n 

 

 

 

a(i) = Int((90 * Rnd) + 10) 

Next i 

For i = 1 To n 

 

 

 

Print a(i); 

Next i 

Print 

'**********SPACE********** 

For i = n To 2 

銆?/p>

?

銆?/p>

step-1 

 

 

work = True 

 

 

For j = 1 To i - 1 

 

 

 

 

If a(j) > a(j + 1) Then 

 

 

 

 

 

 

 

x = a(j): a(j) = a(j + 1): a(j + 1) = x 

'**********SPACE********** 

 

 

 

 

 

 

銆?/p>

?

銆?/p>

work=False 

 

 

 

 

End If 

 

 

Next j 

'**********SPACE********** 

 

 

If work Then 

銆?/p>

?

銆?/p>

Exit For 

Next i 

For i = 1 To n 

 

 

 

 

Print a(i); 

Next i 

End Sub 

 

绛旀��

 

 

 

1). 

 

 

 

 

Step -1 

 

 

2). 

 

 

 

 

work = False 

鎴?/p>

 

work=0 

鎴?/p>

 

not work = true 

 

 

3). 

 

 

 

 

Exit For 

 

'

鍔熻兘锛氫互涓嬬▼搴忕敤浜庡垽鏂�涓�涓�姝ｆ暣鏁帮紙鈮�

3

锛夋槸鍚︿负

绱犳暟銆?/p>

 

 

'-------------------------------------------------------