vb程序已知某个N阶方阵的元素均为1~50之间整数，找出该方阵的所有凸点

推荐回答

Private Sub Command1_Click()Dim n As Integer, a() As Integer, flag As Booleann = 10ReDim a(1 To n, 1 To n)ClsRandomizePrint "方阵如下:"For i = 1 To nFor j = 1 To na(i, j) = 1 + Int(50 * Rnd)Print Format(a(i, j), "@@@");NextPrintNextPrint "所有凸点如下:"For i = 1 To nFor j = 1 To nflag = TrueFor k = 1 To nIf a(i, j) < a(i, k) Or a(i, j) < a(k, j) Then flag = False: Exit ForNextIf flag = True Then Print i & "行" & j & "列:", a(i, j)NextNextEnd Sub