Question

VB编程题？

在窗体上设置一个命令按钮，为命令按钮编写事件代码，其实现的功能是为数组a(1 to 8)通过Array函数赋值，输出数组元素，根据选择法降序排列，并在窗体上显示排序后的结果

Answer 1

Private Sub Command1_Click()

  Dim a()

  a = Array(54, 67, 2, 46, 24, 64, 68, 25)

  For i = 0 To 6

    k = i

    For j = i + 1 To 7

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

    Next j

    t = a(i)

    a(i) = a(k)

    a(k) = t

  Next i

  For i = 0 To 7

    Print a(i);

  Next i

End Sub