在窗体上有一个过程函数,然后编写如下事件程序,该过程的功能是用选择交换法将10个数排成升序,请在空白处填入适当的语句。   Sub SORT( )    Dim a(1 To 10)    For i=1 To 10     a(i)=Val(InputB

admin2009-01-15  31

问题 在窗体上有一个过程函数,然后编写如下事件程序,该过程的功能是用选择交换法将10个数排成升序,请在空白处填入适当的语句。
  Sub SORT( )
   Dim a(1 To 10)
   For i=1 To 10
    a(i)=Val(InputBox(" " ," ",0))
  Next i
  For i=【  】
     k=i
     For j=【  】
       If a(k)>a(j)Then【  】
       If k< >i Then
         b=a(k)
         a(k)=a(i)
         a(i) =b
       End If
     Next j
    Next i
    For k=1 To 10
     Print a(k)
    Next k
  End Sub

选项

答案1 To 9 , I+1 To 10 , k=j

解析 由于是10个数所以1从1到9,j从i到10形成两次循环,如果是100个的话,那就是1从1到99,j从1到100形成两次循环;由于a(k)〉a(j)所以要交换,以便排序。
转载请注明原文地址:https://kaotiyun.com/show/fg2p777K
0

相关试题推荐
随机试题
最新回复(0)