1个回答
展开全部
Dim a(4,4) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
n = 0
Print "矩阵："
Randomize
For i=0 to 3
For j=0 to 3
a(i,j)=Int(RND * (9))
Print a(i,j);
If i=j Then n = n + a(i,j)
Next j
Print ""
Next i
Print "对角线元素和：" & str(n)
Dim i As Integer
Dim j As Integer
Dim n As Integer
n = 0
Print "矩阵："
Randomize
For i=0 to 3
For j=0 to 3
a(i,j)=Int(RND * (9))
Print a(i,j);
If i=j Then n = n + a(i,j)
Next j
Print ""
Next i
Print "对角线元素和：" & str(n)
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Sievers分析仪
2024-10-13 广告
是的。传统上，对于符合要求的内毒素检测，最终用户必须从标准内毒素库存瓶中构建至少一式两份三点标准曲线；必须有重复的阴性控制；每个样品和PPC必须一式两份。有了Sievers Eclipse内毒素检测仪，这些步骤可以通过使用预嵌入的内毒素标准...
点击进入详情页
本回答由Sievers分析仪提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
