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

[填空题] 下列程序为比较排序法排序程序,请补充完该程序(该程序对10个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _Click()

时间:2021-07-20 17:28:56 解答: 88 次

[填空题] 下列程序为比较排序法排序程序,请补充完该程序(该程序对10个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _Click() Randomize p=“” For i = 1 To 10 Do x = Int (Rnd * 90) + 10 yes = 0 For j = 1 To 【9】 If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x Next i For i = 1 To 9 For 【10】 To 10 If a(i) > a(j) Thent = a(i)【11】 a(j) = t End If Next j Next i p = Str(a(1)) For i = 2 To 10 p = p & “,” & Str(a(i)) Print p Next i End Sub

正确答案:

[9] i-1 [10] j=1 [11] a(i)=a(j)

  • 相关题库

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

×

95元 29元

VIP截止日期:2025-01-02 00:22:39

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-02 00:22:39

←请使用微信扫码支付