期末考试,跪求VB大师帮我详解,题不难,只是我没学过,详情看下方,很着急,重谢!!!
矩阵1.用inputbox函数输入一个5行5列的矩阵2.求矩阵的两个对角线之和,具体实现如实例所示。就是这矩阵题,不难吧,谢了。。。这是老师做的成题的图片,在这窗体中点击...
矩阵
1.用inputbox函数输入一个5行5列的矩阵
2.求矩阵的两个对角线之和,具体实现如实例所示。
就是这矩阵题,不难吧,谢了。。。
这是老师做的成题的图片,在这窗体中点击“输入一个5行5列...”,就弹出“输入矩阵值”这一框框。
嗯,就这样,迅速的,老师催了,做出,追加分。。。叩头了,泪奔。。。
两天前问过一次,分全悬赏了,但没结果,这回分不是很高,但很急很重要。 展开
1.用inputbox函数输入一个5行5列的矩阵
2.求矩阵的两个对角线之和,具体实现如实例所示。
就是这矩阵题,不难吧,谢了。。。
这是老师做的成题的图片,在这窗体中点击“输入一个5行5列...”,就弹出“输入矩阵值”这一框框。
嗯,就这样,迅速的,老师催了,做出,追加分。。。叩头了,泪奔。。。
两天前问过一次,分全悬赏了,但没结果,这回分不是很高,但很急很重要。 展开
2个回答
展开全部
Private Sub Form_Click()
Dim arr(1 To 5, 1 To 5), i, j, sum
Cls
For i = 1 To 5
For j = 1 To 5
arr(i, j) = Val(InputBox("输入一个数:"))
Print arr(i, j),
Next
Print
Next
For i = 1 To 5
For j = 1 To 5
If i = j Or i = 5 - j + 1 Then
sum = sum + arr(i, j)
If i = 3 And j = 3 Then sum = sum + arr(i, j) '对角线交叉的这个数需要加2次
End If
Next
Next
Print sum
End Sub
Dim arr(1 To 5, 1 To 5), i, j, sum
Cls
For i = 1 To 5
For j = 1 To 5
arr(i, j) = Val(InputBox("输入一个数:"))
Print arr(i, j),
Next
Next
For i = 1 To 5
For j = 1 To 5
If i = j Or i = 5 - j + 1 Then
sum = sum + arr(i, j)
If i = 3 And j = 3 Then sum = sum + arr(i, j) '对角线交叉的这个数需要加2次
End If
Next
Next
Print sum
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询