程序实现输出最大值

编写代码：

Private   Sub  Command1-Click()

  Dim  max  as  Integer
  Dim  f(9)  as  integer
  Dim  mystr  as  String
  
        mystr="   "
        For  i=0  to  9
             f(i)=Int(Rnd()*1000+5）
             mystr=mystr+"  "+str(f(i))
             'print    Str(f(i))
        Next    i
       Print   mystr
     
       max=f(0)
      For   i=1   to   9
           If   f（i)>max    then
                 max=f(i)
          End   if
       Next   i
     
       Print    Str(max)
 
    End   Sub