在窗体上有一个过程函数 然后编写如下事件程序 该过程的功能是用选择交换法将10个数排成升序 请在空白

大学专科 已帮助: 时间:2023-07-22 04:11:46

在窗体上有一个过程函数,然后编写如下事件程序,该过程的功能是用选择交换法将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
请帮忙给出正确答案和分析,谢谢!

难度:⭐⭐⭐

题库:大学专科,电子信息,计算机类

标签:升序,上有,过程

参考解答

用户头像

495***264

2023-07-22 04:11:46

正确答案: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)所以要交换,以便排序。

上一篇 当用【 】方式打开文件时 如果对文件进行与操作 则写入的数据附加到原来文件的后面。请帮忙给出正确答案

下一篇 在窗体上面画一个命令按钮 然后编写如下程序: Function M(x As Integer y A

相似问题