7,789
社区成员
发帖
与我相关
我的任务
分享
并且他这个只要找最大和最小值,没必要进行排序。
你给他说“排序”他肯定更搞不懂了。
[/quote]
排序完之后,取第一个和最后一个值不就行了
并且他这个只要找最大和最小值,没必要进行排序。
你给他说“排序”他肯定更搞不懂了。
[/quote]
是哦,说不允许多重循环,没说不允许循环。
Dim a(99)
randomize
For i = 0 To 99
a(i) = int(rnd * 900 + 100)
Next
max = a(0)
min = a(0)
For i=1 To 99
If max < a(i) Then
max = a(i)
End If
If min > a(i) Then
min = a(i)
End If
Next
msgbox "最大值:" & max & " 最小值:" & min