大学VB课件4.ppt

复习第六章数组
数组的定义、结构
数组的赋值
动态数组
控件数组
经典实例(选择、查找)
选择题
在Visual Basic中,设有声明语句
Option Base 0
Dim B (-1 To 10, 2 To 9, 20)
则数组B中全部元素的个数是_____。
2016
2310
1800
1848
A
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
B
在窗体上画一个命令按钮,编写如下程序:
Option Base 1
Private mand1_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
C
在窗体上画一个命令按钮,然后编写代码:
Option Base 1
Private mand1_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
D
若在某窗体模块中有如下事件过程 Private mand1_Click(Index AS Integer)     ……End Sub  则以下叙述中正确的是_______A) 此事件过程与不带参数的事件过程没有区别B) mand1的窗体,单击此窗体则执行此事件过程C) mand1的控件数组,数组中有多个不同类型控件D) mand1的控件数组,数组中有多个相同类型控件
D
小结选择题
选择题相对来说比较简单,主要题型有
1、数组的概念
2、语句的使用(ReDim、Erase、Ubound、For-Each)
3、看程序写结果。(在草稿纸上把步骤写出来!)
Private mand1_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
Print a, a(5)
End Sub
分析:程序运行后将显示“编译错误:当前范围内的声明重复”,因为在同一个过程中,数组名不能与变量名同名。
Option Explicit
Option Base 1
Dim a() As Integer, m As Integer, n As Integer
Dim k As Integer, mm As Integer
Dim flag As Boolean, f As Boolean
Private Sub Form_click()
Dim i As Integer, j As Integer
m = InputBox("输入行数")
n = InputBox("输入列数")
Randomize
For i = 1 To m
For j = 1 To n
ReDim a(i, j)
a(i, j) = Int(Rnd * 90) + 10
Print a(i, j);
Next j
Print