求讲解.不知道为啥就=78了.PrivateSubCommand1Click()DimaAsVariantDimiAsInteger,yAsIntegera=Array(5,6,78,3,10,12)y=1Fori=LBound(a)+1ToUBound(a)Ifa(y)

Question

求讲解.不知道为啥就=78了.
Private Sub Command1_Click()
Dim a As Variant Dim i As Integer, y As Integer a = Array(5, 6, 78, 3, 10, 12) y = 1 For i = LBound(a) + 1 To UBound(a) If a(y) < a(i) Then y = i Next i Print a(y)End Sub

Answer 1

这个句子 就是要找出一个最大数来 当然是78了