未知题型

在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5/10 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub
D.9

【参考答案】

A
解析：本题是先定义一个5行5列的整型数组，再给数组元素赋值，最后再求数组矩阵中反对角线上的数据元素之和。“\......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

点击查看答案

在窗体上画—今名称为Cmmand1的命令按钮，然后编写如下事件过程 Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5/10 Next j Next i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End SubD.9