有一个一维数组，内放10个学生成绩，写一个函数，对该数组进行降序排序

VB方案:
-----------------------------------------------------------------
【简单说明】
在排序函数外部给数组赋值,并且按以下方式调用排序函数：
Call sort(data) '其中sort是排序函数名，data是数组名
注意:调用完成后,就对10个数据进行了降序排列。
-----------------------------------------------------------------
'对10个数据进行排序的函数
Private Sub sort(ByRef mydata() As Single)
Dim midd As Single
Dim i, j As Integer
For i = 0 To 8
For j = i + 1 To 9
If mydata(i) > mydata(j) Then
midd = mydata(i)
mydata(i) = mydata(j)
mydata(j) = midd
End If
Next j
Next i
End Sub
-----------------------------------------------------------------
欢迎到“襄垣人”作客，www.zgxyr.net

void sort(float *score)
{
int i,j;
float temp;
for( i=0; i<10; ++i )
for( j=0; j<9-i; ++j )
{
if( score[j]<score[j+1] )
{