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