试用vb写一个过程，计算二维数组行，列的最大值和最小值

Question

如题所述

Answer 1

图片是下面这张吧...坐起来费时间呀你应该会VB吧简单说下吧 dim a(5,5) 还要把相关的变量都Dim下...可能会用到另一个数组b 然后有那个循环i=0 to 5,j=0 to 5 rnd出每个数然后再用If语句和循环嵌套比较一下选出最大值，最小值比较过程与下面这个类似 For i = 0 to 5 for j=0 to 5 min = a(i,0) If a(i,j) < min Then min = a(i,j): jmin = j Next j b(i)=min next i 这样一来数组b就是那六个数了再用同样的方法比较下让TEXT1和text2的text值换下就行了结束： Private Sub Command1_Click() end End Sub 清空： Private Sub Command2_Click() picture1.cls text1.text="":text2.text="" End Sub 可以将比较大小的那部分设为子过程每次比较时call下就OK了