vb以两个二重循环为5行5列数组赋值如下,然后按行列关系显示该数组

5432143212321232123412345... 5 4 3 2 1
4 3 2 1 2
3 2 1 2 3
2 1 2 3 4
1 2 3 4 5
展开
 我来答
百度网友bdb9803
2013-03-08 · TA获得超过1.1万个赞
知道大有可为答主
回答量:1.1万
采纳率:53%
帮助的人:1亿
展开全部
Private Sub Command1_Click()
Dim a(5, 5), m, n
For i = 1 To 5
m = 7 - i
n = -1
For j = 1 To 5
m = m + n
If m = 0 Then n = -n: m = 2
a(j, i) = m
Next j, i
For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next j
Print
Next i
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
syx54
2013-03-08 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2734万
展开全部
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim n As Integer
Dim d(1 To 5, 1 To 5) As Integer
For i = 1 To 5
n = 6 - i
k = 0
Do While n > 0
k = k + 1
d(i, k) = n
n = n - 1
Loop
n = 1
Do While k <= 5
d(i, k) = n
n = n + 1
k = k + 1
Loop
Next i
For i = 1 To 5
For j = 1 To 5
Print d(i, j);
Next j
Print
Next i
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友1eb7575
2013-03-08 · TA获得超过256个赞
知道小有建树答主
回答量:505
采纳率:0%
帮助的人:329万
展开全部
一楼和二楼的程序都不错,但是在打印数组的时候不需要再用循环了,
只需要 range(“a1,:e5”)=“数组名” 就可以了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
流云行水bd
2013-03-08 · TA获得超过262个赞
知道小有建树答主
回答量:705
采纳率:0%
帮助的人:295万
展开全部
要求说明白点,怎么显示? 行列关系?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式