作业帮 > 数学 > 作业

随机产生一个5*5的矩阵A(范围30..100),交换第一与第三的元素的位置,求矩阵两对角线元素之和.

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/05/16 01:20:18
随机产生一个5*5的矩阵A(范围30..100),交换第一与第三的元素的位置,求矩阵两对角线元素之和.
随机产生一个5*5的矩阵A(范围30..100),交换第一与第三的元素的位置,求矩阵两对角线元素之和.
'定义事件由单击按钮触发
provide sub command1_click()
'定义数组
dim a(1 to 5,1 to 5) as integer
'生成矩阵数组元素
for i=1 to 5
for j=1 to 5
a(i,j)=int(rnd*71+30)
next j
next i
dim temp as integer
'交换每行第一与第三个元素的位置
for k=1 to 5
temp=a(k,1)
a(k,1)=a(k,3)
a(k,3)=temp
next k
'开始生成变量计算对角线元素之和
dim sum1 as integer
dim sum2 as integer
sum1=a(1,1)+a(2,2)+a(3,3)+a(4,4)+a(5,5)
sum2=a(5,1)+a(4,2)+a(3,3)+a(2,4)+a(5,1)
'接下来只要输出两个变量的值就可以了,我以两个标签输出两个变量的值
label1.caption=sum1
label2.caption=sum2
end su