计算机程序设计强化复习.ppt

《计算机程序设计强化复习.ppt》由会员分享，可在线阅读，更多相关《计算机程序设计强化复习.ppt（98页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、计算机程序设计强化复习,Visual Basic 6.0,2,全文结构,VB语法知识基础 VB语法知识进阶 常用算法及编程技巧 界面元素与程序调试 模拟试题,3,第1章 程序代码的组织方式,1.1 程序代码的基本构成 字符集 关键字 标识符 运算符 表达式 语句及语法规则 语义 Print a Print a, Print a;,4,第1章 程序代码的组织方式,1.2 VB中的过程 用过程编程的两大好处 VB中过程的种类 事件过程系统提供的过程 通用过程用户自定义过程 1.3 VB中的模块 窗体模块 标准模块 类模块,5,第2章 数据类型、常量与变量,2.1 基本数据类型 数值型 字符串型 逻

2、辑型 日期型 变体型 数据类型转换 数值类型间的转换 数值类型与字符串类型的转换 数值类型与逻辑类型的转换 字符串类型与逻辑类型的转换 Print True+3显示结果为2 Print “123”+100显示结果为223 Print #5/1/2000# + 3显示结果是00-5-4,6,第2章 数据类型、常量与变量,2.2 构造数据类型 数组 固定大小数组 动态数组 自定义类型 2.3 常量与变量 字面常量 符号常量 系统内部常量VbRed、VbCrLf等 用户自定义符号常量 Const Pi As Single =3.14 变量,7,第3章 运算符、表达式与公共函数,3.1 VB中的运算符

3、与表达式 算术运算符与算术表达式 字符串连接符 关系运算符与关系表达式 逻辑运算符与逻辑表达式 运算符的优先级 算术运算符 、-、*或/、Mod、+或- 字符运算符 +或b Print a, Print b Print a Print b Cls 方法、Clear方法,12345678901234567890 3 5 3 5 3 5,12,第6章 选择结构,6.1 IfThen 结构语句 标准分支选择结构 例6-1：写出根据键盘输入的百分制学生成绩判断该学生是否及格并输出“Pass”或“Fault”。 单分支结构 例6-2：写出根据键盘输入的百分制学生成绩判断该学生是否及格并将及格学生的成绩输

4、出的程序片段。 多分支结构 例6-3：写出将键盘输入的百分制学生成绩转换成五分制并输出的程序片段。,13,第6章 选择结构,6.2 Select Case 结构语句 一般形式 测试项的形式 例6-4：在 Select Case X 结构中，描述判断条件3X7的测试项应该写成 。 A. Case 3 X7B. Case 3 X, X7 C. Case Is7 , Is3D. Case 3 To 7,14,第7章 循环结构,7.1 DoLoop 结构语句 Do-While循环结构 Do-Until循环结构,“当”型循环,“直到”型循环,15,第7章 循环结构,7.2 ForNext 结构语句 一般

5、形式 For=ToStep Exit For Next For循环与Do循环的比较 循环嵌套,16,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用 Sub过程的定义 Private | Public Static Sub 过程名 (参数列表) 局部变量和常量声明 语句体 Exit Sub End Sub Sub事件过程的定义 Sub通用过程的定义,17,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用 Function过程的定义 Private | Public Static Function 函数名 (参数列表) As 数据类型 局部变量和常量声

6、明 语句体 Exit Function 函数名=表达式 End Function 例8-5：以下有关过程的说法中错误的是 。 A. 在Sub或Function过程中不能再定义其他Sub或Function过程 B. 在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合。 C. 递归过程既可以是递归Function过程，也可以是递归Sub过程。 D. 在调用过程时，形参为数组的参数对应的实参只能是数组。,18,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用 Function过程与Sub过程的区别 例8-6：分别用Sub过程和Function过程编写一个求

7、n!的自定义过程。,Sub过程： Private Sub fact(n As Integer, f As Long) Dim i As Integer f = 1 For i = 1 To n f = f * i Next i End Sub,Function过程： Private Function fact(n As Integer) As Long Dim i As Integer fact = 1 For i = 1 To n fact = fact * i Next i End Sub,19,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用 Sub过程与Funct

