输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.
题目
输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.
输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.求出
(1) 对角线上元素的和
(2) 对角线上元素的积
(3) 矩阵中最大的元素
答案
Private Sub Command1_Click()
Randomize
Form1.Cls
Dim c,e As Integer
c = 0
e = 0
Dim d As Double
d = 1
Dim a(4,4) As String
For i = 0 To 4
For j = 0 To 4
f = Format(Int(Rnd * 100 + 1),"0,0")
If i = j Or i + j = 4 Then c = c + f:d = d * f
If f > e Then e = f
a(i,j) = f
Next
Print a(i,0) & " " & a(i,1) & " " & a(i,2) & " " & a(i,3) & " " & a(i,4)
Next
Print "对角线的和为:" & c
Print "对角线的积为:" & d
Print "最大的元素为:" & e
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 用类比法说明串联电路中电流处处相等
- 一支温度计,其刻度是均匀的,但它的示数不准,把它放入冰水混合物中,示数为2,放在一个标准大气压下94度
- 急求;;已知AB是圆O的直径,BC是圆O的切线,OC与圆O相交于D,连接AD并延长交BC于点E,BC=3,CD=2,
- 直线l经过点M0(1,5)倾斜角为π/3且交直线x-y-2=0于点M 则MM0等于多少
- 2a+b/3a+5b 求a/b
- 以“怕”为话题写一篇作文
- 有3个8和3个0组成6位数,一共可以组成( )个不同的六位数.其中一个零也不读的数有( )
- 小学英语试卷分析如何写
- 关于人的性格,个性的词(成语、熟语,普通的词),生僻的带解释,越多越好
- 某家衣服以每件300元的价格卖出了2件衣服,其中一件赚了20%,另一件亏了20%问 该服装店卖出这2件衣服是盈