For i = 1 To 10 '生成随机数 Next i For i = 1 To 9 For j = 1 To 10 - i '冒泡排序 Next j Next i For i = 1 To 10 '输出 Next i 这三个循环必须并列写,不能合成一个,因为生成数字时后面没生成的位置还是0,不应该参与排序;排序时是从后往 前排 的,排到一半时前面的数还不在正确的位置,不能输出 如果你用的是插入排序,倒是可以合成一个循环来解决,每生成一个数就找到它所在的位置,并且插入到这个位置,就可以解决问题