vb随机10个两位整数，找出其中最大，最小值

Question

vb随机10个两位整数，找出其中最大，最小值

Answer 1

Private Sub Command1_Click()

  Randomize

  Max = 0

  Min = 100

  Print "10个随机整数为："

  For i = 1 To 10

    x = Int(Rnd * 90) + 10

    Print x;

    If x > Max Then Max = x

    If x < Min Then Min = x

  Next i

  Print

  Print "最大值："; Max

  Print "最小值："; Min

End Sub