实现输出10个数中最大的一个

Dim max as Integr

Dim f(9) As Integer

Dim mystr As string

  For i = 0 to 9

  f(i) = Int(rnd() *1000 +5)

    

                 mystr = ""

       mystr = mystr + " " + str(i)

                Print mystr

  f(o) = max

      for(i) = 1 to 9

   If f(i) > max  then

          max = f(i)

End If

Next i

   Print Str(max)

 

这次做的是“输出最大数”，有简单到复杂。感觉起来会稍微易理解些。他们的思想基本一样。感觉多模仿多练习确实有帮助。把一个复杂的问题分解成简单的几步会更容易，其实很多东西与基础的那些思想都一样。