用vb程序设计输出一个右上三角元素(含对角线)为1,其余元素为0 的5×5矩阵.
题目
用vb程序设计输出一个右上三角元素(含对角线)为1,其余元素为0 的5×5矩阵.
答案
Dim a(5,5)
Private Sub Command1_Click()
'右,倒三角形
For i = 0 To 4
For j = 0 To 4
If j >= i Then
a(i,j) = 1
Else
a(i,j) = 0
End If
Print a(i,j),
Next j
Print
Next i
End Sub
Private Sub Command2_Click()
'右,三角形
For i = 0 To 4
For j = 0 To 4
If 4 - j
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 如果去要无人岛生活,只带三样东西,你会带什么?
- 四时田园杂兴 其一
- great australian bite怎么读
- 已知二次函数y=-3x²-6x+5 若直线y=-x-k与上述抛物线只有一个公共点求K,若有两个公共点求K取值范围
- 已知全集U={2,3,7},A={2,|a-5|},CuA={7}求a的值?
- 一桶油,第一次用去总量的35%,第二次用用去40千克后,还剩下总量的25%,这桶油
- 有关to the telephone的英语作文
- 请问,(3)80+x>3x x
- 电子跳蚤落在数轴上的某点K0,第一步从K0向左跳一个单位到K1,第二步从K1向右跳两
- 体考100米12.4秒,铅球8.9米,跳远8.9米,400米54.67秒有多少分?
热门考点