不知道为什么运行显示是下标越界，
Option Base 1
Private Sub Command1_Click()
Dim m As Integer, n As Integer, f As Boolean
m = InputBox("m")
n = InputBox("y")
ReDim A(m, n) As Integer
A(m, n) = Int(Rnd * 101)
f = True
For i = 1 To m
maxy = A(i, 1)
For j = 1 To n
If A(i, j) > Max Then
Max = A(i, j)
maxy = j
End If
Next j
For k = 1 To m
If A(k, maxy) < Max Then 下标越界黄色标注行
f = False
Exit For
Else
Print "A(" & Str(i) & ","; Str(maxy) & ")=" & A(i, maxy)
End If
Next k
Next i
If f = False Then Print "??а???"
End Sub

数组中没有正确生成数据，除了最后一个元素（右下角那个）以外，其余都是0，Max和maxy的初始值也是0，这样在一行中循环之后，没有比0大的数（全是0），maxy也就没有被赋值，仍然是0，而数组下标是从1开始的，因此导致越界

Option Base 1 '　数组下标从【１】开始
ReDim A(1 To m, 1 To n) As Integer '　这才匹配

【A(m, n) = Int(Rnd * 101)】这一句应该是以下几行
Randomize
For i = 1 To m : For j = 1 To n
A(i, j) = Int(Rnd * 101)
Next j : Next i

我觉得你把maxy的值用在数组下标上本身就有可能越界 毕竟maxy可是0_100的随机正整数

当然数据生成也有问题 不过我提出的也对吧