作业帮 > 综合 > 作业

找出4*5矩阵中最大元素所在的行和列,并输出其值及行号与列号,各元素范围40到50

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/11 10:35:35
找出4*5矩阵中最大元素所在的行和列,并输出其值及行号与列号,各元素范围40到50
求VB代码
Private Sub Form_Click()
    Dim a(4, 5) As Integer
    Randomize
    For i = 1 To 3
        For j = 1 To 4
            a(i, j) = Int(Rnd() * 10) + 40
            Print a(i, j);
        Next j
        Print
    Next i
    Max = a(1, 1)
    For i = 2 To 3
        For j = 1 To 4
        If Max < a(i, j) Then Max = a(i, j): s = i: t = j
        Next j
    Next i
    Print "最大值为:" & Max; "在第" & s & "行" & "第" & t & "列"
End Su