¡¡¡¡Ê±ÏÂÈ«¹ú¸÷µØ¶¼Ôڸ㡰µçÄÔÐ͸£Àû²ÊƱ¡±£¬ÏàÐźܶà¶ÁÕßÅóÓѶ¼²ÎÓë¹ý»òÕý×¼±¸²ÎÓë°É£¬±ÊÕßÒ²ÊÇÒ»¸ö¡°²ÊÃñ¡±£¬ÒÑΪÖйú¸£ÀûÊÂÒµ¹±Ï×ÁËXXXÔªÁË£¬²»¹ýºÃÏñÔËÆø²»ÔõôºÃ£¬ÖÁ½ñÁ¬¸öÄ©µÈ½±Ò²Î´Öе½¡£ÔÚͶעʱ£¬²ÊºÅ¿ÉÒÔ×Ô¼ºÔÚͶעµ¥ÉÏÑ¡£¬Ò²¿ÉÒÔͨ¹ýͶע»úËæ»úѡȡ¡£ÄÇô£¬Ïë²»Ïë×Ô¼º±à¸ö³ÌÐòÀ´Ä£Äâ¡°»úÑ¡¡±ÄØ£¿ºÃ£¡ÄǾͽÓ×ÅÍùÏ¿´°É£¡
¡¡¡¡Ê×ÏÈ£¬Ð½¨Ò»¸öµ¥´°ÌåµÄ¹¤³Ì£¬ÔÚÉÏÃæ»³öÆß¸öTEXTBOX£¬×îºÃÊÇÒ»¸ö¿Ø¼þÊý×飬ÕâÑù±à³ÌʱÈÝÒ׿ØÖÆ£¬ÔÙ½¨Ò»¸öCOMMOND BUTTON£¬½«CAPTION¸ÄΪ¡°Ëæ»ú²úÉú¡±¡£ÔÚ³ÌÐòÔËÐкó£¬Ã¿µã»÷Ò»ÏÂCOMMAND1£¬½«Ëæ»ú²úÉúÒ»×éÊý×Ö²¢°´´ÓСµ½´óµÄ˳ÐòÏÔʾÔÚÎı¾¿òÖС£ÏÂÃæ¾ÍÊdzÌÐò²¿·Ö£º
¡¡¡¡Private Sub Command1_Click()
¡¡¡¡Dim i, j, N As Integer
¡¡¡¡For i = 1 To 7
¡¡¡¡NumArray(i) = 0
¡¡¡¡Next i
¡¡¡¡Randomize
¡¡¡¡NumArray(1) = Fix(1 £« 32 £ª (Rnd()))
¡¡¡¡j = 1
¡¡¡¡Do
¡¡¡¡N = Fix(1 £« 32 £ª (Rnd()))
¡¡¡¡For i = 1 To j
¡¡¡¡If N = NumArray(i) Then
¡¡¡¡Exit For ¡äÖØ¸´Ê±
¡¡¡¡ElseIf i = j Then ¡äÎ´ÖØ¸´Ê±
¡¡¡¡NumArray(i £« 1) = N
¡¡¡¡j = j £« 1
¡¡¡¡Exit For
¡¡¡¡End If
¡¡¡¡Next i
¡¡¡¡Loop While j < 7
¡¡¡¡PopSort ¡äÉýÐòÅÅÁÐ
¡¡¡¡For i = 1 To 7
¡¡¡¡Text1(i £ 1).Text = NumArray(i)
¡¡¡¡Next i
¡¡¡¡End Sub
¡¡¡¡Private Sub PopSort() ¡äÆøÅÝÅÅÐò·¨
¡¡¡¡Dim i, j, Temp As Integer
¡¡¡¡For i = 7 To 2 Step £1
¡¡¡¡For j = 7 £ 1 To 1 Step £1
¡¡¡¡If i >= 7 £ j £« 1 Then
¡¡¡¡If NumArray(j £« 1) < NumArray(j) Then
¡¡¡¡Temp = NumArray(j)
¡¡¡¡NumArray(j) = NumArray(j £« 1)
¡¡¡¡NumArray(j £« 1) = Temp
¡¡¡¡End If
¡¡¡¡End If
¡¡¡¡Next j
¡¡¡¡Next i
¡¡¡¡End Sub
¡¡¡¡±¾³ÌÐòÔÚVB6.0ÖÐÎÄÆóÒµ°æ¡¢Win98SEÖÐÎİæÏµ÷ÊÔͨ¹ý¡£ÎªÁ˼ò½ÝÆð¼û£¬Õâ¸ö³ÌÐò»¹Óкܶ಻¾¡ÈçÈËÒâµÄµØ·½£¬±ÈÈç²»Äܱ£´æµÈ£¬Ï²»¶±à³ÌµÄÅóÓÑ¿ÉÒÔ³ä·Ö·¢»Ó×Ô¼ºµÄ´ÏÃ÷²ÅÖÇ¶ÔÆä¼ÓÒÔÀ©³ä¡£




