vb程序 随机生成包含10个数组元素的有序数组，然后第一个与第六个进行交换，第二个与第七个进行交换……并把原数组以及交换后的数组分别在窗体中显示出来。 Private Sub Form_Load() Dim a() ReDim a(9) Dim t As Integer For i = 0 To 9 a(i) = Int(Rnd * 10) Next For i = 0 To UBound(a) - 1 For j = 1 To UBound(a) If a(j - 1) > a(j) Then t = a(j) a(j) = a(j - 1) a(j - 1) = t End If Next Next out = "交换前：" & Join(a, " ") & vbCrLf t = a(0): a(0) = a(5): a(5) = t t = a(1): a(1) = a(6): a(6) = t out = out & "交换后：" & Join(a, " ") Me.AutoRedraw = True Print out End Sub 点击窗体 进入代码窗口 将代码清空 粘贴以上代码 无需添加任何控件 直接运行 即可看到效果 out = out & "交换后：" & Join(a, " ") Me.AutoRedraw = True 这一句哪出错了？？？