Question

vb 1-5的数用数组排列成五行五列

Answer 1

思路：用双层循环去找最大值，然后用两个变量通过双层循环去找刚才找到的最大值，如果对比相同就把一维和二维下标赋值给两个变量，完成，程序细节可以hi我

Answer 2

以下经测试可以 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 a(1, i) = i Next i For i = 2 To 5 For j = 1 To 4 a(i, j) = IIf(i + j - 1 > 5, i + j - 6, i + j - 1) Next j a(i, j) = a(i - 1, 1) Next i For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print Next i End Sub