大学VB课件4.ppt

复习 第六章 数 组 数组的定义、结构 数组的赋值 动态数组 控件数组 经典实例（选择、查找） 选择题 在Visual Basic中，设有声明语句 Option Base 0 Dim B (-1 To 10, 2 To 9, 20) 则数组B中全部元素的个数是_____。 2016 2310 1800 1848 1个二维数组可以存放1个矩形。在程序开始有语句Option?Base?0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是_____。 A)Dim?a(-2?To?0,2)?AS?Integer????? B)Dim?a(3,2)?AS?Ingeger C)Dim?a(4,3)AS?Ingeger????? D)Dim?a(-1?To?-4,-1?To?-3)AS?Ingeger 在窗体上画一个命令按钮，编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10), p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub 运行程序后，单击命令按钮，输出结果是_____。 A)35 B)28 C)33 D)37 在窗体上画一个命令按钮，然后编写代码： Option Base 1 Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub 运行程序后，单击命令按钮，输出结果是_____。 A)6 9 B)7 10 C)8 11 D)9 12 7 10 8 11 9 12 10 13 若在某窗体模块中有如下事件过程?Private?Sub?Command1_Click(Index?AS?Integer)?????……End?Sub??则以下叙述中正确的是_______A)?此事件过程与不带参数的事件过程没有区别B)?有1个名称为Command1的窗体,单击此窗体则执行此事件过程C)?有1个名称为Command1的控件数组,数组中有多个不同类型控件D)?有1个名称为Command1的控件数组,数组中有多个相同类型控件 小结选择题 选择题相对来说比较简单，主要题型有 1、数组的概念 2、语句的使用（ReDim、Erase、Ubound、For-Each） 3、看程序写结果。（在草稿纸上把步骤写出来！） Private Sub Command1_Click() Dim a(5) For I = 0 To 4 a(I) = I + 1 t = I + 1 If t = 3 Then Print a(I); a(t - 1) = a(I - 2) Else a(t) = a(I) End If If I = 3 Then a(I + 1) = a(t - 4) a(4) = 1 Print a(I); Next I End Sub 运行程序后，单击命令按钮，输出结果是_______。 下面程序的输出是______。 Private Sub Form_Click() Dim a(5) Dim a a = 8 a(2) = 10