Dim i, j, intmin As Integer, n As IntegerDim sngsq(), sngt As Single '输入原始数据n = 5 'Val(InputBox("请输入排序的个数N的值"))ReDim sngsq(n)'重新定义数组Print "排序前"For i = 1 To nMsgBox "请输入第" & Str(i) & "个数:"sngsq(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型Print sngsq(i);NextPrintPrint "排序后"'排序For i = 1 To n - 1intmin = i