VB作业之比较10个数的大小

最新推荐文章于 2018-09-13 13:44:38 发布

原创最新推荐文章于 2018-09-13 13:44:38 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #作业 #integer #string

vb 专栏收录该内容

16 篇文章

订阅专栏

本文分享了一个使用VB编写的简单程序，该程序能够生成并打印出10个随机数及其最大值。通过类比学习的方法，作者成功完成了任务，并从中体会到了解决实际问题的乐趣。

下面是我编写的代码：

 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))

    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
心得体会：这次的程序和上两个程序是类似的，只是变的更复杂、更难了。一开始不知道怎么做，在老师的指导下终于做出来了，在这个过程中，我发现类比真的是一个很好的办法，可以运用到以后的学习当中。