问题标题：
输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.求出(1)对角线上元素的和(2)对角线上元素的积(3)矩阵中最大的元素
问题描述：
输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.
输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.求出
(1)对角线上元素的和
(2)对角线上元素的积
(3)矩阵中最大的元素
郭宝锋回答：
PrivateSubCommand1_Click()
Randomize
Form1.Cls
Dimc,eAsInteger
c=0
e=0
DimdAsDouble
d=1
Dima(4,4)AsString
Fori=0To4
Forj=0To4
f=Format(Int(Rnd*100+1),"0,0")
Ifi=jOri+j=4Thenc=c+f:d=d*f
Iff>eThene=f
a(i,j)=f
Next
Printa(i,0)&""&a(i,1)&""&a(i,2)&""&a(i,3)&""&a(i,4)
Next
Print"对角线的和为："&c
Print"对角线的积为："&d
Print"最大的元素为："&e
EndSub
查看更多
