中科新闻网银行回访电话会打给谁:请教VB高手．．．．
来源：百度文库 编辑：中科新闻网 时间：2024/05/08 19:20:17
编写这个程序
有一个5X5的数组，求其两条对角线元素之和
有一个5X5的数组，求其两条对角线元素之和
Dim a(0 To 4, 0 To 4) As Integer
Dim i, j As Integer
For i = 0 To 4
For j = 0 To 4
a(i, j) = i * j
Next
Next
Dim f As Double
Dim s As Double
f = 0
s = 0
For i = 0 To 4
f = f + a(i, i)
Next
For i = 0 To 4
s = s + a(i, 4 - i)
Next
MsgBox "第一条: " & CStr(f)
MsgBox "第二条：" & CStr(s)
dim a[1 to 5][1 to 5] as integer
s是和函数。
计算过程：
for i=1 to 5 step 1
s=s+a[i][i]+a[i][5-i]
next i
最后打出s就行了