有没有大神会做啊！！！救急

[FinkaSama]

救急！！这个应该是VB基础类，求大神拯救我！

[milaoshu1020]

vbs代码:

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

[脆皮大雪糕]

引用 3 楼 舉杯邀明月 的回复:

[quote=引用 1 楼 脆皮大雪糕 的回复:] 递归快速排序。

你觉得楼主能懂“递归”是什么吗………… 并且他这个只要找最大和最小值，没必要进行排序。 你给他说“排序”他肯定更搞不懂了。 [/quote] 是哦，说不允许多重循环，没说不允许循环。

[脆皮大雪糕]

递归快速排序。

[脆皮大雪糕]

剩下的自己做，兼职写代码、课外辅导老师啥都不是无偿的。父母已经给你交了学校学费了

[舉杯邀明月]

引用 1 楼 脆皮大雪糕 的回复:

递归快速排序。

你觉得楼主能懂“递归”是什么吗…………


并且他这个只要找最大和最小值，没必要进行排序。
你给他说“排序”他肯定更搞不懂了。

[码上秀]

引用 3 楼 舉杯邀明月 的回复:

[quote=引用 1 楼 脆皮大雪糕 的回复:] 递归快速排序。

你觉得楼主能懂“递归”是什么吗………… 并且他这个只要找最大和最小值，没必要进行排序。 你给他说“排序”他肯定更搞不懂了。 [/quote] 排序完之后，取第一个和最后一个值不就行了