十个数大小的比较

Private Sub Command1_Click()

  Dima As Integer

  Dimb As Integer

  Dimc As Integer

  Dim f(i) As String

 

  c = f(i)

  a =12

  b =6

  Ifa > b Then

    mymax = a

 Else

    mymax = b

  EndIf

 

 Forf(i) = 0 To 7 = Int(Rnd * 100)

 Iff(i) > mymax Then

 Max =f(i)

 EndIf

 

End Sub

    程序无法运行，显示问题为“要求常数表达式”，红色字体为出现问题的地方，我和另外几个同学的问题都出在这里，讨论后也没能解决。