1、先采用冒泡法对数组P(N)进行升序排列.
For I = 1 To N - 1
JHBZ = 0 '数据是否交换的标志,凡发生交换就置JHBZ=1,否则为0.
For J = 1 To N - I
If P(J) > P(J + 1) Then
T = P(J)
P(J) = P(J + 1)
P(J + 1) = T
JHBZ = 1
End If
Next J
If JHBZ = 0 Then Exit For
Next I
2、数组P(N)的最后一个元素就是我们所求的最大元素。
1、先采用冒泡法对数组P(N)进行升序排列.
For I = 1 To N - 1
JHBZ = 0 '数据是否交换的标志,凡发生交换就置JHBZ=1,否则为0.
For J = 1 To N - I
If P(J) > P(J + 1) Then
T = P(J)
P(J) = P(J + 1)
P(J + 1) = T
JHBZ = 1
End If
Next J
If JHBZ = 0 Then Exit For
Next I
2、数组P(N)的最后一个元素就是我们所求的最大元素。