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 Sub
iiiiii
i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024