概述
代码如下：
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
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)
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
最后
以上就是精明大叔为你收集整理的随机生成10个数并选出最大值的全部内容，希望文章能够帮你解决随机生成10个数并选出最大值所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复