一 实验目的:求从给定的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 个数输出最大值的程序,但通过向老师请教,问同学,上网查资料,最终把问题解决了,挺高兴的。