作业帮 > 综合 > 作业

打印以下数组,并将对角线的数的和放在文本框中.1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/06/12 08:06:38
打印以下数组,并将对角线的数的和放在文本框中.1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 VB
打印以下数组,并将对角线的数的和放在文本框中.
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
打印以下数组,并将对角线的数的和放在文本框中.1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1
Private Sub Form_Load()
Dim a(1 To 4, 1 To 4) As Integer
Dim s As Integer
Me.AutoRedraw = True
For i = 1 To 4
For j = 1 To 4
a(i, j) = i * 4 + j
Print Tab(4 * j); a(i, j);
If i = j Then s = s + a(i, j)

Next j
Print
Next i
Text1.Text = Str(s)
End Su