8、ion过程的调用 Sub事件过程的调用 Sub通用过程的调用 Call 语句调用：Call (实参表) 将过程名作为语句调用：过程名 实参表 Function过程的调用 变量=过程名（实参表）,20,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用 过程的嵌套调用 过程调用的注意事项 把Sub过程名作为语句调用时，参数不需要加括号 Function过程无参时，括号不可省，其调用方法与公共函数类似 由于Function过程本身返回值，所以一般不使用Sub通过过程的调用方法，因为这两种方法将放弃函数名的返回值 若对Function过程的调用出现在表达式中，则其运算优先级最高,

9、21,第8章 过程设计,8.2 过程调用时的参数 参数传递的限制 形参与实参的个数、类型和顺序必须严格匹配,22,第8章 过程设计,8.2 过程调用时的参数 按值传递ByVal 数组、自定义记录类型的变量、对象变量不能按值传递；常数和表达式必须按值传递 按值传递的参数，形参和实参的类型只需要相容即可 按地址传递 ByRef,23,第8章 过程设计,8.3 递归过程 递归过程的定义 在过程定义中调用自身或以其他方式间接调用自身的过程 可以递归Sub过程，也可以递归Function过程 递归过程的构成条件 有对本身的调用语句 有一个结束递归过程的条件（终止条件或边界条件） 三题递归相关 求 N!

10、求 菲布拉及数列 求 最大公约数,24,第8章 过程设计,8.4 变量的作用域与生命期 变量的作用域 在窗体模块中，不能定义数组、定长字符串、用户自定义类型等为全局变量。,25,第8章 过程设计,8.4 变量的作用域与生命期 变量的生命期 8-22：若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用关键字在该过程中定义局部变量。 A. DimB. PrivateC. PublicD. Static 同名变量,26,第9章 文件操作,9.1 文件的基本概念 文件的概念 文件类型 文件操作步骤 9.2 基本文件操作控件 驱动器列表框 目录列表框 文件列表框,27,第9章 文件操作,9.3

11、 常用文件操作语句与文件操作函数 Open语句 Close语句与Reset语句 Lock和Unlock语句 Seek语句 Print #和Write #语句 Input#和Line Input # 语句 Put # 和 Get #语句 常用文件操作函数,28,第10章 算法中使用的基本技巧,10.1.1 交换 t=a : a=b : b=t t=b: b=a : a=t t=a : a=b : b=c : c=t a=a+b : b=a-b : a=a-b 10.1.2 累加、累乘 n=n+1 Sum=Sum+n P=P*n 10.2 最大/小值问题 max=a(1) for i=2 to U

12、bound(a) if a(i)max then max=a(i) next i,29,第10章 算法中使用的基本技巧,10.3.1 穷举 10-1：用100元买100只鸡，公鸡每只5元，母鸡每只3元，小鸡每1元3只，问可以买多少只公鸡、母鸡和小鸡？有多少种组合？ Private Sub Command1_Click() Dim X As Integer, Y As Integer, Z As Integer Dim Count As Integer Count = 0 For X = 0 To Fix(100 / 5) For Y = 0 To Fix(100 / 3) For Z = 0

13、To 100 If X * 5 + Y * 3 + Z / 3 = 100 And X + Y + Z = 100 Then Print X, Y, Z Count = Count + 1 End If Next Next Next Print 组合个数：; Count End Sub,30,第10章 算法中使用的基本技巧,10-2：求出所有的水仙花数，如153=13+53+33 Private Sub Command1_Click() Dim X As Integer, Y As Integer, Z As Integer For X = 1 To 9 For Y = 0 To 9 For

14、Z = 0 To 9 If X 3 + Y 3 + Z 3 = 100 * X + 10 * Y + Z Then Print 100 * X + 10 * Y + Z End If Next Next Next End Sub,31,第10章 算法中使用的基本技巧,10.3.2 迭代 10-3：设方程为4*x2-3*x-7=0，给出不精确的初始根x0=2，利用公式：xn+1=xn-f(xn)/f(xn) n=0，1，2求出方程的近似根，直到 |xn+1-xn|0.00001。 Dim X0 As Double, X1 As Double X0 = 2 Do X1 = X0 - (4 * X0

15、 2 - 3 * X0 - 7) / (8 * X0 - 3) If Abs(X1 - X0) 0.00001 Then Exit Do X0 = X1 Loop Print X1,Dim X0 As Double, X1 As Double X1 = 2 Do X0 = X1 X1 = X0 - (4 * X0 2 - 3 * X0 - 7) / (8 * X0 - 3) Loop Until Abs(X1 - X0) 0.00001 Print X1,32,第10章 算法中使用的基本技巧,10.4.1 递推 10-4：已知一对成熟的兔子每月可以生一对小兔子。出生的小兔子两个月后成熟，就可再

