VB编程,有一个n × m的矩阵,其各元素的值由随机函数生成（范围50~150）.编写程序,找出其中最大的元素

Private Sub Form_Click()Dim a() As IntegerDim i, j, max, n, mRandomize(time)n = InputBox("n=")m = InputBox("m=")ReDim a(n, m)max = 0For i = 1 To n For j = 1 To ma(i, j) = Int(Rnd...