vb 数组VB编程 数组

VB编程 数组

展开全部 ’二维数组写简单一点，或者你可以变换一下： Private Sub Command1_Click() Dim a(1 To 5, 1 To 5) As Integer, i, j, m For i = 1 To 5 For j = 1 To i m = m + 1 a(j, i) = m Next For j = i - 1 To 1 Step -1 m = m + 1 a(i, j) = m Next Next For i = 1 To 5 For j = 1 To 5 Print a(i, j), Next Print Next End Sub ‘修改成一维数组，头有点大： Private Sub Command2_Click() Dim a(1 To 25) As Integer, i, j, m, n For i = 1 To 5 For j = 1 To i m = m + 1 n = (j - 1) * 5 + i a(n) = m Next For j = i - 1 To 1 Step -1 m = m + 1 n = (i - 1) * 5 + j a(n) = m Next Next n = 0 For i = 1 To 25 n = n + 1 If n Mod 5 = 0 Then Print a(i) Else Print a(i), Next End Sub