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