实验八：给定10个数输出最大值

一  实验目的：求从给定的10个数中输出最大值

二  实验内容：10个数中输出最大值的具体步骤为

      Private Sub Command1_Click   ( )

      Dim f(9) As Integer

      Dim mystr As String

      mystr = " "

      for i = 0 to 9

      f(i) = Int(Rnd()*100 + 5)

      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

三   心得体会：10个数中输出最大数，用原始的方法会但麻烦，换了一种方法有点难，但通过上网查资料问同学和老师最后学会了，很高兴以后一定要善于动脑筋，问同学，

要善于运用网络查找资料。

四    遇到的问题及解决方法:开始时有点迷茫不知道该如何编写10 个数输出最大值的程序，但通过向老师请教，问同学，上网查资料，最终把问题解决了，挺高兴的。