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

最新推荐文章于 2020-11-20 00:18:43 发布

MAHYBZ

最新推荐文章于 2020-11-20 00:18:43 发布

阅读量1.4k

点赞数 2

分类专栏： vb 文章标签： vb 作业 integer string

本文链接：https://blog.csdn.net/MAHYBZ/article/details/7555814

版权

vb 专栏收录该内容

16 篇文章 1 订阅

订阅专栏

下面是我编写的代码：

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