1. 以下程序的功能是随机生成100个97-122之间的正整数(包括97和122),并将一个区间内的数(第x个元素到第y个元素)取出并按升序输出。请修改加框处的错误。

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

x = Val(Text1.Text)

y = Val(Text2.Text)

For i = 1 To 100

     (1)

  List1.AddItem Str(a(i))

Next i

For i = x To y - 1

  k = i

  For     (2)

    If a(k) > a(j) Then k = j

  Next j

  If k <> i Then

    t = a(k): a(k) = a(i): a(i) = t

  End If

Next i

For i = x To y

  List2.AddItem Str(a(i))

Next i

End Sub

  ⑵ 

【考点】
排序算法及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 困难
能力提升
变式训练
拓展培优
真题演练
换一批