Question

VB数组基础题

VB数组基础题利用数组，求学生成绩的最高分和最低分

Answer 1

Private Sub Command1_Click()
  Dim a()
  a = Array(45, 56, 78, 67, 77, 90, 83, 54, 64, 86)
  Max = a(0)
  Min = a(0)
  For i = 1 To UBound(a)
    If a(i) > Max Then Max = a(i)
    If a(i) < Min Then Min = a(i)
  Next i
  Text1 = Max
  Text2 = Min
End Sub