VBNET北京印刷学院(精).pptVIP

第5章 数组和自定义类型 5.1 数组的概念 5.2 数组的基本操作和排序 5.3 列表框和组合框控件 5.4 自定义类型及其数组 5.5 综合应用 5.1 数组的概念 5.1.2数组声明 多维数组声明 5.1.3 动态数组及声明 定义动态数组大小注意： Private Sub Command1_Click() Dim x() As Integer Dim n%, i% n = Val(InputBox(输入序列数)) ReDim x(n - 1) x(0) = 1 x(1) = 1 For i = 2 To n - 1 x(i) = x(i - 1) + x(i - 2) Next i For i = 0 To n - 1 Print x(i), If (i + 1) Mod 5 = 0 Then Print Next End Sub 5.2 数组的基本操作 2、数组的输出 Private Sub Form_Click() Dim sc%(4, 4) Picture1.Print 产生方阵数据 For i = 0 To 4 For j = 0 To 4 sc(i, j) = i * 5 + j Picture1.Pri