Private Sub Command1_Click()Dim a()a = Array(8, 11, 74, 22, 9, 56, 71, 35)Max = a(0)For i = 1 To 7If Max < a(i) Then Max = a(i)NextMsgBox "最大值=" & MaxEnd Sub