下列程序可以求方阵对角线元素之和。 Option Base 1 Private Function djx(a%(), n%) As Integer
下列程序可以求方阵对角线元素之和。 Option Base 1 Private Function djx(a%(), n%) As Integer Dim i% For i = 1 To n Sum = Sum + a(i) Next i If n Mod 2 <> 0 Then Sum = Sum - a(n \ 2 + 1, n \ 2 + 1) End If djx=Sum End Function Private Sub Command1_Click() Dim a%(), n% n = InputBox("n=") ReDim a%(n, n) For i = 1 To n For j = 1 To n a(i, j) = Int(Rnd * 9 + 1) Print a(i, j); Next j Print Next i Print "对角线元素之和为:" & _____________ End Sub
A、call djx(a,n)
B、djx a,n
C、djx(a,n)
D、djx(a(i),n)