作业帮 > 综合 > 作业

求用VB语言算10乘10数组的所有元素的和,上三角角和下三角元素的和,还有对角线元素的和的算法,急用!

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/26 20:32:10
求用VB语言算10乘10数组的所有元素的和,上三角角和下三角元素的和,还有对角线元素的和的算法,急用!
非常非常急用,今天下午三点之前交,再追加50分,帅哥谢过各位了
求用VB语言算10乘10数组的所有元素的和,上三角角和下三角元素的和,还有对角线元素的和的算法,急用!
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 100
a(i) = Rnd * 100 + 1
Print a(i) & vbTab;
If i Mod 10 = 0 Then Print
Next i
'
Sum = 0
For i = 1 To 10
Sum = Sum + a((i - 1) * 10 + i)
Next i
Print "对角线右撇元素和为:" & Sum
End Su