对十个数，通过编程语言输出最大值

10个数，程序实现输出最大值

    通过编写这个程序，我发现vb用处确实很大，我们真的很有必要学好它，让他为我们的工作学习更好的服务。

    以下就是我编写的程序：

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

     这个程序是在计算机老师讲完后编写的，但还是困难重重，感觉很混乱，最大的收获就是感觉有很大的挫败感，我真真的要认真对待计算机编程课程啦，虽然听不懂但也不应该放弃，我要好好学习了。。。。