For j=I To 6 a(i, j) Print a(i, j) Print t=a(1,i):a(1,i)=a(6,i):a(6,i)=t Next i j=1 To 6 Print 2.程序代码如下 ivate Sub Form load Dim max As Integer, r As Integer, c As Integer x=Int(900*Rnd+100) 产生一个随机数 (i,j)= Print 0 l:c=1 Ifa(i,j)〉 max Then 判断有无更大数 最大值为: Print"位于行:";r,"列:";c End sub 3.在窗体上建立两个列表框List1(处理前数据)和List2(处理后数据),以及标签 Labell。程序代 码如下 Private Sub Form Load Dim a(100)As Integer, b(100)As Intege 输入数组a的n个元素 x Int(20 Rnd)6 Show For i = 1 To 6 For j = 1 To 6 Select Case i Case Is < j a(i, j) = 1 Case Is > j a(i, j) = 2 Case Is = j a(i, j) = 0 End Select Print a(i, j); Next j Print Next i For i = 1 To 6 t = a(1, i):a(1, i) = a(6, i):a(6, i) = t Next i Print: Print For i = 1 To 6 For j = 1 To 6 Print a(i, j); Next j Print Next i End Sub 2. 程序代码如下： Option Base 1 Private Sub Form_Load() Dim a(8, 8) As Integer, n As Integer Dim max As Integer, r As Integer, c As Integer Show Randomize n = 8 For i = 1 To n For j = 1 To n x = Int(900 * Rnd + 100) '产生一个随机数 a(i, j) = x Print x; Next j Print Next i max = 0: r = 1: c = 1 Print For i = 1 To n For j = 1 To n If a(i, j) > max Then '判断有无更大数 max = a(i, j): r = i: c = j End If Next j, i Print "最大值为："; max Print "位于行："; r, "列："; c End Sub 3．在窗体上建立两个列表框 List1(处理前数据)和 List2(处理后数据)，以及标签 Label1。程序代 码如下： Private Sub Form_Load() Dim a(100) As Integer, b(100) As Integer Randomize n = 100 For i = 1 To n '输入数组 a 的 n 个元素 x = Int(20 * Rnd) List1.AddItem x a(i) = x