Question

从键盘输入10个整数，排序后从小到大输出。

Answer 1

Sub 小晕()
Dim i As Long
For i = 1 To 10
Cells(i, 1).Value = InputBox("请输入第" & i & "个数")
Next i
Range("A1:A10").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:A10")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

Answer 2

c语言里有冒泡排序法：
function main()
{
int i,j,temp;
int a[10];
for(i=0;i<10;i++){
scanf("%d,",$a[i]);
}
for(j=0;j<10;j++){
for(i=0;i<10-j;i++) {
if(a[i]>a[i+1]){
temp=a[i];
a[i]=a[i+1];
a[i+1]=temp;
}
}
}
for(i=0;i<10;i++){
printf("%d,",a[i]);
printf("\n");
}
}
很长时间没有学习c语言了，仅供参考。