下列程序的功能是:单击窗体时将随机生成10个0~99之间的随机数,并赋值给数组A,然后利用选择法排序;并把排序后的结果输出。 Private Sub Form_Click() Dim A(9) As Integer,i As Integer

admin2009-02-13  26

问题 下列程序的功能是:单击窗体时将随机生成10个0~99之间的随机数,并赋值给数组A,然后利用选择法排序;并把排序后的结果输出。
   Private Sub Form_Click()
    Dim A(9) As Integer,i As Integer
    Dim j As Integer,k As Integer
    Randomize
    For i=0 To 9
      A(i)=Int(100*Rnd)
      Next i
      For i=0 To 8
         k=【  】
         For j=i To 9
            If(A(k)>A(j))Then
               【  】
            End If
         Next j
         If k<>i Then
            t=A(k):A(k)=A(i):A(i)=t
         End If
      Next i
      For i=0 To 9
         Print A(i),
      Next i
      Print
   End Sub

选项

答案i , k=j

解析 选择排序法是一种简单的排序方法,其方法步骤可描述如下:
   设有N个元素要从小到大排列,选择法排序过程可分为N-1轮:
   第一轮:从第1~N个数中找出最小的数和第一个数交换,第一个数排好。
   第二轮:从第2~N个数中找出最小的数和第二个数交换,第二个数排好。
   第i轮:从第i~N个数中找出最小的数和第i个数交换,第i个数排好。
   第N-1轮:从第N-1~N个数中找出最小的数与第N-1个数交换,排序结束。
   本题中变量k用来记下每一轮的最小值的下标,首先认为最小值为该轮的第一个元素 a(i),它的下标是i,因此[9]处应用“i”。最小的数要和后面的每一个元素比较,如果后面的元素小,则记下它的下标,故在[10]处应用k记下较小的元素下标,应填“k=j”。
转载请注明原文地址:https://kaotiyun.com/show/co1p777K
0

最新回复(0)