第1个回答 2013-03-08
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本回答被提问者采纳
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
Next i
End Sub本回答被提问者采纳
第2个回答 2013-03-08
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本回答被网友采纳
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
Next i本回答被网友采纳
第3个回答 2013-03-08
一楼和二楼的程序都不错，但是在打印数组的时候不需要再用循环了，
只需要 range（“a1,：e5”）=“数组名” 就可以了
只需要 range（“a1,：e5”）=“数组名” 就可以了
第4个回答 2013-03-08
要求说明白点，怎么显示？ 行列关系？
...统计三个数数均在60以内 要求不得使用二重循环法
不用二重循环只能用 自定义函数
怎样将几个数字进行组合排列
有几个数字,个数不等,从5个到100个左右,要将他们组合,4个数为一组,且不重复,比如:有5个数字,1,2,3,4,5。要把他组成4个为一组如下:1,2,3,4|1,2,3,5|1,2,4,5|2,3,4,5|2,3,4,1|2,3,5,1|3,4,5,1|3,4,5,2|3,4,5,1 数字个数越多,组成就越多用VB怎样来实现,最好能写个...
相似回答
