首页 > 计算机 > 计算机考试 正文

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

时间:2021-07-20 17:46:45 解答: 85 次

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

正确答案:

(9)【10】1 To 9

参考解析:

【11】I+1 To 10 【12】k=j 解析:由于是10个数所以1从1到9,j从i到10形成两次循环,如果是100个的话,那就是1从1到99,j从1到100形成两次循环;由于a(k)〉a(j)所以要交换,以便排序。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-01 14:30:16

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-01 14:30:16

←请使用微信扫码支付