《计算机程序设计基础》教学课件：8_4_数组及实例.pptVIP

数组在内存中占据一片连续的存储空间： 如: Dim a(1 to 8) As Integer 一维数组的简单应用： Option Base 1 Private Sub Form_click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = i Print a(i); Space(1); Next i End Sub 例. 建立一个5行5列的二维数组，两条对角线上的元素为1，其余元素为0。 Private Sub Form_click() Dim s(1 To 5, 1 To 5) As Integer, i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 If i = j Or i + j = 6 Then s(i, j) = 1 Else s(i, j) = 0 End If Print s(i, j); Next j Print Next i End Sub 多维数组的简单应用 Option Explicit