16、生一对小兔子。问一对成熟的兔子在一年内能繁殖成多少对兔子？ 10-5：细胞分裂，每分裂一次要用3分钟，30分钟后有细胞2048个。问开始时有多少个细胞？ Dim F(10) As Integer, i As Integer F(10) = 2048 For i = 9 To 0 Step -1 F(i) = F(i + 1) / 2 Next i Print F(0) 10.4.2 递归,Private Sub Command1_Click() Print 开始时的细胞数：; f(0) End Sub Function f(n As Integer) As Integer If n = 10

17、Then f = 2048 Else f = f(n + 1) / 2 End If End Function,f=f(n-1)*2,33,第11章 数列、级数求和及矩阵运算问题,11.1 数列问题 固定公式 11-1：利用公式 k*k+k+17 生成一组两位数的整数。 递推公式 11-2：利用初值 x1=15 以及公式 xi+1=(3*xi+153) mod 256产生一个10个数的数列。 Dim x1 As Integer, x2 As Integer Dim count As Integer x1 = 15: Print x1 For count = 2 To 10 x2 = (3 *

18、x1 + 153) Mod 256 Print x2 x1 = x2 Next count,Dim a(1 To 10) As Integer Dim count As Integer a(1) = 15: Print a(1) For count = 2 To 10 a(count) = (3 * a(count - 1) + 153) Mod 256 Print a(count) Next count,34,第11章 数列、级数求和及矩阵运算问题,11.2.1 级数求和 确定通项 确定求和结束条件 11-3：求 cos(x)=1-x2/2!+x4/4!-+(-1)n+1x2(n-1)/2(

19、n-1)!+ n=1，2， 直到级数的第n项的绝对值小于等于10-6为止。,Private Sub Command1_Click() Const x As Single = 3.14159 / 3 Dim Sum As Single, N As Integer, T As Single N = 1: T = 1 Do Sum = Sum + T N = N + 1 T = -T T = T * x 2 / (2 * (N - 1) * (2 * N - 3) Loop While Abs(T) = 10 -10 Print Sum End Sub,35,Private Sub Command1

20、_Click() Const x As Single = 3.14159 / 3 Dim Sum As Single, n As Integer, T As Single n = 1: T = 1 Do Sum = Sum + T n = n + 1 T = (-1) (n + 1) * x (2 * (n - 1) /F(2 * (n - 1) Loop While Abs(T) = 10 -10 Print Sum End Sub q Function F(ByVal k As Integer) As Double Dim i As Integer F = 1 For i = 2 To k

21、 F = F * i Next i End Function,cos(x)=1-x2/2!+x4/4!-+(-1)n+1x2(n-1)/2(n-1)!+,36,第11章 数列、级数求和及矩阵运算问题,11.2.2 连乘积 11-4： 到通项接近1时停止计算。,Private Sub Command1_Click() Dim Sum As Single, T As Single Sum = 2: T = Sqr(2) Do Sum = Sum * 2 / T T = Sqr(2 + T) Loop While Abs(2 / T - 1) = 10 -10 Print Sum End Sub,3

22、7,第11章 数列、级数求和及矩阵运算问题,11.3.1 矩阵的生成和打印 生成数组 打印数组 11.3.2 矩阵的行列交换 11.3.3 矩阵的变换 11-10：将一个4行4列矩阵进行转置 11-11：求出一给定矩阵的旋转矩阵。,38,第11章 数列、级数求和及矩阵运算问题,11.3.4 寻找某些特殊点 11-12：求6*5数组的鞍点，鞍点是指本行最大、本列最小的元素。 11.3.5 特殊矩阵 按以下样式输出5行杨辉三角。 1 11 1 2 1 1 33 1 1 4 6 4 1,Private Sub Command1_Click() Dim A(5, 5) As Integer, I As

23、 Integer, J As Integer For I = 1 To 5 A(I, 1) = 1 A(I, I) = 1 Next I For I = 3 To 5 For J = 2 To I - 1 A(I, J) = A(I - 1, J - 1) + A(I - 1, J) Next J Next I For I = 1 To 5 Print Space(5 - I); For J = 1 To I Print CStr(A(I, J); ; Next J Print Next I End Sub,39,11.3.6 综合例题,11-4：标记出5*5方阵中每一行最小元素的位置。如果某

24、一行有多个数值相等的最小元素，也要同时标记出来。标记方式为每一行的最小元素为0，其他元素为1。,Option Explicit Option Base 1 Private A(5, 5) As Integer Private Sub Form_click() Text1 = Dim I As Integer, J As Integer Randomize For I = 1 To 5 For J = 1 To 5 A(I, J) = Int(20 - 10 + 1) * Rnd + 10) Text1.Text = Text1 Next i Print Flag = False N = 120

25、 Low = 1: High = 10 Do Midd = Int(Low + High) / 2) If a(Midd) = N Then Print CStr(N); is in array ; CStr(Midd) Flag = True Exit Do Else If a(Midd) N Then High = Midd - 1 Else Low = Low + 1 End If End If Loop While Low = High If Not Flag Then Print Cant find the Number ; CStr(N); ! End Sub,44,第13章 因数

26、、最大公约数与素数等问题,13.1 整数的因数计算问题 穷举法求整数的所有因子 动态数组保存整数的所有因子 整数的连乘积表达 24=2223,Private Sub Command1_Click() Dim i As Integer, N As Integer N = InputBox(Please Input a number) i = 2 Print CStr(N); =; Do While i N If N Mod i = 0 Then Print CStr(i); *; N = N i i = 2 Else i = i + 1 End If Loop Print CStr(N) End

27、 Sub,45,第13章 因数、最大公约数与素数等问题,13.2 最大公约数与最小公倍数问题 最大公约数的求法 穷举法 欧几里德法 递归法 最小公倍数的求法 穷举法 利用最大公约数求最小公倍数,46,穷举法 求最大公约数,Private Sub Command1_Click() Dim R As Integer, M As Integer, N As Integer, T As Integer M = InputBox(Please Input number A) N = InputBox(Please Input number B) 确认MN If M N Then T = M: M = N

28、: N = T End If For R = 1 To N If M Mod R = 0 And N Mod R = 0 Then T = R Next R MsgBox (最大公约数是： Sum End Sub,52,逆序数,Private Sub Command1_Click() Dim M As Integer, I As Integer, N As Integer M = InputBox(Please input a number:) Print M; 的逆序数是：; Do While M = 1 N = N * 10 + M Mod 10 M = M 10 Loop Print N

29、 End Sub,53,第14章 整数拆分、进制转换,14.2 进制转换 14.2.1 十进制转换为二进制 14.2.2 十进制转换为十六进制 14.2.3 二进制转换为十进制 14.2.4 十六进制转换为十进制 14.2.5 二进制转换为八进制,54,十进制转换为二进制,Private Sub Command1_Click() Dim M As Integer, I As Integer, N As String M = InputBox(Please input a number:) Do While M = 1 N = CStr(M Mod 2) A(I) = 0: Js = Js +

30、1: Count = 0 Loop While Js 14,58,第15章 字符运算及圆圈数问题,15.2 圆圈数问题 15.2.2 圆圈中的特殊点 例15-4：将20个两位正整数排成圆圈依次编号。找出其中的拐点元素（即指它比左右相邻元素都大或都小），并输出拐点元素的值及位置。,Dim A(1 To 20) As Integer Dim I As Integer, Count As Integer Dim Left As Integer, Right As Integer For I = 1 To 20 A(I) = Int(99 - 10 + 1) * Rnd + 10) Print A(I

31、); Next I Print For Count = 1 To 20 Left = IIf(Count = 1, 20, Count - 1) Right = IIf(Count = 20, 1, Count + 1) If A(Count) A(Left) And A(Count) A(Right) Or A(Count) A(Left) And A(Count) A(Right) Then Print A(Count); Count End If Next Count,59,第15章 字符运算及圆圈数问题,15.2 圆圈数问题 15.2.3 翻转问题 例15-5：翻转硬币。设硬币画面为1

32、，字面为0。14个硬币画面向上围成一圈，按顺时针方向数，凡数到可被3整除的数时，将硬币翻转。问数到100以后硬币的状态。,Private Sub Command1_Click() Dim a(1 To 14) As Integer Dim I As Integer, Id As Integer For I = 1 To 14 a(I) = 1 Next I List1.AddItem F(a) Id = 1 For I = 1 To 100 If I Mod 3 = 0 Then a(Id) = IIf(a(Id) = 0, 1, 0) List1.AddItem F(a) End If Id

33、 = IIf(Id 14, Id + 1, 1) Next I End Sub Function F(Arr() As Integer) As String Dim I As Integer For I = 1 To UBound(Arr) F = F N; M End Function,16 6 10 40 12 28 56,Back,69,示例变量的作用域,8-19：在多窗体程序中，可以在标准模块或某个窗体模块的通用声明处，分别用语句定义一个在所有窗体模块都可以引用的变量IntA。 A. Private IntA As Integer , Public IntA As Integer B.

34、 Public IntA As Integer , Private IntA As Integer C. Public IntA As Integer , Public IntA As Integer D. Private IntA As Integer , Private IntA As Integer 8-20：可以在中，使用语句 Public PubStr As String *8 定义一个定长字符串。 A. 窗体模块B. 标准模块C. 类模块D. 三者均可,70,示例变量的作用域,8-21：单击Command1后,下列程序的输出结果是什么? Private Sub Command1_C

35、lick() Dim a As Integer, b As Integer a = 1: b = 2 Call Pro(a, b) Debug.Print a, b End Sub Private Sub Pro(c As Integer, d As Integer) Dim a As Integer, b As Integer c = a + b d = a - b Debug.Print c, d End Sub,0 0 00,Back,71,示例递归过程,8-17：单击Command1后，程序的输出结果是什么？ Private Sub Command1_Click() F 3 End S

36、ub Public Function F(M As Integer) As Integer Dim value As Integer If M = 0 Then value = 3 Else value = F(M - 1) + 5 End If F = value Debug.Print M, value End Function,0 3 1 8 2 13 3 18,72,示例递归过程,试用递归和非递归两种方法编写求Fibonacci数列第N项的过程。,非递归方法： Private Function F1(N As Integer) As Long Dim i As Integer, a1

37、As Long, a2 As Long If N = 1 Or N = 2 Then F1 = 1 Else a1 = 1: a2 = 1 For i = 3 To N F1 = a1 + a2 a1 = a2 a2 = F1 Next i End If End Function,递归方法： Private Function F2(N As Integer) As Long If N = 1 Or N = 2 Then F2 = 1 Else F2 = F2(N - 1) - F2(N - 2) End If End Function,Back,73,示例传值调用/传址调用,8-10：下列程序

38、的输出结果是什么？ Private Sub Command1_Click() Dim x As Integer, y As Integer x = 10: y = 20 Print 调用前; Print x=; x, y=; y Call Exchange(x, y) Print 调用后; Print x=; x, y=; y End Sub Private Sub Exchange(ByVal m As Integer, ByVal n As Integer) Print 调用前; Print m=; m, n=; n m = m + 10 n = n - 10 Print 调用后; Pri

39、nt m=; m, n=; n End Sub,调用前x= 10 y= 20 调用前m= 10 n= 20 调用后m= 20 n= 10 调用后x= 10 y= 20,74,示例传值调用/传址调用,8-12：下列程序的输出结果是什么？ Private Sub Command1_Click() Dim x As Integer, y As Integer x = 10: y = 20 Print 调用前; Print x=; x, y=; y Call Exchange(x, y) Print 调用后; Print x=; x, y=; y End Sub Private Sub Exchang

40、e(m As Integer, n As Integer) Print 调用前; Print m=; m, n=; n m = m + 10 n = n - 10 Print 调用后; Print m=; m, n=; n End Sub,调用前x= 10 y= 20 调用前m= 10 n= 20 调用后m= 20 n= 10 调用后x= 20 y= 10,75,示例传值调用/传址调用,8-11：在语句Public Sub Sort( i As Integer)中i是一个按传递的参数。 A. 地址B. 值C. 变量D. 常量 8-13：程序中有两个过程Private Sub Fun1( S A

41、s String )和 Private Sub Fun2( a( ) As String * 6)，在调用过程中用Dim St(6) As String *6 定义了一个字符串数组。下面调用语句中正确的是。 Call Fun1(St(3)Call Fun2(St) Call Fun1(St)Call Fun2(St(6) A. B. C. D. 8-14：调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是。 A. Call Convert(X)B. Call Convert(x*1) C. Convert (X)D. Con

42、vert X,76,示例传值调用/传址调用,8-15：单击命令按钮Command1，立即窗口上的输出结果是什么？ Private Sub Command1_Click() Dim i As Integer, j As Integer Dim k As Integer i = 1: j = 2 k = fun(i, fun(i, j) + i + j Debug.Print i=; i; j=; j; k=; k End Sub Function fun(a As Integer, ByVal b As Integer) As Integer a = a + b b = a + b fun =

43、a + b End Function,i= 11 j= 2 k= 43,77,示例传值调用/传址调用,8-16：单击命令按钮Command1，立即窗口上的输出结果是什么？ Private Sub Command1_Click() Dim M As Integer, N As Integer M = 1: N = 2 Debug.Print M + N + Fun1(M, N) M = 2: N = 1 Debug.Print Fun1(M, N) + Fun1(M, N) End Sub Private Function Fun1(X As Integer, Y As Integer) X =

44、 X + Y Y = X + 3 Fun1 = X + Y End Function,18 30,Back,78,示例参数传递的限制,8-7：名为Sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是 。 A. Private Sub Sort(A( ) As Integer) B. Private Sub Sort(A(10) As Integer) C. Private Sub Sort(ByVal A( ) As Integer) D. Private Sub Sort(A( , ) As Integer) 8-8：在应用程序中用“Private Function Fun(X

45、 As Integer , Y As Single)”定义了函数Fun。调用函数Fun的过程中的变量I、J均定义为Integer型，能正确引用函数Fun的是。 Fun(I , J) Call Fun(I , 3.65) Fun (3.14 , 234) Fun(“245” , “231.5”) A. B. C. D. ,79,示例参数传递的限制,8-9：下面关于过程参数的说法，错误的是。 A. 过程的形参不可以是定长字符串类型的变量 B. 形参是定长字符串的数组，则对应的实参必须是定长字符串型数组，且长度相同 C. 若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合 D. 按值

46、传递参数，形参和实参的类型可以不同，只要相容即可,Back,80,示例Sub过程的定义,8-1：应用程度窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1。窗体和按钮的Click事件过程名分别为 。 A. Form_Click , Command1_Click B. Frm1_Click , Command1_Click C. Form_Click , Cmd1_Click D. Frm1_Click , Cmd1_Click 8-2：下列有关事件过程的说法错误的是 。 A. 标准模块中不能包含事件过程 B. 事件过程都是无参（没有形式参数） C. 事件过程也可以通过Call

47、语句调用执行 D. 在事件过程中不能声明全局变量,81,示例 Sub过程的定义,8-3：下列定义Sub过程的语句中，正确的语句是 。 （1）Private Sub Test(St As String * 8) （2）Private Sub Test(Sarray( ) As String * 5) （3）Private Sub Test(Sarray( ) As String) （4）Private Sub Test(St As String) A. （1）（2）B. （1）（4） C. （2）（3）（4）D. （1）（2）（3）（4） 8-4：下面Sub子过程的各个语句中，正确的是 。 a.

48、 Private Sub Sub1(A( ) As String) b. Private Sub Sub1(A( 1 to 10) As String *8) c. Private Sub Sub1(S As String) d. Private Sub Sub1(S As String *8) A. abcdB. abcC. acdD. ac,Back,82,示例循环嵌套,7-10：下列程序执行后，窗体上的输出结果是多少？ Dim i As Integer, j As Integer, k As Integer For i = 1 To 10 For j = 1 To 5 k = k + 1

49、 Next j Next i Print k=; k,K= 50,83,示例循环嵌套,7-11：下列程序执行后，窗体上的输出结果是多少？ Dim i As Integer, j As Integer, k As Integer Dim ai As Integer, aj As Integer, ak As Integer For i = 1 To 4 ai = ai + 1 For j = 1 To 3 aj = aj + 1 For k = 1 To 2 ak = ak + 1 Next k Next j Next i print ai,aj,ak,41224,Back,84,示例 ForNext 结构,7-4：在过程中有语句 For I=N1