代码总是不对，有for 显示 next没有对应的for。如果还有其它问题，还请帮忙指出

Question

Option Explicit
    Dim s(10) As Integer
    Public max, min, ave As Integer
    Public i, a As Integer
Private Sub Command1_Click()
    max = min = 0
    ave = 0
    For i = 0 To 9
        Randomize
        s(i) = Int((100 - 30 + 1) * Rnd + 30)
        If s(i) > max Then
            max = s(i)
        ElseIf s(i) <= min Then
            min = s(i)
            ave = ave + s(i)
        End If
    Next i
    MsgBox "随机数产生成功", 0 + 64, "产生随机数"
    ave = ave / 10
End Sub

Answer 1

Next i  前面加上end if