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

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

admin2009-01-15  73
问题 在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将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://www.kaotiyun.com/show/fg2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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