数据库课件12.ppt

文档介绍：程序部分复****br/>数组:
一维数组
Dim A(1 to 10) 定义上下限数组元素:A(1),A(2),…,A(10)
Dim A(10) 仅定义上限数据元素:A(0),A(1),…,A(10)
Dim A(5),B(10) 定义两个数组:A有6个元素、B有11个元素
二维数组:
Dim x(1 to 2,1 to 3) 共6个元素
Dim x(2,3) 共12个元素
数组的重复定义:
Dim a() As ……‘分配基地址
n = InputBox(“……”)
ReDim a(n, n)
使用符号常量
Const n As Integer = 5
Dim a(n, n) As ……
程序设计作业:
一、读程序分析结果
1. Dim i, k, a(10), b(3) As Integer
k = 5
For i = 1 To 10
a(i) = i
Next
For i = 1 To 3
b(i) = a(i * i)
Next
For i = 1 To 3
k = k + b(i) * 2
Next
k
b(1)=a(1*1)=1
b(2)=a(2*2)=4
b(3)=a(3*3)=9
i=1:
k=5+b(1)*2
=7
i=2:
k=7+b(2)*2
=15
i=3:
k=15+b(3)*2
=33
2.
Dim i, j, a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = (i - 1) * 3 + j
Next
Next
For i = 3 To 4
For j = 3 To 4
a(i, j);
Next

Next
a(1, 1) a(1, 2) a(1, 3) a(1, 4)
a(2, 1) a(2, 2) a(2, 3) a(2, 4)
a(3, 1) a(3, 2) a(3, 3) a(3, 4)
a(4, 1) a(4, 2) a(4, 3) a(4, 4)
1 2 3 4
4 5 6 7
7 8 9 10
10 11 12 13
输出:a(3,3)、a(3,4)、a(4,3)、a(4,4)
3.
Dim i, j, a(10) As Integer
For i = 1 To 10
a(i) = 12 - i
Next
j = 6
a(2 + a(j))
11、10、9、8、7、6、5、4、3、2
a(6)=6
2+6a(8)
过程:240页
实例求解:
思路:
C
m
n
=
m!
n!(m-n)!
①输入 m 和 n 的值
②分别计算出m!、n!和(m-n)!
③输出计算结果 C
*求 m! 的处理程序为:
┇
i = 1
j = 1
For i = 1 To m
j = j * i
Next i
变量 J 保存的数据为M!
输入m、n的值
I=1
J=1
FOR I=1 TO M
J=J*I
NEXT I
C=J ‘C=m!
I=1
J=1
FOR I=1 TO N
J=J*I
NEXT I ‘计算n!
C=C/J ‘C=m!/n!
I=1
J=1
FOR I=1 TO M-N
J=J*I
NEXT I ‘计算(M-N)!
C=C/J
C
Y=M
Y
Y=N
Y
Y=M-N
Y
Y=M
I=1
J=1
FOR I=1 TO Y
J=J*I
NEXT I
C=J
Y=N
I=1
J=1
FOR I=1 TO Y
J=J*I
NEXT I
C=C/J
Y=M-N
I=1
J=1
FOR I=1 TO Y
J=J*I
NEXT I
C/J
存入另过程JS()
过程
实例求解:
C
m
n
=
m!
n!(m-n)!
Y=M
I=1
J=1
FOR I=1 TO Y
J=J*I
NEXT I
C=J
Y=N
I=1
J=1
FOR I=1 TO Y
J=J*I
NEXT I
C=C/J
Y=M-N
I=1
J=1
FOR I=1 TO Y
J=J*I
NEXT I
C/J
… SUB JS(…)
I=1
J=1
FOR I=1 TO Y
J=J*I
NEXT I
End Sub
CALL JS(…)
CALL JS(…)
CALL JS(…)
输入m、n的值
Y=M
CALL JS(…)
C=J
Y=N
CALL JS(…)
C=C/J
Y=M