程序要求及程序代码如下: ( 1 )窗体 Form1.frm 的程序功能是:随机产生 10 个数按从小到大的顺序排列。 ( 2 )程序有 2 处错误,错误均在“ '*ERROR* ”注释行,请直接在该行修改,不得增加或减少程序行数,也不得删除或修改错误标记 '*ERROR* 。 Private Sub Form_Click() Dim t%, m%, n%, w% Dim a(10) As Integer For m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m); " "; Next m Print For m = 1 To 9 t = m For n = 2 To 10 '*ERROR* If a(t) > a(n) Then t = n Next n If t = m Then '*ERROR* w = a(m) a(m) = a(t) a(t) = w End If Next m For m = 1 To 10 Print a(m) Next m End Sub