VB常用算法总结大全.pptVIP

10求鞍点元素,该元素所在行为最大,所在列为最小 P115 习题7 ’ 生成数组 Private Sub Command1_Click() Dim I%, J% M = InputBox(请输入数组的行数) N = InputBox(请输入数组的列数) ReDim A(M, N) For I = 1 To M For J = 1 To N A(I, J) = Int(90 * Rnd) + 10 Picture1.Print A(I, J); Next J Picture1.Print Next I End Sub 第二十九页，编辑于星期一：二十二点 二十分。 10求鞍点元素,该元素所在行为最大,所在列为最小 P115 习题7 ’找鞍点数 Private Sub Command2_Click() Dim I%, J%, Max%, Col%, Flg% For I = 1 To M Max = A(I, 1) Col = 1 For J = 2 To N If Max A(I, J) Then Max = A(I, J): Col = J