随机生成10个数并选出最大值

最新推荐文章于 2024-01-04 15:53:47 发布

vanvae

最新推荐文章于 2024-01-04 15:53:47 发布

阅读量1k

点赞数

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

本文链接：https://blog.csdn.net/vanvae/article/details/7547707

版权

vb作业专栏收录该内容

12 篇文章 0 订阅

订阅专栏

代码如下：

Private Function max(a() As Integer) As Integer
Dim i As Integer
Dim maxa As Integer
For i = LBound(a) To UBound(a)
If a(i) > maxa Then
maxa = a(i)
max = maxa
End If
Next i

End Function

Private Sub Command1_Click()
Dim i As Integer
Dim max As Integer, f(9) As Integer
Dim mystr As String
Dim myArray(9) As Integer
For i = o To 9
f(i) = Int(Rnd() * 1000 + 5)
mystr = mystr + "" + Str(f(i))
Next i
Print "随机十位数是："
Print mystr
For i = 0 To 9
If f(i) > max Then
max = f(i)
End If
Next i
Print "最大数是："
Print Str(max)

End Sub