随机产生50~100间的整数组成一个4行4列的矩阵,并求矩阵对角线元素的和.
题目
随机产生50~100间的整数组成一个4行4列的矩阵,并求矩阵对角线元素的和.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a() As Integer, i, j, sum As Integer
ReDim ①
Label1.Text = "" : Label2.Text = ""
For i = 0 To 3
For j = 0 To 3
a(i, j) = ②
Label1.Text &= CStr(a(i, j)) & Space(5 - Len(CStr(a(i, j))))
If ③ Then sum += ④
Next
Label1.Text = ⑤
Next
Label2.Text = "对角线之和为:" & sum
End Sub
Private Sub Form1_Load(……) Handles Me.Load
Randomize( )
End Sub
答案
ReDim a(3,3) '①
a(i,j) = Int(Rnd() * 51 + 50) '②
If i = j Then sum += a(i,j) '③④
Label1.Text = Label1.Text & vbCrLf '⑤
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 小王沿街匀速行走,发现每隔6分钟从背后驶过一辆18路公交车,每隔3分钟从迎面驶来一辆18路公交车.假设每辆18路公交车行驶速度相同,而且18路公交车总站每隔固定时间发一辆车,那么发
- 自然分离的目的是什么,自然分离的方法有哪几种,简要说明其操作过程
- 朱自清的散文《匆匆》中含义深刻的句子的理解和感受
- to,with ,set,the,dinner,hair,the,help,likes,wavy,tall,eyes,table,and,bright,to,woman 连词组句
- Yes,he can jump high.的问句.
- 一个哲学家在草地上给他的学生上最后一节课作文
- 甲乙丙三名工人共同做一批零件,甲加工了总数的2/5,比乙多加工了125只,乙丙加工数的比是3:2.这批零件共有多少只?
- 六年级导学导练《布达拉宫的故事》阅读答案
- 英语谚语翻译 The tailor makes the man
- 中国古代政治制度的主要特点
热门考点