输入对话框输入15个数值数据放入数组a。将其中的整数放入数组b，然后运用选择法将数组b中的数据按从大到小排序，并将数组b以每行10个数据在窗体上输出。
请帮忙编下，俺实在不会厄～谢谢了！

这个明显是作业...

赞同。自己做吧，onlylove0106，实在有困难了，找出具体的问题来大家给你解答

作业啥啊，我都快30了，帮忙解答下好不好哟～～

那就是你儿子的作业

Option Explicit
'输入对话框输入15个数值数据放入数组a。
'将其中的整数放入数组b，
'然后运用选择法将数组b中的数据按从大到小排序，
'并将数组b以每行10个数据在窗体上输出。
'请帮忙编下，俺实在不会厄～谢谢了！
Private Sub Command1_Click()
Cls
Dim i As Long, j As Long, lNum As Single
Dim a(14) As Single, b(14) As Long, tmp As Long

For i = 0 To 14
lNum = Val(InputBox("请输入第" & i + 1 & "个数据", "输入"))
a(i) = lNum
If InStr(lNum, ".") > 0 Then
Else
b(j) = lNum
j = j + 1
End If
Next

For i = 0 To UBound(b)
For j = i + 1 To UBound(b)
If b(i) < b(j) Then
'交换两数
tmp = b(i): b(i) = b(j): b(j) = tmp
End If
Next j
Next i
For i = 0 To UBound(b)
If i Mod 10 = 0 And i <> 0 Then Print
Print "b(" & i & ")=" & b(i) & Space(3);
Next

End Sub

谢谢
了了俺的一桩心愿哪！

我还没有儿子哪haha
版主是水王哦！

太逗了！