在vb中随机产生10个50以内的整数数组并打印输出,找到最大值和最小 值并交换它？

Question

一、随机产生10个50以内的整数数组并打印输出，找到最大值和最小
值并交换它们位置后再输出所有数组元素验证结果。

Answer 1

Private Sub Command1_Click()

  Dim a(10) As Integer

  Max = 1

  Min = 1

  For i = 1 To 10

    a(i) = Int(Rnd * 51)

    Print a(i);

    If a(i) > a(Max) Then Max = i

    If a(i) < a(Min) Then Min = i

  Next i

  t = a(Max)

  a(Max) = a(Min)

  a(Min) = t

  Print

  Print "交换以后："

  For i = 1 To 10

    Print a(i);

  Next i

End Sub