作业帮 > 综合 > 作业

vb函数过程能求出两个数中的最大数,调用该函数求随机生成的十五个数...

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/17 23:01:08
vb函数过程能求出两个数中的最大数,调用该函数求随机生成的十五个数...
vb函数过程能求出两个数中的最大数,调用该函数求随机生成的十五个数中的最大
Private Sub Command1_Click()
Dim I As Integer
Dim N(15) As Integer,M As Integer
Randomize
For I = 1 To 15
N(I) = Int(Rnd * 1000) '随机产生1000以内正整数
Print N(I);
Next
Print
M = N(1)
For I = 2 To 15
M = P(N(I),M)
Next
Print "最大值为:" & M
End Sub
Function P(ByVal X As Integer,Y As Integer) As Integer
If X >= Y Then P = X Else P = Y
End Function