ja11

按地址传:B=2J;B、J公用一个地址 J改为3、B也自动变为3
编程必做题：
Dim a(), b(), i, j, k, n, max, min As Integer Dim m As Long n = Val(InputBox("N = ")) 定义数据 m=n*n ReDim a(1 To m), b(1 To n, 1 To n) For i = 1 To m ‘生成数组A并输出 a(i) = Int(Rnd() * 100) Do While a(i) < 10 a(i) = Int(Rnd() * 100) Loop Debug.Print a(i); Next Debug.Print k=1 For i = 1 To n For j = 1 To n ‘生成数组B b(i, j) = a(k) Debug.Print b(i, j); k=k+1 Next
数组转换：一维转为二维(方法一)
Dim a(1 To 25), b(5, 5), i, j As Integer For i = 1 To 25 a(i) = i Next i For i = 1 To 5 For j = 1 To 5 If i >= j Then b(i, j) = a(i) ^ 2 - j + 1 Else b(i, j) = a(j - 1) ^ 2 + i End If Debug.Print b(i, j); Next j Debug.Print Next i
•Static与Private的区别： - Private：子过程结束后该过程占用的内存单元被释放； - Static：当程序退出后，过程中变量的值仍被保留。所占内存 单元没有释放。当再次进入子程序后。原来的变量值可继续使用。
Public Sub aa() Dim A As Integer, B As Integer A = 1: B = 2 Call AAA() '不传递参数仅是过程调用 Debug.Print A, B Call AAA() End Sub 释放空间i和j Private Sub AAA() I = I + 1: J = J + 1 再次申请临时空间 申请临时空间i和ji和j Debug.Print I, J 并计算、输出 End Sub
数组转换：一维转为二维(方法二)
Dim a(1 To 25), i, b(1 To 5, 1 To 5) Dim m, n, j, x, y As Integer For i = 1 To 25 a(i) = i Next j=0 For m = 1 To 5 For n = 1 To m j=j+1 b(n, m) = a(j) Next For n = m - 1 To 1 Step -1 j=j+1 b(m, n) = a(j) Next Next For x = 1 To 5 For y = 1 To 5 Debug.Print b(x, y); Next Debug.Print Next
Public Sub xx(x1, x2, x3, x4) x4 = x2 * x2 - 4 * x1 * x3 x4=0 Select Case x4 Case Is < 0 x4 = 100 Case Is > 0 x4 = 200 Case Is = 0 x4 = 10 End Select End Sub
数组转换：一维转为二维(方法一)
Dim a(1 To 25), b(5, 5), i, j As Integer For i = 1 To 25 a(i) = i Next i For i = 1 To 5 For j = 1 To 5 If i >= j Then b(i, j) = a(i) ^ 2 - j + 1 Else b(i, j) = a(j - 1) ^ 2 + i End If Debug.Print b(i, j); Next j Debug.Print Next i
复 习 一
过程调用：
子过程名 [<参数表>] 或： Call 子过程名([<参数表>])
a=x1 a1=x1 d=x4 b=x2 a2=x2 c=x3 a3=x3 d=x4 a4=x4
ቤተ መጻሕፍቲ ባይዱ
Public Sub aa() – 习题10 a = 1: b = 2: c = 1: d = 2 Call xx(a, b, c, d) Debug.Print d 10 a1 = 1: a2 = 3: a3 = 1: a4 = 3 Call xx(a1, a2, a3, a4) Debug.Print a4 200 x1=a1,1 x1=a,1 x1=6 Call xx(6, 8, 10, d) x2=a2,3 x2=b,2 x2=8 Debug.Print d 100 x3=a3,1 x3=c,1 x3=10 End Sub x4=a4,3 x4=d,2 x4=10 Public Sub xx(x1, x2, x3, x4) x4 = x2 * x2 - 4 * x1 * x3 x4=-176 x4=0 x4=5 Select Case x4 Case Is < 0 x4 = 100 Case Is > 0 x4 = 200 Case Is = 0 x4 = 10 End Select End Sub
复 习 一
1. 动态数组：ReDim [PRESERVE] 2. 过程调用： 子过程名 [<参数表>]
或：
Call 子过程名([<参数表>])
Public Sub aa() – 习题10 a = 1: b = 2: c = 1: d = 2 Call xx(a, b, c, d) Debug.Print d a1 = 1: a2 = 3: a3 = 1: a4 = 3 Call xx(a1, a2, a3, a4) Debug.Print a4 Call xx(6, 8, 10, d) Debug.Print d End Sub Public Sub xx(x1, x2, x3, x4) x4 = x2 * x2 - 4 * x1 * x3 Select Case x4 Case Is < 0 x4 = 100 Case Is > 0 x4 = 200 Case Is = 0 x4 = 10 End Select End Sub
240页说明⑷ Public、Static、Private定义„„
运行过程bb结果为：5 8 •过程AAA省略Public、Static、 Private默认为Public即该过程 为公有过程，可以被任何过程 调用。
240页说明⑷
仍然运行过程bb结果出错 •Private和Static定义的过程为局部过程，只能在 定义它的模块中被其他过程调用。
2.
Public Sub aa() Dim A As Integer, B As Integer A = 1 ：B = 2 Call AAA(A, B) 结果为2、3 (形参的改变影响到了实参) Debug.Print A, B A = 1 ：B = 2 Call BBB(A, B) Debug.Print A, B A = 1 ：B = 2 Call CCC(A, B) 按地址传递：A=1I；A、I共用一个地址 Debug.Print A, B B=2J；B、J也公用一个地址 End Sub Sub AAA(I As Integer, J As Integer) I = I + 1：J = J + 1 I改为2、A也自动变为2 End Sub
J改为3、B也自动变为3
Sub BBB(ByVal I As Integer, ByVal J As Integer) I = I + 1 ：J = J + 1 End Sub Sub CCC(ByVal I As Integer, J As Integer) I = I + 1 ：J = J + 1 End Sub
B=2J;B、J也不公用一个地址,J为临时地址
临时地址J改为3、B也不变仍为2
2.
Public Sub aa() Dim A As Integer, B As Integer A = 1 ：B = 2 Call AAA(A, B) 结果为2、3 (形参的改变影响到了实参) Debug.Print A, B A = 1 ：B = 2 Call BBB(A, B) 结果为1、2 (形参的改变不影响实参) Debug.Print A, B A = 1 ：B = 2 Call CCC(A, B) 结果为1、3 (形参的改变不影响实参) Debug.Print A, B End Sub Sub AAA(I As Integer, J As Integer) I = I + 1 ：J = J + 1 End Sub Sub BBB(ByVal I As Integer, ByVal J As Integer) I = I + 1 ：J = J + 1 按值传:A=1I;A、I不共用一个地址,I为临时地址 End Sub Sub CCC(ByVal I As Integer, J As Integer) I = I + 1：J = J + 1 临时地址I改为2、A不变还为1 End Sub
完数： Dim i, j, s As Integer Dim t As String For i = 2 To 10000 s=1 t = "its factors are 1," For j = 2 To (i - 1) ‘找i的因子 If i Mod j = 0 Then s=s+j t = t + "," + Str(j) End If Next j If s = i Then Debug.Print i; t End If Next i