Question

编写求一个5×5矩阵对角线上的元素的最大值的程序，矩阵的值在程序运行时由用户输入

Answer 1

'VB语言程序：
Private Sub Command1_Click()
  Dim a(1 To 5, 1 To 5) As Integer, valMax As Single
  For i = 1 To 5
    For j = 1 To 5
      a(i, j) = InputBox("a(" & i & "," & j & ")=")
      Print a(i, j);
    Next j
    Print
  Next i
  For i = 1 To 5
    If a(i, i) > valMax Then valMax = a(i, i)
  Next i
  For i = 1 To 5
    If a(i, 5 - i + 1) > valMax Then valMax = a(i, i)
  Next i
  Print "对角线上元素的最大值为："; valMax
End Sub

Answer 2

c 程序如下：
#include<stdio.h>
int main()
{
double a[5][5],vmax;
int i,j;
printf("input 5x5 matrix data\n");
for (j=0;j<5;j++) for (i=0;i<5;i++) scanf("%lf",&a[j][i]);
vmax=a[0][0];
for (i=0;i<5;i++) if (a[i][i]>vmax) vmax=a[i][i];
for (i=0;i<5;i++) if (a[i][4-i]>vmax) vmax=a[i][4-i];
printf("Vmax=%lf\n",vmax);
return 0;
}